![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
マクロ初心者です。
マクロが入ってるExcelファイルがあるのですが、
マクロボタンを押しても結果がでないので、たぶんマクロの検索範囲が1列しかなってないみたいなので広げたいのですが、どうしたらよいでしょうか?
Sub 検索準備()
'
' 検索準備 Macro
'
'
Sheets("データ表").Select
Range("A3:ES2002").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Sheets("検索表").Select
Range("A4").Select
ActiveCell.FormulaR1C1 = "=+R[1]C"
Range("A4").Select
Selection.Copy
Range("B4:ES4").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("個人スキル").Select
Range("D3:E3").Select
End Sub
Sub スキル検索()
'
' スキル検索 Macro
'
'
'
Sheets("検索表").Select
Range("A4:ES4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:ES4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("計算表").Select
ActiveWindow.SmallScroll ToRight:=-3
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("F1:J149").Select
Application.CutCopyMode = False
Selection.Copy
Range("L1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=4
Range("L13:P149").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("L13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Range("L23").Select
Sheets("個人スキル").Select
Range("D3:E3").Select
End Sub
検索準備ボタンと、スキル検索2種類ボタンがあります。
どこをいじくればよいのか分かりません。
検索表の検索範囲が表題を抜かして人の名前などが入ってる列が1列しかなってないので・・・
No.1ベストアンサー
- 回答日時:
> 人の名前などが入ってる列が1列しかなってないので・
Sub[検索準備]の範囲であるようには思いますが
それがシート「何」の列「何」なのか、位は書いてね。
シートは4つですね。
1)データ表
2)検索表
3)個人スキル
4)計算表
どれを広げたいですか?
No.2
- 回答日時:
残念な「アドバイス」になってしまいますが……。
まず、質問文のマクロの主な動作を整理すると下記のような感じになります。
●[検索準備]マクロがやっていること
1.[データ表]シートのA3:ES2002を、A列をキーに並べ替える。
2.[検索表]シートのA4:ES4に、直下のセルを参照する数式を入れる。
●[スキル検索]マクロがやっていること
1.[検索表]シートのA4:ES4の数式の値を、値貼り付けで確定する。
2.[検索表]シートのA4:ES4の値を、[計算表]シートのA1:ES1に貼り付ける。
3.[計算表]シートのF1:J149の値を、L1:P149に貼り付ける。
4.[計算表]シートのL13:P149を、L列をキーに並べ替える。
というわけで、どちらのマクロも【"検索"らしきことはしていません】
マクロは並べ替えをしたり、検索キー(?)や結果(?)を転記しているだけで、
実際に検索処理をしているのは、[計算表]シートに入力されている数式だと思われます。
問題があるとすれば、おそらくそれらの数式の方ですし、
動作を変更するにしても、マクロではなくまず数式の方を変更する必要があります。
少なくとも、数式が何をどうしているのかわからない状態でマクロの方だけ直すことはできません。
「検索範囲を広げる」というのが、
「検索キーの入力欄を広げてOR検索あるいはAND検索したい」のか、
「検索対象となる範囲を広げたい」のかわかりませんが、
小手先の修正ではなくゼロから作るぐらいの覚悟と技術が必要になりそうな気配です。
以上ご参考まで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) excelVBAについて。 4 2022/11/21 16:15
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Visual Basic(VBA) excelVBAについて。 1 2022/11/30 06:16
- Excel(エクセル) excelVBAについて。 8 2022/12/11 13:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで数字を入れたら対応する...
-
【エクセル】「実行時エラー’10...
-
Excel VBAでのWorksheet_Change...
-
エクセルで複数のシートのクリ...
-
Excelのシート上のShapeにイベ...
-
Excelのマクロ 検索範囲を広げ...
-
マクロ1があります。 A1のセル...
-
エクセルファイルを開いた回数...
-
【エクセル】フリーワード検索...
-
エクセル マクロ 一定時間おき...
-
エクセルでマクロを作りすぎた...
-
エクセルで特定の行だけ行削除...
-
シート全体の絶対参照
-
エクセルVBAで内容変更のたびに...
-
エクセル シート内の一番下のセ...
-
excelVBAの実行時エラー'1004'...
-
エクセル:セル内の文字列の最...
-
EXCEL 2010 チェックボックスで...
-
再質問です。マクロの修正箇所...
-
[EXCEL]ボタン押す→時刻が表に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のシートのクリ...
-
Excelで数字を入れたら対応する...
-
Excel VBAでのWorksheet_Change...
-
エクセルファイルを開いた回数...
-
Excelのシート上のShapeにイベ...
-
【エクセル】フリーワード検索...
-
【エクセル】「実行時エラー’10...
-
セルの一部分だけを太字にする方法
-
長い時間かかるマクロが実行中...
-
Excelでセル内の文字をファイル...
-
エクセルで特定の行だけ行削除...
-
エクセル シート内の一番下のセ...
-
エクセル:セル内の文字列の最...
-
EXCELのダイアログシートって、...
-
エクセルVBAで実行中画面を...
-
前月分を次月シートに繰越でき...
-
マクロ1があります。 A1のセル...
-
excel定数の違いについて。xlAu...
-
エクセルマクロでファイル名や...
-
エクセルのマクロ実行後にカー...
おすすめ情報