Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


76683 / 76734 ←次へ | 前へ→

【4468】Re:文字をばらす方法
回答  ポンタ  - 03/3/21(金) 3:51 -

引用なし
パスワード
   これでも動きます。
(シンプルで分かりやすい!?、と思います)

標準モジュールに貼り付け、
"はじまして"と入力されてるセルを
アクティブしてお試しください。

Sub test()
  Dim MyStr As String
  Dim i As Integer
  MyStr = ActiveCell.Value
  ActiveCell.Offset(1, 0).Activate
  For i = 1 To Len(MyStr)
    ActiveCell.Value = Mid(MyStr, i, 1)
    ActiveCell.Offset(0, 1).Activate
  Next
End Sub

0 hits

【4462】文字をばらす方法 かず 03/3/21(金) 1:08 質問
【4464】Re:文字をばらす方法 Kein 03/3/21(金) 3:02 回答
【4465】Re:文字をばらす方法 Kein 03/3/21(金) 3:03 発言
【4468】Re:文字をばらす方法 ポンタ 03/3/21(金) 3:51 回答

76683 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free