シート上に
Ａ学科 相川 秋山・・・鈴木・・・
Ｂ学科 伊藤 ・・・鈴木
・
・
・
と書いてあります。
Sub Find_01()
Dim c As Object
Dim myKey As String, fAddress As String
myKey = "鈴木"
With Worksheets(1).Range("a1:a30")
Set c = .Find(What:=myKey, LookIn:=xlValues, lookat:=xlWhole, _
SearchOrder:=xlByColumns, MatchByte:=False)
If Not c Is Nothing Then
fAddress = c.Address
Do
c.Interior.ColorIndex = 3
Set c = .FindNexｔ(c)
If c.Address = fAddress Then Exit Do
Loop
End If
End With
End Sub
このプログラムで「鈴木」と書いてあるセルに色がつくのですが
「鈴木」という部分にはマークをせず、学科の部分をマーク
するにはどうすればよいのでしょうか？
UserFormのTextBoxに入力した値を保存する方法がありますか？
具体的には、UserFormのTextBoxに2010/6/10と入力したときに
シートのセルT13に表示されるように以下のマクロを作成しました。
Private Sub CommandButton1_Click()
Range("T13").Value = 日付.Value
If CloseMode = vbFormControlMenu Then
Cancel = True
Me.Hide
End If
End Sub
再度UserFormを開くと前の入力内容があるのですがExcelを保存
して閉じて再度シートを開くと空白になってしまいます。
UserFormを開いたタイミングで出力させたT13の値を返すという
ようなマクロにするにはどうしたらよいでしょうか。
初心者なので詳しく教えていただけませんか。
エクセルでフォルダまたはファイルを開くマクロですが、どのように改良すればよろしいでしょうか？
下記マクロは、エクセルシートのJ列のあるセルをダブルクリックすると、そのセルに記入された文字列を検索して、該当のフォルダまたは、写真が開きます。（エクセルファイルと写真は同フォルダに保存している場合のみ有効）
困っていることは、J列のセルと該当フォルダまたは、写真ファイルをリンクさせたいのですが、文字列が全て一致している時のみしか開かないことです。
D<デジカメ<商品名フォルダ＜写真ファイル
例えば セルＪ3の文字列がABCEで、フォルダ名またはファイル名がABCDEFであった場合、文字列ABCEを含む条件で、フォルダ名またはファイル名ABCDEFを開くように改良したいのですが、
また、エクセルファイルと写真ファイルの保存場所は、全く違うフォルダにしたいのですが、
エクセルファイルと写真ファイルは、別フォルダの場合、どのように検索先フォルダのパスを入れたら良いのでしょうか？
マクロに詳しい方ご教授下さい。よろしくお願い致します。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myPath As String
If Target.Cells(1, 1).Column <> 10 Then Exit Sub
Cancel = True
myPath = ThisWorkbook.Path & "\" & Target.Cells(1, 1).Text
If Dir(myPath, vbDirectory) <> "" Then
Shell "explorer.exe /e,/root," & myPath, vbNormalFocus
Exit Sub
End If
myPath = Replace(LCase(myPath), ".jpg", "\" & Target.Cells(1, 1).Text)
If Dir(myPath, vbNormal) <> "" Then
Shell "rundll32.exe shimgvw.dll,ImageView_Fullscreen " & myPath, vbNormalFocus
End If
End Sub
EXCEL VBAで教えてください。 ユーザーフォームに開始日、終了日を入れ、コマンドボタンを押し、sheet1の開始日から終了日に該当するセルをコピーし、sheet2に貼り付けたいのですが、うまくいきません。
今は、メッセージボックスで範囲指定し、コピー＆ペーストしているのですが、ユーザーフォームで開始日終了日を指定して、コピーしSheet2へ貼り付けたいのです。
--------------------
Sub 届()
Dim myPath As String
Dim myFName As String
Dim ファイル名 As String
Workbooks("処理.xls").Activate
Range("B10:K80").Select
Selection.ClearContents
myPath = ActiveWorkbook.Path
ChDir myPath
myFName = Dir("m.txt")
Dim データ形式 As Variant
Dim 区切りタブ As Variant
ファイル名 = "m.txt"
データ形式 = xlDelimited
区切りタブ = True
Workbooks.OpenText Filename:="m.txt", DataType:=xlDelimited, Tab:=True
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="<>"
Columns("C:E").EntireColumn.AutoFit
Range("C2").Sort key1:=Columns("C"), Order1:=xlAscending, Header:= _
xlGuess
Worksheets.Add
Worksheets("m").Select
Dim moto As Range, saki As Range
On Error Resume Next
Set moto = Application.InputBox("どの範囲をコピーしますか？" & Chr(13) & "開始日、終了日を確認してください" & Chr(13) & "A列からE列まで選択してください", Type:=8)
If moto Is Nothing Then Exit Sub
If moto.Parent.Name <> "m" Then
MsgBox "m から選択してください"
Exit Sub
End If
Worksheets("Sheet1").Select
Set saki = Application.InputBox("どこに貼り付けますか？" & Chr(13) & "A4", Type:=8).Cells(1, 1)
If saki Is Nothing Then Exit Sub
If saki.Parent.Name <> "Sheet1" Then
MsgBox "Sheet1 から選択してください"
Exit Sub
End If
On Error GoTo 0
moto.Copy saki
ActiveWorkbook.SaveAs Filename:="届.xls", FileFormat:=xlWorkbookNormal
MsgBox "対象者をコピーしました"
End Sub
------------------
下記でやってみたのですがうまくいきません。
Private Sub CommandButton1_Click()
With Worksheets("sheet1")
開始日 = ">=" & TextBox1.Text
終了日 = "<=" & TextBox2.Text
ActiveSheet.Range("A1:N200").AutoFilter , Field:=3, _
Criteria1:=開始日, Operator:=xlAnd, _
Criteria2:=終了日
Unload UserForm1
End With
End Sub
