こんにちわ
VBS初心者です
A1セルに12~14ケタほどの英文字と数字が混在したコードがあります
それをB2,C2,D2,E2・・・・・セルに左から順にひとつづつ配置したいのですが、どうも上手く行きません
Sub test4()
Value = Range("A1")
Range("A2").Value = Mid("A1", 1, 1)
Range("B2").Value = Mid("A1", 2, 1)
Range("C2").Value = Mid("A1", 3, 1)
Range("D2").Value = Mid("A1", 4, 1)
Range("E2").Value = Mid("A1", 5, 1)
Range("F2").Value = Mid("A1", 6, 1)
Range("G2").Value = Mid("A1", 7, 1)
Range("H2").Value = Mid("A1", 8, 1)
Range("I2").Value = Mid("A1", 9, 1)
Range("J2").Value = Mid("A1", 10, 1)
Range("K2").Value = Mid("A1", 11, 1)
Range("L2").Value = Mid("A1", 12, 1)
Range("M2").Value = Mid("A1", 13, 1)
Range("N2").Value = Mid("A1", 14, 1)
End Sub
"A1"を値としてとらえているようで
B2にはAが、C2には1が入ってしまいます
A1の値を取り出すにはどうしたら良いでしょうか
よろしくお願いします
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
まず、VBScript ですか? Excel VBA ですか?
Mid("A1", 1, 1)
これは
Mid(Range("A1").Value, 1, 1)
と。
気になる点としては
Value = Range("A1")
変数名として Value は変えたほうがいい。
Range("A1") てのも他にあわせて Range("A1").Value としたほうが良い。
出来ました!!
ありがとうございました。
恥ずかしい事にvbsとvbaの違いもわからず使わせていただいています。
納期が先にあり、検索だけを頼りにするなんて言語道断ですよね。
悲しい現実です。
本当に助かりました
ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) いつもお世話になります 下記のコード実行すると エラーになります わかるかた教えてくれませんでしょう 6 2022/12/17 15:01
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Excel(エクセル) Excleマクロ セル値の代入と文字列の結合について 3 2022/10/05 16:47
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Visual Basic(VBA) エクセルVBA 3 2022/06/23 20:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのチェックボックスを...
-
Excel関数 「日付を入力...
-
エクセルで数字から名前に変...
-
エクセル 条件が成立した場合...
-
エクセルで空白のセルを探して...
-
エクセルでのセルをまたぐ文字...
-
エクセル 空白を除き左に詰め...
-
Excel:セルに入力されている日...
-
エクセル関数で「数値が入力さ...
-
エクセルファイルを開くとメッ...
-
エクセル関数で…
-
エクセル 親番号、子番号の書き...
-
エクセルにて結合サイズが異な...
-
CSVで保存するとセルの書式...
-
エクセル2007 番地の並び替え...
-
EXCELで連続していない数値を30...
-
エクセル関数で 負の数を正の...
-
エクセルの計算式の入力方法に...
-
配列の逆行列が求められない(M...
-
Excel VBA 自動で連番をわりふる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのチェックボックスを...
-
エクセルで数字から名前に変...
-
エクセル 条件が成立した場合...
-
エクセルでのセルをまたぐ文字...
-
Excel関数 「日付を入力...
-
VBAで「セルに何か入っている場...
-
Excel:セルに入力されている日...
-
エクセルでのNULLという文字列...
-
エクセル関数で…
-
エクセルファイルを開くとメッ...
-
エクセルで縦書きルビの付け方
-
エクセルで当月の数字を入力し...
-
pages で「テキストを左右両端...
-
エクセル 空白を除き左に詰め...
-
配列の逆行列が求められない(M...
-
EXCELで連続していない数値を30...
-
エクセルで在庫表を作りたい
-
エクセルで漢字を数字に変換す...
-
エクセル関数で「数値が入力さ...
-
Excel VBAでオートフィルタ後...
おすすめ情報