[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『入力した文字を一文字ずつ表示したい』(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 >
見づらいうえに、いまの疑問点がわかりません。
(もこな2 ) 2022/06/29(水) 20:33
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
書き込む際に行の頭に半角スペースを入れると書き込んだとおりに表示される。
>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: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
もし半角スペースなら、「空白」という文字を
そうでなければ、そのままの文字を入れる。
(難しいですか?) 2022/07/04(月) 14:10
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.