お世話になります。
下記のマクロを記述したのですが、ウエから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も見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
Offsetで可視セルだけを移動したい。
Excel(エクセル)
-
-
4
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
5
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
10
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
11
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
12
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
13
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
14
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
15
VBAを一度起動するとずっと出てきます。
Access(アクセス)
-
16
2つ以上の変数を比較して最大数を求めたい
Word(ワード)
-
17
初歩的な事だと思います。 Sub または Function が定義されていません。
Visual Basic(VBA)
-
18
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
19
VBA 置換文字がみつからない時
Visual Basic(VBA)
-
20
複数のマクロボタンをまとめて一つのマクロボタンにするということ。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
クリックすると文章が表示され...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
太字に設定されているセルの個...
-
エクセルでセルをダブルクリッ...
-
Excelでセルをクリックす...
-
マクロを実行すると画像がズレ...
-
Excel ハイパーリンクのURLを別...
-
セルの内容をテキストボックス...
-
エクセルでページ数をあるセル...
-
現在のセルの位置を返す関数は...
-
EXCELのセルや文字色の反映
-
Excelで、図形内の文字をセルに...
-
セルの値が変ると自動でマクロ...
-
アポストロフィーの一括挿入 ...
-
エクセル 未入力セルがあると...
-
Excel2007 色のカウント (VBA)
-
フォントの色を指定して削除出...
-
セル背景や文字を点滅させる方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
太字に設定されているセルの個...
-
Excelで、図形内の文字をセルに...
-
Excelでセルをクリックす...
-
マクロを実行すると画像がズレ...
-
Excel ハイパーリンクのURLを別...
-
ページ内ハイパーリンクの表示...
-
エクセル 未入力セルがあると...
-
現在のセルの位置を返す関数は...
-
フォントの色を指定して削除出...
-
セルがクリックされた回数をカ...
-
アポストロフィーの一括挿入 ...
-
エクセルでPDFリンクを大量...
-
Excel2007 色のカウント (VBA)
-
【EXCEL】先週の月曜日の日付を...
-
エクセルでページ数をあるセル...
-
VBA 見つからなかった時の処理
おすすめ情報