![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
お世話になります。
下記のマクロを記述したのですが、ウエから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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) フレーム内のオプションボタンの選択結果をセルに書き出したい。 図のような預金種目というフレームにオプ 2 2022/07/29 11:12
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Visual Basic(VBA) セルS2に入力した「月」と一致したB列の右隣へセルS110の値を転記する下記マクロを実行するとエラー 2 2022/12/06 17:32
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
5
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
6
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
9
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
10
エクセルVBA 「On Error GoTo 0」について
Excel(エクセル)
-
11
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
12
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
13
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
14
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
15
VBAでワークシートを引数としてサンプル関数に渡したい
Visual Basic(VBA)
-
16
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
17
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
18
エクセルVBAのエディターが上書きモード?に・・・・。
Excel(エクセル)
-
19
ACCESSでフィールド名の変更(VBA)
Access(アクセス)
-
20
ListViewの複数選択について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
Excelで、図形内の文字をセルに...
-
セルがクリックされた回数をカ...
-
マクロを実行すると画像がズレ...
-
Excel ハイパーリンクのURLを別...
-
【EXCEL】先週の月曜日の日付を...
-
フォントの色を指定して削除出...
-
エクセルでPDFリンクを大量...
-
Excel2007 色のカウント (VBA)
-
クリックすると文章が表示され...
-
Excelで挿入した図をセルの中央...
-
Excelでセルをクリックす...
-
excelで セルの移動時に...
-
未記入がある場合はマクロを実...
-
VBAで特定の文字以降の文字列の...
-
エクセルでの検索ボックスの作...
-
excelのソルバーをVBAで複数行...
-
エクセル シート保護された共...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
太字に設定されているセルの個...
-
クリックすると文章が表示され...
-
Excelで挿入した図をセルの中央...
-
【マクロ】ファイル名の変更に...
-
Excelで、図形内の文字をセルに...
-
マクロを実行すると画像がズレ...
-
Excel ハイパーリンクのURLを別...
-
フォントの色を指定して削除出...
-
Excelでセルをクリックす...
-
Excel2007 色のカウント (VBA)
-
エクセルでの検索ボックスの作...
-
現在のセルの位置を返す関数は...
-
エクセル マクロ チェックボックス
-
VBA 見つからなかった時の処理
-
アポストロフィーの一括挿入 ...
-
エクセルでPDFリンクを大量...
-
セルの値が変ると自動でマクロ...
おすすめ情報