
お世話になります。
下記のマクロを記述したのですが、ウエから7行目の
mid(Cells(i, colNum + 1).Value, 7, 11)
のところで、下記のようなコンパイルエラーが出てしまいます。
試しに".Value"をとっても見ましたが、結果は同じでした。
どこをどう直せばよろしいのでしょうか、よろしくご指南くださいませ。
Sub mid_ac()
Dim i As Integer
Dim colNum As Integer
i = 2
colNum = ActiveCell.Column
Do Until Cells(i, 1).Value = ""
Cells(i, colNum).Value = mid(Cells(i, colNum + 1).Value, 5, 10)
i = i + 1
Loop
End Sub
コンパイルエラー:
モジュールではなく、変数またはプロシージャを指定してください
(ちなみに、このマクロは選択したセルの右隣にあるセルの左から5文字目~10文字目までを、表示させるものです。答えて下さる方には老婆心かもしれません。。。)
No.2
- 回答日時:
どこかに
Sub mid(a, b, c)
・・・
End Sub
とかを作ってませんか?
その場合はそんなエラーが起こってmidが反転するはずです。
そうでなければ、エラーの行ではなく反転する文字を教えてください。
No.1
- 回答日時:
Msgboxを入れただけですが
Sub mid_ac()
Dim i As Integer
Dim colNum As Integer
i = 2
colNum = ActiveCell.Column
MsgBox colNum
Do Until Cells(i, 1).Value = ""
MsgBox Mid(Cells(i, colNum + 1).Value, 5, 10)
Cells(i, colNum).Value = Mid(Cells(i, colNum + 1).Value, 5, 10)
i = i + 1
Loop
End Sub
にしてみて、メッセージ表示はどうなりますか?
私の好みとしては
ActiveCell.Column
は不安定でやりたくない。思わぬセルがアクチブになっていて、つい実行してしまう。
ーー
簡単なデータではエラーは出ないことを確認しました。
データ(やアクチブセル)がたまたま何々の時の問題では?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Access サブフォームでの選択行の取得
その他(データベース)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
2つのテーブルに共通するレコードを削除したい
Access(アクセス)
-
6
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
7
実行エラー'424' ????
Excel(エクセル)
-
8
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
9
VBAです。ユーザーフォームの表示させ、標準モジュールを読み込ませる方法について
Visual Basic(VBA)
-
10
フォームで入力しても反映されない
Access(アクセス)
-
11
VBAで文字列を数値に変換したい
Excel(エクセル)
-
12
初歩的な事だと思います。 Sub または Function が定義されていません。
Visual Basic(VBA)
-
13
Excel VBAでCSVファイルを読込むと何故か文字列が日付に変換さ
その他(Microsoft Office)
-
14
UserForm1.Showでエラーになります。
工学
-
15
デフォルトでチェックボックスをオンにしたい。
その他(Microsoft Office)
-
16
[コンパイルエラー 修飾子が不正です]
Visual Basic(VBA)
-
17
複数のマクロボタンをまとめて一つのマクロボタンにするということ。
Excel(エクセル)
-
18
callで順に実行されるプロシージャを途中で止める方法
Excel(エクセル)
-
19
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
20
Vba初心者です。下記のコード助けてください Loopに対するDoがありませんと表示されます Sub
オープンソース
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excelで、図形内の文字をセルに...
-
エクセル 数字をすべて○などの...
-
太字に設定されているセルの個...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
エクセルでPDFリンクを大量...
-
セル背景や文字を点滅させる方法
-
フォントの色を指定して削除出...
-
セルがクリックされた回数をカ...
-
現在のセルの位置を返す関数は...
-
Excel ハイパーリンクのURLを別...
-
セルの値が変ると自動でマクロ...
-
空白セルを空セルに置き換える...
-
VBAで特定の文字以降の文字列の...
-
エクセルマクロ 赤色の文字を検...
-
エクセルでの検索ボックスの作...
-
Excel2007 色のカウント (VBA)
-
エクセルでページ数をあるセル...
-
sheetsの保護されていないセル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
エクセル 数字をすべて○などの...
-
クリックすると文章が表示され...
-
Excelで、図形内の文字をセルに...
-
Excelでセルをクリックす...
-
Excel ハイパーリンクのURLを別...
-
太字に設定されているセルの個...
-
マクロを実行すると画像がズレ...
-
セルの内容をテキストボックス...
-
フォントの色を指定して削除出...
-
Excel:セルの値(文字列)を数...
-
Excel2007 色のカウント (VBA)
-
エクセルでPDFリンクを大量...
-
アポストロフィーの一括挿入 ...
-
現在のセルの位置を返す関数は...
-
エクセルでセルをダブルクリッ...
-
空白セルを空セルに置き換える...
-
エクセル シート保護された共...
-
エクセル 未入力セルがあると...
おすすめ情報