助けてください！VBAでのテキスト抽出方法について| OKWAVE

【至急】VBAを使ったHTTPタグの取得方法

どなたか助けていただけないでしょうか？以下の構文で、特定のHTTPタグの中身（テキスト）を抽出してます。ですが、同じタブがあると以下の構文では一部しか抽出できません。全てを抽出しExcelに出力したいのですがどのように記述すればよろしいでしょうか？ ※やりたいことタブの内容をエクセルに出力１つめ Set rURLa = rURLa.Offset(1)　へ出力 2つめ Set rURLa = rURLa.Offset(2)　へ出力 3つめ Set rURLa = rURLa.Offset(3)　へ出力 Private Sub CommandButton1_Click() Dim aURLa As String Dim l As Object Dim TL As Object Set rURLa = Range("B4") Do If rURLa = "" Then Exit Do Dim oIE As Object Set oIE = CreateObject("InternetExplorer.Application") oIE.Navigate rURLa Application.Wait [Now() + "0:00:10"] '10秒待つ While oIE.Busy Or oIE.ReadyState <> 4 DoEvents Wend For Each TL In oIE.Document.getElementsByTagName("div") 'spanタグを探す If TL.GetAttribute("class") = "title" Then 'class="title"なら rURLa.Offset(, 1) = TL.innerText Set rURLa = rURLa.Offset(1) End If Next oIE.Quit Set oIE = Nothing Loop MsgBox "リンク抽出完了" End Sub

画像抽出するVBAで画像を同じサイズにしたい

サイトから画像を抽出する下記のVBAで、出力される結果について（１）画像の縦横比（サイズ）をすべて同じにしたい（２）（１）にあわせたセルのサイズにしたい（３）２列出力を３列出力にしたいのですが、どのようなソースに変更すればよいでしょうか？教えていただけると幸いです。 Sub hoge() 　　Dim oIE As Object 　　Dim e As Object 　　Dim i As Long 　　Dim j As Long 　　ActiveSheet.DrawingObjects.Delete 　　Rows.RowHeight = 140 　　Columns.ColumnWidth = 40 　　Set oIE = CreateObject("InternetExplorer.Application") 　　oIE.Visible = True 　　oIE.navigate "https://pro.foto.ne.jp/free/products_list.php/cPath/21_28_71" 　　Do While oIE.Busy Or oIE.ReadyState <> 4 　　　　DoEvents 　　Loop 　　Range("A1").Select 　　i = 1: j = 1 　　For Each e In oIE.Document.getElementsByTagName("img") 　　　　If LCase(e.nameProp) Like "*.jpg" _ 　　　　　　Or LCase(e.nameProp) Like "*.png" Then 　　　　　　Cells(i, j).Select 　　　　　　ActiveSheet.Pictures.Insert e.href 　　　　　　If j = 2 Then 　　　　　　　　i = i + 1 　　　　　　End If 　　　　　　If j = 1 Then 　　　　　　　　j = 2 　　　　　　Else 　　　　　　　　j = 1 　　　　　　End If 　　　　End If 　　Next 　　oIE.Quit End Sub

【VBA】IEのCookieなどの削除方法

こんにちわ。 Excel VBAで「自動でIEを起動してyahooを表示」するマクロを作成しています。質問ですが、IEオブジェクトを作成したタイミングでCookieなどを削除するには、どのようにすればよろしいしょうか？ ※IEの[インターネットオプション] - [全般]タブ - [閲覧の履歴]にある削除（全削除）と同じ処理を実装したいです。 -------------------------------------------------- Dim oIe As Object Set oIe = CreateObject("InternetExplorer.Application") ' ★ここで削除したい oIe.Visible = True oIe.Navigate "http://www.yahoo.co.jp/" -------------------------------------------------- お忙しいところ大変申し訳ありませんが、ご教授をお願い致します。以上です。 ++++++++++++++++++++ 【環境】 OS：WinXP 以上ブラウザ：IE7 以上 Excel：Excel2007 以上 ++++++++++++++++++++

ＶＢＡを始めたばかりです。

ＶＢＡを始めたばかりです。下記でエラー「オブジェクトが必要です」が出ます。何故ですか。 Sub A_Sample048() Dim mySht1 As Object Dim mySht2 As Worksheet '準備ここまで Set mySht1 = ActiveSheet If mySht1.Type = xlWorksheet Then Set mySht2 = mySht1 MsgBox mySht2.Name Else MsgBox "最前面のシートはワークシートではありません" End If Set mySht1 = Nothing 'オブジェクトの解放 Set mySht2 = Nothing End Sub よろしくお願いします。

エクセルVBA抽出がうまく出来ません

エクセル2013VBA初心者です。入力シートからＤＢシートへ、ＤＢシートから印刷シートへのデータ転記と印刷、入力内容のクリアまでは出来るようになりました。ＤＢシートの検索を行い、記録内容を入力シートに転記する抽出を行いたいのですが、下記構文を書いたところで問題が発生しました。 If Sh2.Range("A & i").Value = j And Sh2.Range("B & i").Value = k Then　でとまります。メッセージは　‘Range’メソッドは失敗しました：‘Workshieet’オブジェクトというものです。やろうとしていることは、入力シートに設けた“E12”と”G12”の二つの検索項目をキーにDBシートの行を特定し、この行の内容を入力シートに反映しようということです。入力シートの検索項目“E12”、 ”G12”はそれぞれDBシートのA列、B列に格納されている項目で、年度と連番です。サンプルとして入力シート"C5"に抽出しようとしているDBシートD列は申請者名です。恐れ入りますがよろしくご教示頂きたく、お願い申し上げます。 Sub DBシートから力情報を抽出する () Dim Sh1 As Worksheet Dim Sh2 As Worksheet Dim i As Long Dim j As Long Dim k As Long Set Sh1 = Worksheets("入力") Set Sh2 = Worksheets("DB") j = Sh1.Range("E12").Value k = Sh1.Range("G12").Value With Sh2 For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row If Sh2.Range("A & i").Value = j And Sh2.Range("B & i").Value = k Then Sh1.Range("C5").Value = Sh2.Range("D & i").Value End If Next 　End With End Sub

VBAが止まります。

皆さん、いつもありがとうございます。下から14行目の『 objMail.Attachments.Add asrs1』で止まってしまします。下から14行目の『 objMail.Attachments.Add asrs1』で止まってしまします。 asrs1をadrs1へ修正したりしましたが、改善されません。昨日まで動いたいたのですが。皆様、修正方法を教えていただけますでしdょうか。 ------------------------------------------------------- Sub メール作成() Dim objOutlook As Outlook.Application Dim objMail As Outlook.MailItem Dim wsMail As Worksheet Dim filead As String Dim tenp1 As String Dim tenp2 As String 'メール立ち上げ Set objOutlook = New Outlook.Application Set wsMail = ThisWorkbook.Sheets("リスト") '添付ファイルのアドレスを変数にする filead = Worksheets("リスト").Range("B3").Value '共通添付データのアドレスを読む tenp1 = filead & "\" & Worksheets("リスト").Range("B4") tenp2 = filead & "\" & Worksheets("リスト").Range("B5") Dim kobetsumail1 As String Dim kobetsumail2 As String Dim adrs1 As String Dim asrs2 As String '変数iを設定。最初は1 Dim i As Long i = 1 '送付前の確認メッセージ Dim rc As Long rc = MsgBox("記載に誤りが無いことを確認しましたか？", vbYesNo + vbQuestion, "確認") If rc = vbNo Then MsgBox "中断しました" End End If '基準となるセルを選択 Worksheets("リスト").Select Range("B7").Select '取引先名が書かれているB列が空欄になるまで続ける Do Until ActiveCell.Offset(i, 0).Value = "" '送付チェック欄が○なら作業を続ける If ActiveCell.Offset(i, 2).Value = "○" Then Set objMail = objOutlook.CreateItem(olMailTtem) '個別メールのデータ名称を読む Dim CC12(1) As String CC12(0) = ActiveCell.Offset(i, 6).Value CC12(1) = ActiveCell.Offset(i, 8).Value 'メールを作成する With wsMail objMail.to = ActiveCell.Offset(i, 4).Value objMail.CC = Join(CC12, ";") objMail.Subject = Range("B1").Value objMail.Bodyformat = olFormatPlain objMail.body = Range("B7").Offset(i, 0) & vbCrLf & Range("E7").Offset(i, 0) & "様" & vbCrLf & vbCrLf & Range("B2").Value & vbCrLf & vbCrLf kobetsumail1 = ActiveCell.Offset(i, 9).Value asrs1 = filead & "\" & kobetsumail1 kobetsumail2 = ActiveCell.Offset(i, 10).Value asrs2 = filead & "\" & kobetsumail2 If Range("B4").Value <> "" Then objMail.Attachments.Add tenp1 End If If Range("B5").Value <> "" Then objMail.Attachments.Add tenp2 End If If ActiveCell.Offset(i, 9).Value <> "" Then objMail.Attachments.Add asrs1 End If If ActiveCell.Offset(i, 10).Value <> "" Then objMail.Attachments.Add asrs2 End If objMail.Display objMail.Save End With End If i = i + 1 Loop Set objOutlook = Nothing MsgBox "下書きに保管しました" End Sub

エクセルでURLからタイトルのみを抽出する方法

URLからタイトルを抽出するマクロについて教えて下さい。忍者ブログの記事タイトルをURLから抽出しようとしたのですが文字化けしてしまい全く分かりません。他のサイトやブログだと普通に抽出出来るのですが・・・文字コード？か何かだと思うのですが、原因が分かりません。ちなみに以下のマクロは、ネット上で検索して見つけたものをそのままコピーして使用しています。－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Public Sub ReadTitle() Dim url As Range Dim Http, buf As String Set Http = CreateObject("MSXML2.XMLHTTP") Set url = Range("A3") Do While (url.Value <> "") Http.Open "GET", url.Value, False Http.Send buf = StrConv(Http.ResponseBody, vbUnicode) 'msgbox buf url.Offset(0, 1).Value = getTitle(buf) Set url = url.Offset(1, 0) Loop Set Http = Nothing End Sub Private Function getTitle(buf As String) As String Dim pos1 As Long, pos2 As Long pos1 = InStr(1, buf, "<title>") If pos1 = 0 Then pos1 = InStr(1, buf, "<TITLE>") If pos1 = 0 Then getTitle = "" Exit Function Else pos2 = InStr(pos1 + 7, buf, "</TITLE>") End If Else pos2 = InStr(pos1 + 7, buf, "</title>") End If getTitle = Mid(buf, pos1 + 7, pos2 - pos1 - 7) End Function －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－宜しくお願い致します。

VBAについて

以下のプログラムは、1年間の価格合計を求めるプログラムです。これを実行するとうまくいくこともありますが、エラーが起きることもあります。どうやら下記コードが原因のようなのですが、間違いがわかりません。 Target.Offset(0, 1).Value = run * (13 - month) どこが間違っているのでしょうか。また最終的に、A行かB行のどちらかが更新されたときにこのプログラムを実行させたいのですが、方法がわかりません。無知な質問ではありますが、どなたか教えてください。 --------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim month As Integer Dim run As Integer If Intersect(Target, Range("A25:A35")) Is Nothing Then Exit Sub Else If Target.Offset(0, -2).Value <> "" Then month = Target.Offset(0, -2).Value month = month - 3 If month = -2 Then month = 10 ElseIf month = -1 Then month = 11 ElseIf month = 0 Then month = 12 End If run = Target.Offset(0, 0).Value Target.Offset(0, 1).Value = run * (13 - month) End If End If End Sub

VBAでdim sh as worksheet

にifで出た結果を抽出？したいのですがどうすればいいですか？ Dim ssh As Worksheet Set ssh = ThisWorkbook.Worksheets If ～　　　　　　　　　Thenの後にどうやればsshの中に入りますか？

VBAでのフォルダ指定方法について

ＥＸＣＥＬファイルが保存されているディレクトリ配下のフォルダーを指定できるようにしたくていろいろ試してみたのですが、うまくいきません。どなたか、お知恵をお貸しください。以下ソースです。 Private Sub CommandButton1_Click() Dim ShellApp As Object Dim oFolder As Object Dim MyPath As String MyPath = ActiveWorkbook.Path Set ShellApp = CreateObject("Shell.Application") Set oFolder = ShellApp.BrowseForFolder(0, "処理ファイルの格納フォルダ選択", 1, MyPath) If Not oFolder Is Nothing Then TextBox1.Value = oFolder.Items.Item.Path End If Set ShellApp = Nothing Set oFolder = Nothing End Sub

VBA　InStrがうまくできない

ソースを見ると <div class="hd"> と言うタグは有るのに VBAで Sub test() Dim objIE As Object Dim myObj As Object Dim str電話番号 As String Dim strHTML As Variant Dim intstart As Variant str電話番号 = "03-58**-58**" Set objIE = CreateObject("MSXML2.XMLHTTP") objIE.Open "GET", "http://search.loco.yahoo.co.jp/search?p=" & str電話番号, False objIE.send strHTML = objIE.responseText intstart = InStr(1, strHTML, "<div class=""hd"">") End Sub とした時にintstartは0が返ります。なぜソース上は<div class="hd">は存在するのに 0が返るのでしょうか?

vbaで正規表現

正規表現のコードなんですが、上手く動きません。何故でしょうか… Sub Test() Dim reg As Object Dim ans As Object Dim c As Range Set reg = CreateObject("VBScript.RegExp") For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)) With reg .Pattern = "^【[(1)-(20)](\d*/\d*)" Set ans = .Execute(c.Value) End With If ans > 0 Then If Len(ans(0).submatches(0)) > 0 Then Debug.Print c.Address & "|" & ans(0).submatches(0) End If End If Next End Sub

VBAで、デバッグをお願いします。

作りたいプログラムはpartsno_01から、partsno_20までのテキストボックスに、エクセルのセルA1から、A20までにある製品番号を入力し、データをsubmitするものです。 Sub pn() Dim ObjIE As Object Dim ObjShell As Object Dim ObjWindow As Object Dim WinExist As Boolean WinExist = False Set ObjShell = CreateObject("Shell.Application") For Each ObjWindow In ObjShell.Windows If TypeName(ObjWindow.document) = "HTMLDocument" Then WinExist = True Set ObjIE = ObjWindow End If Next Set ObjShell = Nothing If Not WinExist = True Then MsgBox "製品番号検索を開いてください。" Exit Sub End If ObjIE.Visible = True Do While i < 21 i = 1 Set elements = ObjIE.document.getElementsByName("partsno_0" & "i") If elements Is Nothing Then Exit Sub End If elements.Item(0).Value = Worksheets(1).Cells(i, 1).Value i = i + 1 Loop End Sub で、 elements.Item(0).Value = Worksheets(1).Cells(1, 1).Value が常にエラーになります。間違っていはいないと思うんですが・・・・。何がいけないのでしょうか。

VBAでoutlook365が起動しません。

VBAでoutlook365が起動しません。EXCELまたは、OUTLOOK設定がおかしいのでしょうか。メール一括作成のボタンを押しても『記載に誤りが無いことを確認しましたか？』『"送信完了しました』のメッセージは出るのですが、outlookが起動しませんし下書ホルダにも保存されません。 EXCELは他のマクロは動作しますし、Outlookはセキュリティ(トラストセンター)設定も有効です。どなたかご教示いただけますようお願いいたします。添付でEXCEL画面の画像と下記に対象の記述を記します。 ------------------------------------------------------- Sub メール作成() Dim objOutlook As Outlook.Application Dim objMail As Outlook.MailItem Dim wsMail As Worksheet Dim filead As String Dim tenp1 As String Dim tenp2 As String 'メール立ち上げ Set objOutlook = New Outlook.Application Set wsMail = ThisWorkbook.Sheets("リスト") '添付ファイルのアドレスを変数にする filead = Worksheets("リスト").Range("B3").Value '共通添付データのアドレスを読む tenp1 = filead & "\" & Worksheets("リスト").Range("B4") tenp2 = filead & "\" & Worksheets("リスト").Range("B5") Dim kobetsumail1 As String Dim kobetsumail2 As String Dim adrs1 As String Dim asrs2 As String '変数iを設定。最初は1 Dim i As Long i = 1 '送付前の確認メッセージ Dim rc As Long rc = MsgBox("記載に誤りが無いことを確認しましたか？", vbYesNo + vbQuestion, "確認") If rc = vbNo Then MsgBox "中断しました" End End If '基準となるセルを選択 Worksheets("リスト").Select Range("B7").Select '取引先名が書かれているB列が空欄になるまで続ける Do Until ActiveCell.Offset(i, 0).Value = "" '送付チェック欄が○なら作業を続ける If ActiveCell.Offset(i, 2).Value = "○" Then Set objMail = objOutlook.CreateItem(olMailTtem) '個別メールのデータ名称を読む Dim CC12(1) As String CC12(0) = ActiveCell.Offset(i, 6).Value CC12(1) = ActiveCell.Offset(i, 8).Value 'メールを作成する With wsMail objMail.to = ActiveCell.Offset(i, 4).Value objMail.CC = Join(CC12, ";") objMail.Subject = Range("B1").Value objMail.Bodyformat = olFormatPlain objMail.body = Range("B7").Offset(i, 0) & vbCrLf & Range("E7").Offset(i, 0) & "様" & vbCrLf & vbCrLf & Range("B2").Value & vbCrLf & vbCrLf kobetsumail1 = ActiveCell.Offset(i, 9).Value asrs1 = filead & "\" & kobetsumail1 kobetsumail2 = ActiveCell.Offset(i, 10).Value asrs2 = filead & "\" & kobetsumail2 If Range("B4").Value <> "" Then objMail.Attachments.Add tenp1 End If If Range("B5").Value <> "" Then objMail.Attachments.Add tenp2 End If If ActiveCell.Offset(i, 9).Value <> "" Then objMail.Attachments.Add asrs1 End If If ActiveCell.Offset(i, 10).Value <> "" Then objMail.Attachments.Add asrs2 End If objMail.Display End With End If i = i + 1 Loop Set objOutlook = Nothing MsgBox "送信完了しました" End Sub

エクセルVBAのSetステートメントについて(長文）

Sub PlusA002() Dim myTgCell As Range Dim myCounter As Integer Set myTgCell = Range("E2") Do Until myTgCell.Value = Empty If myTgCell.Value >= 80 Then myTgCell.Offset(0, 1).Value = "優" ElseIf myTgCell.Value < 80 And myTgCell.Value > 50 Then myTgCell.Offset(0, 1).Value = "良" Else myTgCell.Offset(0, 1).Value = "追試" End If Set myTgCell = myTgCell.Offset(1, 0) Loop End Sub このプログラムを例にして、Setステートメントについて質問します。Set myTgCell = Range("E2")を削除して実行すれば実行エラーという文言がでるし、またSet myTgCell = myTgCell.Offset(1, 0)を削除すればエクセルが固まるし、Setがこのプログラムに対して必要なのは判ります。しかし、Setがどのような役割を果たしているのかVisualBasicEditorのヘルプを見ても判りません。どのような場面で使えるものなのですか？どなたか教えてください。

VBAで起動しているIEの操作

IEでOKWAVEを開いていたら　イミディエイトウィンドウに　タイトルを表示するのに次の　記述をしましたが　エラーになりました。実行時エラー '-2147467259 (80004005)': 'Document' メソッドは失敗しました: 'IWebBrowser2' オブジェクトなぜでしょうか？ IEは１１です。エクセルは2013 OSは　windows７　ホームプレミアム vbsは次の通り Sub okwave() Dim colSh As Object Dim win As Object Dim strTemp As String Dim objIE As Object Set colSh = CreateObject("Shell.Application") For Each win In colSh.Windows If TypeName(win.document) = "HTMLDocument" Then If InStr(win.document.Title, "okwave") > 0 Then Set objIE = win Exit For End If End If Next Debug.Print objIE.document.Title End Sub

エクセルVBAでアクセスデータベースを抽出して読み込む方法

エクセルVBAでアクセスデータベースを抽出して読み込む方法アクセスで見積の提出情報のデータベースを作成しています。このデータベースをエクセルのフォームで日付指定し抽出したいと考えております。データベースの全てを読み込む事には成功したのですが、いざフォームを作成し日付を入力。実行したのですが、日付の構文エラーとなってしまいました。抽出条件を表すSQLステートメントがおかしいのかもしれません。どこを訂正したらよいのでしょうか？ Private Sub CommandButton1_Click() 　Dim rcs As ADODB.Recordset 　Dim cnStr As String, sqlStr As String 　Dim sday As Date 　sday = TextBox1.Text '一覧のクリア、始点へ移動　Range("A5:N300").Select 　Selection.ClearContents 　Range("A5").Select 'データベースの保存場所　cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Accexl\見積予定.mdb" '検索条件　sqlStr = " SELECT * FROM 予定表 WHERE 作成日 = # sday #" 'データベースの読込、コピー、閉じる　Set rcs = New ADODB.Recordset 　rcs.Open Source:=sqlStr, ActiveConnection:=cnStr, CursorType:=adOpenStatic 　ActiveCell.CopyFromRecordset rcs 　rcs.Close 　Set rcs = Nothing 　　Range("C:C,E:E").Select 　　Selection.NumberFormatLocal = "h:mm;@" 　　Range("B:B,D:D").Select 　　Selection.NumberFormatLocal = "m/d;@" 　Range("A3").Activate End Sub フォームの中にテキストボックス(日付を入力)、コマンドボタン(検索実行)を配置しています。テキストボックスには日付表示するようにしています。 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim ret As Long 　　ret = 0 　　If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then 　　　　With TextBox1 　　　　　　.Text = Replace(.Text, "/", "") 　　　　　　If IsNumeric(.Text) Then 　　　　　　　If IsDate(Format(.Text, "0000""/""00""/""00")) Then 　　　　　　　　.Text = Format(.Text, "0000""/""00""/""00") 　　　　　　　　Else 　　　　　　　　　ret = 1 　　　　　　　　End If 　　　　　　Else 　　　　　　　ret = 1 　　　　　　End If 　　　　　If ret = 1 Then 　　　　　　MsgBox "日付指定です" 　　　　　　KeyCode = 0 　　　　End If 　　　　End With 　　　End If End Sub

エクセルVBA

A列を基準にBC列が空白ならAの数値を入れて、A>BならB列を更新、A<CならC列を更新 A列が数値以外ならその行をスキップ、という処理をしたいのですが Option Explicit Dim A As Range, B As Range, C As Range Dim i As Long Sub test() For i = 1 To 10 Set A = Cells(i, 1) Set B = A.Offset(0, 1) Set C = A.Offset(0, 2) If IsNumeric(A) Then Else Exit Sub End If If B.Value = "" Then B.Value = A.Value If C.Value = "" Then C.Value = A.Value If A.Value > B.Value Then B.Value = A.Value If A.Value < C.Value Then C.Value = A.Value Next i End Sub とすると数値以外の行の時点で停止してしまいます。その行を飛ばして次の行に進むにはどうしたらいいのでしょうか？

特定の文字以外を入力すると別シートに表記する方法

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim StrRow As Long Dim TgtCol As Long Dim MaxRow As Long Dim ChgRow As Long Dim PutSh1 As Worksheet Dim PutSh2 As Worksheet Dim PutSh3 As Worksheet Dim PutCol As Long Dim PutRow As Long Dim ChgRng1 As Range Dim ChgRng2 As Range Dim ChgRng3 As Range StrRow = 5 MaxRow = 35 If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub Set PutSh1 = ThisWorkbook.Sheets("Sheet2") Set PutSh2 = ThisWorkbook.Sheets("Sheet3") Set PutSh3 = ThisWorkbook.Sheets("Sheet4") With ThisWorkbook.Sheets("Sheet1") Set ChgRng1 = Range(.Cells(StrRow, 3), .Cells(MaxRow, 3)) 'C列 Set ChgRng2 = Range(.Cells(StrRow, 5), .Cells(MaxRow, 5)) 'E列 Set ChgRng3 = Range(.Cells(StrRow, 7), .Cells(MaxRow, 7)) 'G列 End With ChgRow = Target.Row If Not Intersect(Target, ChgRng1) Is Nothing Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + 1 DataPut PutSh1, ChgRow, Target.Value End If If Not Intersect(Target, ChgRng2) Is Nothing Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + 1 DataPut PutSh2, ChgRow, Target.Value End If If Not Intersect(Target, ChgRng3) Is Nothing Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + 1 DataPut PutSh3, ChgRow, Target.Value End If End Sub 以前質問させて頂いた内容で追加の質問です。 Sheet1の指定したセルに「ー（ハイフン）」の文字がある時は、Sheet2〜4に転送（表記）しない方法を追加する場合はどの様にすれば宜しいでしょうか？

VBAのIF構文について

VBAでまたわからないところが出てきたので質問させてください。 ActiveWorkbookのworksheet1のa1セルに何か文字列が入っていると仮定して、下記のstrSUB に入る文字列をifで分岐させたいのですが、どのような構文が適していますでしょうか？下記の内容では、エラーになってしまいます。識者の方々、よろしくお願いいたします。 ----------------------------------------------------------------- Sub test送信メール作成() Dim oApp As Object Dim objMAIL As Object Dim strSUB As String Dim strBODY As String Set oApp = CreateObject("Outlook.Application") Set objMAIL = oApp.CreateItem(0) strSUB = if ActiveWorkbook.Worksheets(1).range("a1") = "abc" then "aaa" Else "bbb" End If strBODY = "a" & vbCrLf _ & "b" & vbCrLf _ & "c" With objMAIL .To = "aaa@bbb.com" .CC = "ccc@ddd.com" .Subject = strSUB .Body = strBODY .Display End With End Sub

助けてください！VBAでのテキスト抽出方法について

みんなの回答

関連するQ&A

【至急】VBAを使ったHTTPタグの取得方法

画像抽出するVBAで画像を同じサイズにしたい

【VBA】IEのCookieなどの削除方法

ＶＢＡを始めたばかりです。

エクセルVBA抽出がうまく出来ません

VBAが止まります。

エクセルでURLからタイトルのみを抽出する方法

VBAについて

VBAでdim sh as worksheet

VBAでのフォルダ指定方法について

VBA　InStrがうまくできない

vbaで正規表現

VBAで、デバッグをお願いします。

VBAでoutlook365が起動しません。

エクセルVBAのSetステートメントについて(長文）

VBAで起動しているIEの操作

エクセルVBAでアクセスデータベースを抽出して読み込む方法

エクセルVBA

特定の文字以外を入力すると別シートに表記する方法

VBAのIF構文について

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

助けてください！VBAでのテキスト抽出方法について

みんなの回答

関連するQ&A

【至急】VBAを使ったHTTPタグの取得方法

画像抽出するVBAで画像を同じサイズにしたい

【VBA】IEのCookieなどの削除方法

ＶＢＡを始めたばかりです。

エクセルVBA抽出がうまく出来ません

VBAが止まります。

エクセルでURLからタイトルのみを抽出する方法

VBAについて

VBAでdim sh as worksheet

VBAでのフォルダ指定方法について

VBA InStrがうまくできない

vbaで正規表現

VBAで、デバッグをお願いします。

VBAでoutlook365が起動しません。

エクセルVBAのSetステートメントについて(長文）

VBAで起動しているIEの操作

エクセルVBAでアクセスデータベースを抽出して読み込む方法

エクセルVBA

特定の文字以外を入力すると別シートに表記する方法

VBAのIF構文について

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VBA　InStrがうまくできない

カテゴリ
一覧

専門家に質問してみよう
専門家登録