[[20220629145013]] 『入力した文字を一文字ずつ表示したい』(Excel初心者) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『入力した文字を一文字ずつ表示したい』(Excel初心者)

 Sub ボタン1()

 k = 45

 Dim rslt As VbMsgBoxResult
 rslt = MsgBox("表示しますか?", Buttons:=vbYesNo)
 If rslt = vbYes Then
 Dim i

 Dim c As String
 c = Range("B44").Formula
 Debug.Print (c)

 Dim h As Long               'Stringから変更
 h = Range("L44").Value      'Formulaから変更
 Debug.Print (h)

 j = 1                       '※未宣言変数(未使用)

 Dim arr() As String
 'Dim i As Long
 Dim leng As Long
 leng = Len(c)
 ReDim arr(leng - 1)

 For i = 0 To leng - 1
     arr(i) = Mid(c, i + 1, 1)
 Next i

' Dim iRow As Long

 'Dim iColumn As Long

 If h > 0 Then               'hが0のときエラーになるので回避
      For i = 0 To leng - 1
          If j = h Then
          k = k + 1
          j = 1
      Else
         j = j + 1
      End If

      Next i

' For i = 0 To leng - 1
' iColumn = i Mod h
' iRow = Int(i / h)
' Range("A45").Offset(iRow, iColumn).Value = arr(i)
' Next i

         MsgBox "表示しました"
     Else
         Range("A45:AC60").ClearContents
         MsgBox "表示を中止しました"
 End If

 End If

 End Sub

 If h > 0 Then の後のforからnext文を変えるとしたらどう表示すればよいでしょうか

< 使用 Excel:Excel2013、使用 OS:unknown >


[[20220628140420]] 『入力した文字を一文字ずつ表示したい』(Excel初心者)
↑から続いているのだと思いますが、コメントアウトの整理やインデントくらい付けてはどうですか?

見づらいうえに、いまの疑問点がわかりません。

(もこな2 ) 2022/06/29(水) 20:33


「If h > 0 Then」の次の行に
Cells(k,j).value = arr(i)
を挿入してください。
(作業員) 2022/06/30(木) 09:16

 moji = "あいうえおかきくけ"
 leng = Len(moji)
 ReDim arr(1 To leng)
 For i = 1 To leng
    arr(i) = Mid(moji, i, 1)
 Next
 Range("A1").Resize(, leng).Value = arr
(難しいですか?) 2022/06/30(木) 10:19

空白セルをなくすにはどうすればよいでしょうか
(Excel初心者) 2022/06/30(木) 10:33

空白セル?
どこにあるんですか?
(難しいですか?) 2022/06/30(木) 10:51

すみません。
家にはエアコンないんでこれからバックレます。
他の方からの回答を待ってください。
(難しいですか?) 2022/06/30(木) 10:53

B44に入力した文字をA44にあるボタンで実行してその実行したのをA45にL44に表示した間隔で表示するのですけどL44に10と入力したら下のようになってしまいます。
Boogie Board is a paperless LCD, which uses a stainless steelとB44に入力したとしてそれをボタンで実行すると
B o o g i e B o a
r d i s a p a
p e r l e s s L C
D , w h i c h u
s e s a s t a i
n l e s s s t e e
みたいになってしまってBoogieとBoaの間とかにある空白セルを無くしたいです。
(Excel初心者) 2022/06/30(木) 11:18

 書き込む際に行の頭に半角スペースを入れると書き込んだとおりに表示される。

 >Boogie Board is a paperless LCD, which uses a stainless steelとB44に入力したとしてそれをボタンで実行すると
 >B	o	o	g	i	e	 	B	o	a
 >r	d	 	i	s	 	a	 	p	a
 >p	e	r	l	e	s	s	 	L	C
 >D	,	 	w	h	i	c	h	 	u
 >s	e	s	 	a	 	s	t	a	i
 >n	l	e	s	s	 	s	t	e	e
 >みたいになってしまってBoogieとBoaの間とかにある空白セルを無くしたいです。
(ねむねむ) 2022/06/30(木) 11:28

まさにそんな感じになっております。
(Excel初心者) 2022/06/30(木) 11:31

Boogie Board is a paperless LCD, which uses a stainless steelと表示したまま実行した際に空白セルを無くす方法はありますか

(Excel初心者) 2022/06/30(木) 11:36


 ?Replace$("Boogie Board is a paperless LCD, which uses a stainless steel", " ", "")
   ↓
 BoogieBoardisapaperlessLCD,whichusesastainlesssteel

(白茶) 2022/06/30(木) 11:41


空白セルではなく、半角スペースが入っているから良いと思ってますが。

初めに白茶さんの方法などで半角スペースを消してください。

帰ってくるとまだ暑いまま。
窓開けたんで室温37度まで下がった?
(難しいですか?) 2022/06/30(木) 18:52


新しく質問なのですが空白セルに「空白」という文字を入力するにはどうすればよいでしょうか
(Excel初心者) 2022/07/04(月) 11:09

>空白セルに「空白」という文字を入力
何考えてんの。
暑くて頭おかしくなっていない。
普通に空白と入力すればいいじゃん。
こういうやつってこのサイトにもいたな。
(あほ) 2022/07/04(月) 11:54

最後に置き換えで半角スペースを「空白」に置き換えれば済みます。
(難しいですか?) 2022/07/04(月) 13:41

プログラムに手を加えるなら、

もし半角スペースなら、「空白」という文字を
そうでなければ、そのままの文字を入れる。

(難しいですか?) 2022/07/04(月) 14:10


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.