お世話になります。
以前、下記質問をし、締め切ったのですが、もう一点、教えていただきたい点がありました。
質問
エクセルマクロで、sheet1のE列の6～30行に指定する文字が入力された際、
B列のその同じ行にある文字を取得し、その取得した文字をsheet3のC6から
K6まで書き出していきたいのですが、どのようにしたらよいでしょうか？
ご回答
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim r As Range
Const 指定文字 As String = "X"
Set r = Range("E6:E30")
If Target.Count > 1 Then Exit Sub
If Intersect(r, Target) Is Nothing Then
Exit Sub
End If
If Target.Value <> 指定文字 Then
Exit Sub
Else
'大文字小文字を区別する場合
i = ActiveSheet.Evaluate( _
"SumProduct(EXACT(" & r.Address & ",""" & 指定文字 & """)*1)")
'大文字小文字を区別しない場合
i = WorksheetFunction.CountIf(r, 指定文字)
Application.EnableEvents = False
Worksheets("Sheet3").Cells(6, i + 2) = _
Target.Offset(, -3)
Application.EnableEvents = True
End If
End Sub
このご回答を、
取得した文字をsheet3のC6からK6までに4列毎に書き出して
いく場合にはコードをどのようにしていけば良いのでしょうか。
C6→H6→M6→・・・
すみません、再度お願い致します。
エクセル2013です。他のエクセルブックからリンクを張っているとき、以下のマクロで調べることがわかりましたけど、そこでわかるのは、ブック名どまりであって、シートやセル番地はわかりません。わかりたいのは、こっちのブックのどのシートのどのセルが、あっちのブックのどのシートのどのセルとつながっているかです。
わかる方法はないものでしょうか。なお、このマクロは、以下のホームページに書いてあったものです。
https://www.moug.net/tech/exvba/0060039.html
Sub GetLinkInfromation()
Dim Var As Variant
Dim Msg As String
Dim i As Integer
Var = ActiveWorkbook.LinkSources(xlExcelLinks)
For i = 1 To UBound(Var)
Msg = Msg & Var(i) & vbCrLf
Next i
MsgBox Msg
End Sub
For Each myObj In objIE.document.all.tags("a")
If myObj.alt = "文字" Then
End If
Next
の様に、IEをVBAで操作する際に、altの値は取得できないのでしょうか？
実際上記のコードを実行すると
実行時エラー '438' オブジェクトは、このプロパティまたはメソッドをサポートしていません。
になります。
それともloop中のaタグにalt要素がないからエラーになっているのでしょうか？
であれば、aタグにalt要素があるかどうかを取得するにはどうすればいいでしょうか？
出来ればIfステートメントで取得したいです。
excel vbaで、他のEXCELファイルのマクロの処理を中断して、自己ファイルのマクロを処理後、再度他のEXCELファイルのマクロを継続して再度処理を行わせるにはどうすれば良いですか。教えて下さい
他のＥＸＣＥＬファイルとして、フリーソフトを利用しています。
そのソフトは、モジュールにロックが掛ってるので、その中のマクロなどを編集することはできません。（ロック解除などは考えていません。）
そのソフトを起動して、データファイル入力画面で、データファイルを入力して、処理をして、処理結果を保存することを、入力データファイルを変えながら、繰り返し行いたいです。
そこで、処理マクロを作成しています。その手順とＶＢＡを説明します。
１）フリーソフトを開き、
２）そのフリーソフトのシート内のボタンを、ＶＢＡで、マウスカーソルを移動させて、マウスのキー操作で、「押す」「離す」を行い、
３）ファイルの初期化の問合せの警告が出るので、キー操作で、「Ｙ」を押し、
４）データファイルの名称をクリップボードにコピーし
５）ＥＸＣＥＬのカレントフォルダを、データファイルのあるフォルダに変えて
６）DoＥventsとして、フリーソフトのデータファイル入力画面を開いています。
この時、画面のポインタは、データ入力画面のファイル名入力欄にあり、
この後、データファイル名をクリップボードから入力したいので、
キー操作で、「ｃｒｔｌ＋ｖ」としたいのですが
フリーソフトのマクロが起動中で、作成している処理マクロに制御が移らないためと思いますが
入力できません。（人手での入力は可能ですが）、自動化したいので、どの様にすれば良いか教えて下さい。
マクロは長いので、抜粋して記載します。
sub a()
（宣言文省略します。）
Workbooks.Open freesoft
Dim mPSet As Long
mPSet = SetCursorPos(b,c)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
keybd_event VK_Y, 0, fKEYDOWN, 0
keybd_event VK_Y, 0, fKEYUP, 0
Application.CutCopyMode = False
Dim d As New DataObject
With d
.SetText e
.PutInClipboard
End With
ChDrive f
ChDir g
DoEvents
（ここで、止まります。）
With d
.GetFromClipboard
.GetText
End With
keybd_event VK_RETURN, 0, fKEYDOWN, 0
keybd_event VK_RETURN, 0, fKEYUP, 0
DoEvents
Dim mPSet2 As Long
mPSet2 = SetCursorPos(h, i)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Workbooks(freesoft).SaveAs FileFormat:=xlNormal, Filename:=k
Workbooks(k).Close
End sub
excel vbaで、他のEXCELファイルのマクロの処理を中断して、自己ファイルのマクロを処理後、再度他のEXCELファイルのマクロを継続して再度処理を行わせるにはどうすれば良いですか。教えて下さい
他のＥＸＣＥＬファイルとして、フリーソフトを利用しています。
そのソフトは、モジュールにロックが掛ってるので、その中のマクロなどを編集することはできません。（ロック解除などは考えていません。）
そのソフトを起動して、データファイル入力画面で、データファイルを入力して、処理をして、処理結果を保存することを、入力データファイルを変えながら、繰り返し行いたいです。
そこで、処理マクロを作成しています。その手順とＶＢＡを説明します。
１）フリーソフトを開き、
２）そのフリーソフトのシート内のボタンを、ＶＢＡで、マウスカーソルを移動させて、マウスのキー操作で、「押す」「離す」を行い、
３）ファイルの初期化の問合せの警告が出るので、キー操作で、「Ｙ」を押し、
４）データファイルの名称をクリップボードにコピーし
５）ＥＸＣＥＬのカレントフォルダを、データファイルのあるフォルダに変えて
６）DoＥventsとして、フリーソフトのデータファイル入力画面を開いています。
この時、画面のポインタは、データ入力画面のファイル名入力欄にあり、
この後、データファイル名をクリップボードから入力したいので、
キー操作で、「ｃｒｔｌ＋ｖ」としたいのですが
フリーソフトのマクロが起動中で、作成している処理マクロに制御が移らないためと思いますが
入力できません。（人手での入力は可能ですが）、自動化したいので、どの様にすれば良いか教えて下さい。
マクロは長いので、抜粋して記載します。
sub a()
（宣言文省略します。）
Workbooks.Open freesoft
Dim mPSet As Long
mPSet = SetCursorPos(b,c)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
keybd_event VK_Y, 0, fKEYDOWN, 0
keybd_event VK_Y, 0, fKEYUP, 0
Application.CutCopyMode = False
Dim d As New DataObject
With d
.SetText e
.PutInClipboard
End With
ChDrive f
ChDir g
DoEvents
（ここで、止まります。）
With d
.GetFromClipboard
.GetText
End With
keybd_event VK_RETURN, 0, fKEYDOWN, 0
keybd_event VK_RETURN, 0, fKEYUP, 0
DoEvents
Dim mPSet2 As Long
mPSet2 = SetCursorPos(h, i)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Workbooks(freesoft).SaveAs FileFormat:=xlNormal, Filename:=k
Workbooks(k).Close
End sub
アクセス初心者です。
見よう見まねでユニオンクエリを変更しているのですが、結果に日付設定以外のデータも含まれてしまいます。
【＜データ＞に含まれる次の条件結果を一括で抽出したい】
(1) 商品が 'バニラ'か、 'チョコ'か、'イチゴ'か、'バナナ'で、かつ、お届け日が180日前～30日後（今日から）までのもの。
(2) 商品が 'ヨーグルト'で、かつ産地に ‘北海道’を含む言葉が含まれている、かつ、お届け日が180日前～90日後（今日から）までのもの。
SELECT *
FROMデータ
WHERE [商品] = 'バニラ'
OR [商品] = 'チョコ'
OR [商品] = 'イチゴ'
OR [商品] = 'バナナ'
AND [お届け日] between Date()-180 and Date()+30
UNION SELECT *
FROM データ
WHERE [商品] = 'ヨーグルト'
AND [産地] LIKE '*北海道*'
AND [お届け日] between Date()-180 and Date()+90;
どこを修正したら日付範囲が正しく抽出されるのか、教えていただけませんか？？
