マクロ（Excel）にて検索できるものを作成しています。
例えばネットワークドライブにて割り当てたH22（Zドライブ）～H1（Gドライブ）というフォルダがあり、UserForm1にてH22～H1のチェックボックスを作成しています。ここでH22とH21のチェックボックスにチェックを入れキーワードを入力し検索すると、H22とH21のフォルダ内になるキーワードと同じファイル名をフォルダ名と同じのシートに検索結果を表示したいです。
しかし、下記のようにすると、１つずつの検索は可能なのですが、複数チェック（H22とH21）入れると
H22を検索し終わった後、もう一度キーワードを入力しないとH21を検索してくれません。
複数チェックし１回のキーワード入力で検索するにはどうすれば良いですか？
説明が下手ですが、よろしくお願いします。
Private Sub CommandButton1_Click()
If CheckBox1 = True Then
Sheets("H22").Visible = True
Sheets("H22").Select
With Application.FileSearch
.NewSearch
.LookIn = "Z:\"
buf = InputBox("検索したいファイル名を入力してください" & vbCrLf & "ただし、複数キーワード検索はできません" & vbCrLf & "キーワード入力後、「ＯＫ」ボタンを選択", "キーワード入力")
If buf = "" Or buf = "False" Then Exit Sub
.Filename = buf
.SearchSubFolders = True
If .Execute() > -5 Then
MsgBox .FoundFiles.Count - 5 & " 個のファイルが見つかりました", vbOKOnly, "検索結果"
For 検索結果 = 6 To .FoundFiles.Count
Cells(検索結果, 3) = .FoundFiles(検索結果)
Next 検索結果
Else
MsgBox "見つかりませんでした"
End If
End With
Set FSO = Nothing
For i = 6 To 検索結果 Step 1
Cells(i, 3).Select
With ActiveSheet
.Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 3).Value
End With
Next i
ElseIf CheckBox2 = True Then
Sheets("H21").Visible = True
Sheets("H21").Select
With Application.FileSearch
.NewSearch
.LookIn = "Y:\"
buf = InputBox("検索したいファイル名を入力してください" & vbCrLf & "ただし、複数キーワード検索はできません" & vbCrLf & "キーワード入力後、「ＯＫ」ボタンを選択", "キーワード入力")
If buf = "" Or buf = "False" Then Exit Sub
.Filename = buf
.SearchSubFolders = True
If .Execute() > -5 Then
MsgBox .FoundFiles.Count - 5 & " 個のファイルが見つかりました", vbOKOnly, "検索結果"
For 検索結果 = 6 To .FoundFiles.Count
Cells(検索結果, 3) = .FoundFiles(検索結果)
Next 検索結果
Else
MsgBox "見つかりませんでした"
End If
End With
Set FSO = Nothing
For i = 6 To 検索結果 Step 1
Cells(i, 3).Select
With ActiveSheet
.Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 3).Value
End With
Next i
・
・
・
End If
End Sub
今まではForm上にTextBoxを貼り、スピンボタンにて日付を変化させるのは
できるのですが、これをシート上で日付を動かすと
どのような記述の変化が必要なのでしょうか？
TextBoxはhidukeという名でしています！日付は出るのですが
スピンボタンは動きません！
すいません教えて下さい！
Private Sub SpinButton1_SpinDown()
Me.hiduke.Value = DateAdd("d", -1, Me.hiduke.Value)
End Sub
Private Sub SpinButton1_SpinUp()
Me.hiduke.Value = DateAdd("d", 1, Me.hiduke.Value)
End Sub
Private Sub hiduke_Change()
Me.hiduke.Value = Format(Now(), "yyyy/mm/dd")
End Sub
ご存知の方いらっしゃればご教示宜しくお願い致します。m(_ _)m
メールを送ってきてくれた方のメールソフトの種類を確認したくて、
Becky2で受信したメールをヘッダー表示にしたところ、
X-Mailer: Microsoft Office Outlook 12.0
と表示されていました。
ただ、これだとOutlook2003なのか、Outlook2007なのか、OutlookExpressなのか
分かりません・・・
X-Mailer: Microsoft Office Outlook 12.0や
X-Mailer: Microsoft Office Outlook 11.0などの
OutlookやOutlookExpressのバージョンがおわかりになる方は
ご教示宜しくお願い致します。
セル色を取得するユーザー定義関数として、
Function CellColor(objCell As Range) As Integer
Application.Volatile
CellColor = objCell.Interior.ColorIndex
End Function
上記のコードを標準モジュールに貼り付け、例えばB2セルに「=CellColor(A2)」という計算式を入力すると、B2セルにA2セルの塗りつぶし色のColorIndex値が表示されるようになります。
これをB2セルに例えば「=CellColor()」というように入力すれば
B2セルにB2セルの塗りつぶし色のColorIndex値が表示されるようにするには、
どのようなユーザー関数を作ればよいでしょうか？
よろしくお願いします。
VBAで下記の動作を実現させたいのですが、もう一歩のところで上手くいきません。
アドバイスを宜しくお願いします。
・C列が空欄になるまで、AD列を改行させて同じ作業を繰り返す。
Do Loopステートメントで下記のように作ってみたのですが、"AD2"から"AD3"に改行させることが
出来ないのです。
------------------------------------
Sub 棚番2()
Range("C2").Activate
Do Until ActiveCell.Value = ""
Range("AD2").FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-27],棚番!C2:C3,2,0)),"""",VLOOKUP(RC[-27],棚番! C2:C3,2,0))"
Range("AD2").Copy
Range("AD2").PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1).Activate
Loop
End Sub
---------------------------------
何卒アドバイスを下さいますよう宜しくお願いいたします。
最近、エクセルVBAを始めたものです。
サイトや解説本でいろいろな記述を見たのですが、私が見た限りでは全ての例で、最初に出てくる変数は「i」で表現されていました。
そして次に出てくる変数は「j」。
（例えば、 For i = 1 to 10 ・・・・ Next i とか）
26あるアルファベットからたまたま「i」が選ばれた？にしては、数多くの解説本やサイトで「i」が使用されているので疑問に思いました。
変数を表すのに、例えば「a」「b」「c」……としても何ら問題にならないと思うのですが……
「i」にしているのには何か理由があるのでしょうか。
Excel マクロ 特定文字の抽出
10月20日に質問させていただき、jcctaira様にご回答頂きました。
1点うまくいかない点があり、再度質問させていただきます。
お教え頂きましたマクロは下記になります。
For i = 2 To last
strt = Mid(Cells(i, "A"), 6, 3)
Cells(i, "B") = strt
Next i
End Sub
3文字が3桁の数字で例えば「001」や「022」の場合に
貼り付けたセルでは「1」や[22」になり0が表示されません。
どのように貼り付けを指定すれば3桁の数字（先頭が0のもの）が
正しく反映されますでしょうか。
Excel2003 VBA Functionの定数に関して教えて下さい。
例えば、
Function test(x, y)
test = A * x + B * y + C
End Function
という数式を定義し、プログラム中で使用したいとします。
数式を見て分かる通り、xとyは変数でA, B, Cは定数です。
そして、これらA, B, Cの値を
A = Cells(3,5)
B = Cells(3,6)
C = Cells(3,7)
のようにシート上の値を使用したいのですが、
上記のようにプログラム中で宣言してもFunctionの中では値が入っていないものとみなされてしまいます。
この問題の回避のため、、
Function test(x, y)
A = Cells(3,5)
B = Cells(3,6)
C = Cells(3,7)
test = A * x + B * y + C
End Function
のようにFunctionの中に、定数を宣言を入れてしまうか、
Function test(x, y, A, B, C)
test = A * x + B * y + C
End Function
のようにA, B, Cも定数ではなく、変数として扱う方法があります。
しかしながら、一つ目の方法では、こういったFunctionの数が増えてくると、
同じ定数を複数の場所で宣言することになり、後からプログラムを書き直そうとしたときに
極めて不便です。
一方で、２つめの方法では、test(x, y, A, B, C)のように、
一つのFunctionを呼び出すためにごちゃごちゃしてスペースをとり、
後から見たときに見にくくなります。
後、Constとして定義する方法もありますが、
A = Cells(3,5)
のように、シート上のデータを代入する方法をとりたいと考えています。
上記以外の方法以外でもっとスマートな方法がありましたら
教えて頂けますでしょうか？
Excelマクロ オートフィルター条件設定で不等号を使いたい
請求シートより抽出条件シートに条件を設定し、抽出シートにコピーするマクロ
を作成しています。
抽出条件に比較演算子の不等号<>を使った場合、条件が無視されてしまいます。
どのようにしたら良いでしょうか？
請求シートのA列には会社番号が数字4桁で入力されています。
抽出条件シートA5セルに下記の条件を設定した場合、
1と2の場合は上手くフィルターが機能しますが、3の不等号を
使った場合は機能しません。どなたか宜しくお願いします。
1：1000
2：>1000
3：<>1000
Sub テスト()
Dim LastRow As Long, LastColumn As Long
Dim myData As Range
Dim myCriteria As Range
With Worksheets("請求")
LastColumn = .Cells(5, Application.Columns.Count).End(xlToLeft).Column
LastRow = .Cells(Application.Rows.Count, "A").End(xlUp).Row
Set myData = .Range("A5", .Cells(LastRow, LastColumn))
End With
Set myCriteria = Worksheets("抽出条件").Range("A5").CurrentRegion
Worksheets("抽出").Range("A6:R1000").ClearContents
myData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=myCriteria, _
CopyToRange:=Worksheets("抽出").Range("A5:R5"), Unique:=False
Set myData = Nothing
Set myCriteria = Nothing
End Sub
