No.1ベストアンサー
- 回答日時:
一例です。
最小値が、複数あった場合は無視しています。
Sub Macro1()
saishou = WorksheetFunction.Min(Columns("A:A"))
Columns("A:A").Find(What:=saishou, LookAt:=xlWhole).Offset(0, 1).Activate
End Sub
この回答へのお礼
お礼日時:2013/06/23 10:26
回答ありがとうございます。一番短くまとめていただいたのでBAにいたしました。疑問点があったのでまたこのプログラムについて質問をしたいと思います!
No.3
- 回答日時:
他の方は最小値が複数ある場合の一例です。
Sub test()
Dim c, Myrange, target As Range
Dim Mymin As Long
Set Myrange = Range("a1:a100")
Mymin = Application.WorksheetFunction.Min(Myrange)
For Each c In Myrange
If c = Mymin And c <> "" Then
If target Is Nothing Then
Set target = c.Offset(, 1)
Else
Set target = Union(target, c.Offset(, 1))
End If
End If
Next c
target.Select
End Sub
No.2
- 回答日時:
例えば次のようなコードにします。
Sub 試験()
Dim i As Integer
Dim m As Long
m = WorksheetFunction.Min(Range("A1:A10"))
Set x = Range("A1:A10").Find(m, LookIn:=xlValues)
i = Range(x.Address).Row
ActiveSheet.Range("B" & i).Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Visual Basic(VBA) VBAマクロでシートコピーした新シートにコピー元シートとの計算式の入れ方を教えて下さい。 5 2022/11/20 09:48
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) なぜか正常にマクロが動いていない? 1 2022/11/03 07:56
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) エクセルのセル値に対応してマクロを実行する方法を教えてください セルA1が「1」の時にマクロ名「マク 2 2022/06/19 18:45
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELマクロ 保護されているシ...
-
データが入力されている隣のセ...
-
エクセルテキストボックスの文...
-
エクセルVBA(実行時エラー438...
-
Sheet2からオートフィルターで...
-
セル色を5秒間隔で変える
-
Windowsで動くVBAがmacOSで動か...
-
Excel VBA ダブルクリックで入...
-
カンマ区切りの文字列単位で色...
-
VBAで、貼り付け禁止命令を実現...
-
エクセルのVBAでダブルクリック...
-
メッセージを1度だけ表示したい。
-
VBA セルに合わせて移動するが...
-
Excelのセル内にある図形を削除...
-
GrapeCityのSpreadの複数セルの...
-
【VBA】参照値を1ずつ増やして...
-
ダブルクリックすると現在の時...
-
エクセル マクロ 見つけてセ...
-
VBAのコードの意味
-
ハイパーリンクされているファ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データが入力されている隣のセ...
-
EXCELマクロ 保護されているシ...
-
エクセルテキストボックスの文...
-
VBAで、貼り付け禁止命令を実現...
-
ハイパーリンクされているファ...
-
VBAで丸をつけたいです。
-
メッセージを1度だけ表示したい。
-
エクセルVBA(実行時エラー438...
-
ダブルクリックすると現在の時...
-
VBA セルに合わせて移動するが...
-
(VBA)アクティブセルを起点に...
-
Jtableの特定のセルの背景色や...
-
Windowsで動くVBAがmacOSで動か...
-
エクセルVBA セル選択後にカレ...
-
Excelのセル内にある図形を削除...
-
Excel VBA ダブルクリックで入...
-
セル色を5秒間隔で変える
-
StringGridでの文字入力制限
-
【VBA】参照値を1ずつ増やして...
-
マクロでのカーソル移動
おすすめ情報