Excel VBA質問箱 IV

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

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


30282 / 76732 ←次へ | 前へ→

【51717】区切り位置
質問  初心者  - 07/10/1(月) 19:46 -

引用なし
パスワード
   エクセルの区切り位置を指定して実行をマクロ化しています
シート2のB3から値を取得してその値によって
シート1のA列の文字列を区切りたいのですが

Sub Macro1()
'
'
'変数初期化
i = 3
'ループ開始
Do
'データ取得
atai = Worksheets("sheet2").Range("B" & i).Value
'取得した値がスペースの場合、ループ終了
If atai = "" Then
  Exit Do
End If
If i <> 3 Then
  FULL_cmd = FULL_cmd & ","
End If
FULL_cmd = FULL_cmd & " Array(" & atai & ", 2)"
i = i + 1
Loop
FULL_cmd = "Array(" & FULL_cmd & ")"
MsgBox (FULL_cmd)
'ちょん切る
'
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
    Sheet1.Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
    FieldInfo:=FULL_cmd '1.
End Sub
1.の箇所でRangeクラスのTextToColumnsメソッドが失敗しましたが表示されます。
よろしくお願いいたします。
0 hits

【51717】区切り位置 初心者 07/10/1(月) 19:46 質問
【51718】Re:区切り位置 neptune 07/10/1(月) 21:44 発言
【51721】Re:区切り位置 初心者 07/10/2(火) 6:57 発言
【51723】Re:区切り位置 neptune 07/10/2(火) 9:10 回答
【51725】Re:区切り位置 初心者 07/10/2(火) 9:39 発言
【51728】Re:区切り位置 Jaka 07/10/2(火) 13:55 発言
【51729】Re:区切り位置 Jaka 07/10/2(火) 14:12 発言
【51740】Re:区切り位置 初心者 07/10/3(水) 6:23 お礼

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