Shift_JISのサイトで認識できない問題と解決方法| OKWAVE

サイトタイトルに、指定した語句があれば○

下記のマクロは、指定範囲のURL先のソースに、指定した語句があれば、○を付けるマクロです。指定した語句をソース全て対象にせずに、 <title></title>のサイトタイトルの中にあれば、○を付けるというようにしたいです。ちなみに、調べたいのは語句ではないですが、"【"というカッコです。・下記のマクロ URL先のソース全体の中に、指定した語句があれば○ ・希望のマクロ <title></title>（サイトタイトル）の中に、指定した語句があれば○ どの部分を修正、または追加すればできるようになりますか？よろしくお願いいたします。 Sub 指定した語句() '!!!! [Microsoft XML v6.0] に参照設定すること Dim xHttp As IServerXMLHTTPRequest Dim myErr_Number As Long, myErr_Description As String Set xHttp = CreateObject("MSXML2.ServerXMLHTTP") Dim aCell As Range R = 1 For Each aCell In Selection.Columns(1).Cells '選択セルの1列目がURL Application.Goto aCell '対象URLの列にジャンプ表示 DoEvents sUrl = aCell.Value If sUrl <> "" Then xHttp.Open "GET", sUrl, True xHttp.setOption SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS, _ SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS ' SSL関係のエラーを無視 On Error Resume Next xHttp.send If xHttp.readyState <> 4 Then xHttp.waitForResponse 5 '5秒まってだめならタイムアウト End If If xHttp.readyState <> 4 Then Err.Raise 1004, , "タイムアウト" myErr_Number = Err.Number myErr_Description = Err.Description On Error GoTo 0 If myErr_Number = 0 Then sHtml = xHttp.responseText nRtn = InStr(sHtml, "指定した語句") If nRtn = 0 Then aCell.Offset(, 1).Value = "--" Else aCell.Offset(, 1).Value = "○" End If Else aCell.Offset(, 1).Value = myErr_Description ' エラー時はエラー内容を表示 End If DoEvents End If Next Set xHttp = Nothing End Sub

サイトタイトルの中に、指定した語句があれば○

下記は、URL先のソースの中に、指定した語句があれば、○を付けるマクロです。このURL先のソース、全てを対象にするのではなく、 <title></title>、つまりサイトタイトルの中に、指定した語句があれば、○を付けるというように制限して調べたいです。・下記のマクロ URL先のソース全体の中に、指定した語句があれば○ ・希望のマクロ <title></title>（サイトタイトル）の中に、指定した語句があれば○ これは、どの部分を修正、追加すればできるようになるでしょうか？また、「指定した語句」の他にも、「指定した語句２」「指定した語句３」、つまり、<title></title>の中に、「●●」「▲▲」「■■」のどれかが含まれていたら、隣のセルに○を付ける。という風にしたいです。ソース全体で調べるなら、 nRtn = InStr(sHtml, "●●") + InStr(sHtml, "▲▲") + InStr(sHtml, "■■") で出来ると思うのですが、制限させて調べる場合は、どのような記述になるでしょうか？よろしくお願いいたします。 Sub 指定した語句() '!!!! [Microsoft XML v6.0] に参照設定すること Dim xHttp As IServerXMLHTTPRequest Dim myErr_Number As Long, myErr_Description As String Set xHttp = CreateObject("MSXML2.ServerXMLHTTP") Dim aCell As Range R = 1 For Each aCell In Selection.Columns(1).Cells '選択セルの1列目がURL Application.Goto aCell '対象URLの列にジャンプ表示 DoEvents sUrl = aCell.Value If sUrl <> "" Then xHttp.Open "GET", sUrl, True xHttp.setOption SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS, _ SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS ' SSL関係のエラーを無視 On Error Resume Next xHttp.send If xHttp.readyState <> 4 Then xHttp.waitForResponse 5 '5秒まってだめならタイムアウト End If If xHttp.readyState <> 4 Then Err.Raise 1004, , "タイムアウト" myErr_Number = Err.Number myErr_Description = Err.Description On Error GoTo 0 If myErr_Number = 0 Then sHtml = xHttp.responseText nRtn = InStr(sHtml, "指定した語句") If nRtn = 0 Then aCell.Offset(, 1).Value = "--" Else aCell.Offset(, 1).Value = "○" End If Else aCell.Offset(, 1).Value = myErr_Description ' エラー時はエラー内容を表示 End If DoEvents End If Next Set xHttp = Nothing End Sub

「A」「B」「C」「D」のすべての語句があれば○

下記のマクロは、「A」があったら○を付けるというものです。「A」があったら・・・というのを、「A」「B」「C」「D」のすべての語句があれば○、というようにしたいです。それは、どのような記述に変更すればできるでしょうか？よろしくお願いいたします。 Sub main() '!!!! [Microsoft XML v6.0] に参照設定 Dim xHttp As IServerXMLHTTPRequest Dim myErr_Number As Long, myErr_Description As String Set xHttp = CreateObject("MSXML2.ServerXMLHTTP") Dim aCell As Range R = 1 For Each aCell In Selection.Columns(1).Cells Application.Goto aCell DoEvents sUrl = aCell.Value If sUrl <> "" Then xHttp.Open "GET", sUrl, True xHttp.setOption SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS, _ SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS On Error Resume Next xHttp.send If xHttp.readyState <> 4 Then xHttp.waitForResponse 5 End If If xHttp.readyState <> 4 Then Err.Raise 1004, , myErr_Number = Err.Number myErr_Description = Err.Description On Error GoTo 0 If myErr_Number = 0 Then sHtml = xHttp.responseText nRtn = InStr(sHtml, "A") If nRtn = 0 Then aCell.Offset(, 1).Value = "--" Else aCell.Offset(, 1).Value = "○" End If Else aCell.Offset(, 1).Value = myErr_Description DoEvents End If Next Set xHttp = Nothing End Sub

キーワードが全部あるのに、○が付かない

下記のマクロは、URL先のソースの中に、「赤ちゃん」「妊婦」「ママ」「水」「ウォーター」のどれかがあれば、隣に○を付けるというものです。ですが、 https://www.andrea-pennington.com/ こちらのサイトを調べたところ、キーワードが全部あるのに、○が付かず--でした。マクロの記述がどこかおかしいでしょうか？ソースの中に、どれかのキーワードがあれば、 ○が付くようにするには、どのような記述になるでしょうか？ Excel２０１６です。よろしくお願いいたします。 Sub main() '!!!! [Microsoft XML v6.0] に参照設定すること Dim xHttp As IServerXMLHTTPRequest Dim myErr_Number As Long, myErr_Description As String Set xHttp = CreateObject("MSXML2.ServerXMLHTTP") Dim aCell As Range R = 1 For Each aCell In Selection.Columns(1).Cells '選択セルの1列目がURL Application.Goto aCell '対象URLの列にジャンプ表示 DoEvents sUrl = aCell.Value If sUrl <> "" Then xHttp.Open "GET", sUrl, True xHttp.setOption SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS, _ SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS ' SSL関係のエラーを無視 On Error Resume Next xHttp.send If xHttp.readyState <> 4 Then xHttp.waitForResponse 5 '5秒まってだめならタイムアウト End If If xHttp.readyState <> 4 Then Err.Raise 1004, , "タイムアウト" myErr_Number = Err.Number myErr_Description = Err.Description On Error GoTo 0 If myErr_Number = 0 Then sHtml = xHttp.responseText nRtn = InStr(sHtml, "赤ちゃん") + InStr(sHtml, "妊婦") + InStr(sHtml, "ママ") + InStr(sHtml, "水") + InStr(sHtml, "ウォーター") 　　　　　　　　　If nRtn = 0 Then aCell.Offset(, 1).Value = "--" Else aCell.Offset(, 1).Value = "○" End If Else aCell.Offset(, 1).Value = myErr_Description ' エラー時はエラー内容を表示 End If DoEvents End If Next Set xHttp = Nothing End Sub

ASPをPHPに移植したいですが、よい方法があるでしょうか？

ASPをPHPに移植したいですが、よい方法があるでしょうか？ Set httpObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1") If Err.Number <> 0 Then 'error check for http 　Response.Write("エラー：" & Err.Description) 　response.redirect("/ga-ko/error.asp?error=999") 　response.end End If どうぞ、よろしくお願いします。

エクセルVBAで無限ループ

教えてください。以下の２つのエクセルマクロはまったく同じことをさせようとしているのですが、test02の方は.Offset(1).Activateが働かないのか、無限ループに陥ってしまいます。単にActiveCell.という記述をWith～End Withでまとめただけなのになぜこうなるのでしょうか？ Sub test01() ActiveSheet.Cells(1, 1).Activate Do While ActiveCell.Value <> "" If Not IsNumeric(ActiveCell.Value) Then ActiveCell.Offset(0, 1).Value = "文字" ElseIf ActiveCell.Value > 0 Then ActiveCell.Offset(0, 1).Value = "正数" ElseIf ActiveCell.Value < 0 Then ActiveCell.Offset(0, 1).Value = "負数" Else ActiveCell.Offset(0, 1).Value = "その他" End If ActiveCell.Offset(1).Activate i = i + 1 Application.StatusBar = i Loop End Sub Sub test02() ActiveSheet.Cells(1, 1).Activate With ActiveCell Do While .Value <> "" If Not IsNumeric(.Value) Then .Offset(0, 1).Value = "文字" ElseIf .Value > 0 Then .Offset(0, 1).Value = "正数" ElseIf ActiveCell.Value < 0 Then .Offset(0, 1).Value = "負数" Else .Offset(0, 1).Value = "その他" End If .Offset(1).Activate i = i + 1 Application.StatusBar = i Loop End With End Sub

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

exel　vba ワークシートデータを日付にしたい

ワークシートからＦＩＮＤ関数でＩＤ検索し、生年月日の検索値をテキストボックスに表示します。過去データがない場合は日付形式で入力を促すため、日付形式でない場合誕生日EXITでエラーメッセージを表示させます。過去データがあった場合はワークシートからデータを表示するのですが、ワークシートの日付データが25897のような数値で表示されるのでエラーになります。ワークシート自体には日付形式で入力されていても、フォームにＶＢＡで値を引っ張ると数値になってしまいます。数値を日付データに戻して表示はどうすればよいでしょうか？ ’ＩＤを入力した後のＢＶＡです。 ************************************************************************************************* Private Sub TextBoxID_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim FRange As Range If TextBoxID.Text = "" Then Exit Sub End If ID = TextBoxID.Text On Error GoTo ErrHdl Worksheets("data").Activate With ActiveSheet Set FRange = .Range("b2:ｂ65536").Find(ID, LookIn:=xlValues, LookAt:=xlWhole) If FRange Is Nothing Then MsgBox "新規です" Exit Sub End If TextBoxシメイ.Value = FRange.Offset(0, 1).Value TextBox誕生日.Value = FRange.Offset(0, 2).Value sex = FRange.Offset(0, 3).Value If sex = "M" Then OptionButton男.Value = True Else OptionButton女.Value = True End If TextBox体重.SetFocus End With Exit Sub ErrHdl: MsgBox "エラー" & Err.Number & Chr(13) & Err.Description End Sub *********************************************************************************************** Private Sub TextBox誕生日_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(TextBox誕生日.Text) = False Then MsgBox "日付型データで入力.ex:H10/5/5" TextBox誕生日.Value = "" Else Exit Sub End If End Sub

処理速度を速くする方法教えてください。

Private Sub CommandButton1_Click() Dim irow As Long Dim Celldata(1 To 6) As Double Dim ekimen(1 To 6) As String '高さ読込み If TextBox8.Value = "" Then MsgBox ("No.を入力") End End If If TextBox9.Value = "" Then MsgBox ("温度を入力") End End If If TextBox10.Value = "" Then MsgBox ("係数を入力") End End If Celldata(1) = TextBox1.Value + (TextBox7.Value - TextBox9.Value) * TextBox10.Value Celldata(2) = TextBox2.Value + (TextBox7.Value - TextBox9.Value) * TextBox10.Value Celldata(3) = TextBox3.Value + (TextBox7.Value - TextBox9.Value) * TextBox10.Value Celldata(4) = TextBox4.Value + (TextBox7.Value - TextBox9.Value) * TextBox10.Value Celldata(5) = TextBox5.Value + (TextBox7.Value - TextBox9.Value) * TextBox10.Value Celldata(6) = TextBox6.Value + (TextBox7.Value - TextBox9.Value) * TextBox10.Value '入力と修正 Dim i As Long '最終行から試験Noが一致するものを探す For i = 65535 To 6 Step -1 If CStr(Cells(i, 1)) = Trim(TextBox8.Value) Then Set myrange = Sheets("データ").Cells(i - 1, 1) '記入セルがoffset(1,x)になっているため、i-1にしています。 Exit For End If Next i 'Noが一致しない場合、最終行を記入セルに設定する。 If i = 5 Then Set myrange = Sheets("データ").Range("A65536").End(xlUp) End If 'ワークシートへの転記 With myrange .Offset(1, 0).Value = TextBox8.Value '----No. .Offset(1, 1).Value = Celldata(1) '----１計測 .Offset(1, 2).Value = Celldata(2) '----２計測 .Offset(1, 3).Value = Celldata(3) '----３ル計測 .Offset(1, 4).Value = Celldata(4) '----４計測 .Offset(1, 5).Value = Celldata(5) '----５計測 .Offset(1, 6).Value = Celldata(6) '----６計測 .Offset(1, 13).Value = TextBox1.Value '----１追加 .Offset(1, 14).Value = TextBox2.Value '----２追加 .Offset(1, 15).Value = TextBox3.Value '----３追加 .Offset(1, 16).Value = TextBox4.Value '----４追加 .Offset(1, 17).Value = TextBox5.Value '----５追加 .Offset(1, 18).Value = TextBox6.Value '----６追加 .Offset(1, 19).Value = TextBox7.Value '---温度 .Offset(1, 20).Value = TextBox11.Value '----１高さ .Offset(1, 21).Value = TextBox12.Value '----２高さ .Offset(1, 22).Value = TextBox13.Value '----３高さ .Offset(1, 23).Value = TextBox14.Value '----４高さ .Offset(1, 24).Value = TextBox15.Value '----５高さ .Offset(1, 25).Value = TextBox16.Value '----６高さ '入力ボックスのクリア TextBox1.Value = "" '----1セル TextBox2.Value = "" '----2セル TextBox3.Value = "" '----3セル TextBox4.Value = "" '----4セル TextBox5.Value = "" '----5セル TextBox6.Value = "" '----6セル TextBox7.Value = "" '---温度 TextBox11.Value = "" '----1セル TextBox12.Value = "" '----2セル TextBox13.Value = "" '----3セル TextBox14.Value = "" '----4セル TextBox15.Value = "" '----5セル TextBox16.Value = "" '----6セル End With 'lblComment.Caption = "ワークシートに転記しました！" End Sub Private Sub CommandButton2_Click() Dim i As Long '入力チェック If TextBox8.Value = "" Then MsgBox ("No.を入力") End End If If TextBox9.Value = "" Then MsgBox ("温度を入力") End End If If TextBox10.Value = "" Then MsgBox ("係数を入力") End End If For i = 65535 To 6 Step -1 If CStr(Cells(i, 1)) = Trim(TextBox8.Value) Then Set myrange = Sheets("データ").Cells(i - 1, 1) '記入セルがoffset(1,x)になっているため、i-1にしています。 Exit For End If Next i '受付No.がない場合、終了します。 If i = 5 Then MsgBox ("No.が見つかりません") End End If '入力の処理と逆の処理を行います。 With myrange TextBox1.Value = .Offset(1, 13).Value '---１計測 TextBox2.Value = .Offset(1, 14).Value '---２計測 TextBox3.Value = .Offset(1, 15).Value '---３計測 TextBox4.Value = .Offset(1, 16).Value '---４計測 TextBox5.Value = .Offset(1, 17).Value '---５計測 TextBox6.Value = .Offset(1, 18).Value '---６計測 TextBox7.Value = .Offset(1, 19).Value '---温度 TextBox11.Value = .Offset(1, 20).Value '---１高さ TextBox12.Value = .Offset(1, 21).Value '---２高さ TextBox13.Value = .Offset(1, 22).Value '---３高さ TextBox14.Value = .Offset(1, 23).Value '---４高さ TextBox15.Value = .Offset(1, 24).Value '---５高さ TextBox16.Value = .Offset(1, 25).Value '---６高さ End With End Sub

excel BVでTarget.Offset

勤務表を作成しています。勤務「Ｃ」の翌日は「休」にするところまでは出来たのですが、「Ｃ」が連続する日は「休」も連続させたいのです。例）３日と４日が「Ｃ」の時は、５日、６日は連休にしたいのですが、作った下のマクロでは７日も「休」になってしまいます。何が間違ってるんでしょうか？。 If Target.Count > 1 Then Exit Subの意味も良く解っていませんが…。どなたか教えてください。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Value = "Ｃ" Then Target.Offset(0, 1).Value = ("休") End If If Target.Offset(0, -2).Value = "Ｃ" Then Target.Offset(0, 1).Value = ("休") End If End Sub

マクロで分岐をさせる方法

下記の記録マクロでWith→End With　間にIFで分岐を試みたのですがエラーになります。どうすれば出来るのか伝授をお願いします。マクロは初心者です。 Dim hensuh(2) As Integer Dim dekiru As Long Dim kinek As Long Dim uineu As Long Dim myTime As Date Dim flg As Boolean Sub OnTimeSamp1() Application.OnTime EarliestTime:=TimeValue("09:00:00"), Procedure:="Ontime_Set" '記録開始 Application.OnTime EarliestTime:=TimeValue("11:00:00"), Procedure:="Ontime_Reset" '記録終了 End Sub Sub Ontime_Set() 'トグルになっている If flg = False Then flg = True myTime = Now + TimeSerial(0, 0, 1) ElseIf flg = True Then flg = False Else Exit Sub End If If Range("A1").Value = "" Then Range("A1").Value = Format(Now, "hh:mm:ss") '時間記録（スタート) End If Application.OnTime EarliestTime:=myTime, _ Procedure:="my_Procedure", Schedule:=flg If flg = False Then myTime = 0 End If End Sub Sub my_Procedure() Worksheets("kirokuyou").Activate 'ワークシートをアクティブにする。（記録中別のワークシートを開けた場合そこに記録されてしまうのを防ぐ） With Range("A65536").End(xlUp).Offset(1) .Value = Format(Now, "yyyy:mm:dd:hh:mm:ss") '時間記録 .Offset(, 1).Value = Range("S3").Value 'S3 の値 .Offset(, 2).Value = Range("T3").Value 'T3 の値 .Offset(, 3).Value = Range("U3").Value 'U3 の値 .Offset(, 4).Value = Range("V3").Value 'V3 の値 dekiru = Range("V3").Value Range("V6").Value = dekiru kinek = Range("T22").Value Range("T18").Value = kinek uineu = Range("U22").Value Range("U18").Value = uineu 'IF S17 >= 120 Then 'hensuh(0) = Range("S17").Value ←変数に代入後、分岐させたいのですがエラーになる 'Elseif S17 >= 110 Then 'hensuh(1) = Range("S17").Value ←変数に代入後、分岐させたいのですがエラーになる 'Elseif S17 >= 100 Then 'hensuh(2) = Range("S17").Value ←変数に代入後、分岐させたいのですがエラーになる 'End If flg = False myTime = 0 End With Call Ontime_Set End Sub Sub Ontime_Reset() 'タイマーリセット On Error Resume Next Application.OnTime EarliestTime:=myTime, _ Procedure:="my_Procedure", Schedule:=False If Err.Number > 0 Then MsgBox "OnTime設定はされていません。", 64 Err.Clear flg = False Else MsgBox myTime & "の設定は解除されました。", 64 flg = False myTime = Empty End If End Sub

マクロでのタイトル行の変更

いつもお世話になります。添付の画像で　タイトル　行で上側で　　氏名　登録日　No　は下記のようなマクロが入っています。 Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Error If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub If Target.Offset(0, -1).Value = "" Then Exit Sub If Target.Value <> "" Then Target.Offset(0, 1).Value = Application.Max(Range("C:C")) + 1 End If Error: End Sub 添付の下のように　No　登録日　氏名　のように位置を変更は上のマクロのどの部分を変更すればいいかご教示願えませんか。宜しく御願いします。色々と試したのですが分からなくなりました。

エクセル VBAのチェックボックスについて

お読みくださり、ありがとうございます。エクセル初心者でございます。エクセルのマクロなのですが、お詳しい方、是非教えて欲しいです！汗調子に乗って入力フォームなるものを作りました。入力フォームの中にて、チェックボックスで「ある」「なし」の項目を入れてみたのですが、チェックしていないのに、値が入る現象が起きています汗以下、素人が書いたコードを恥を承知で記載させていただきます。 Private Sub CheckBox1_Click() If CheckBox1.Value = True Then OK = "○" End If End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then NO = "×" End If End Sub Private Sub UserForm_Click() End Sub '以下のコードは、登録ボタンがクリックされたときの処理！ Private Sub 登録ボタン_Click() If TextBox1.Text = "" Then MsgBox "グッズ名を入力してください。" Exit Sub End If If TextBox2.Text = "" Then MsgBox "アプローチ先を入力してください。" Exit Sub End If With Worksheets("協賛グッズ") With Cells(Rows.Count, 2).End(xlUp) .Offset(1, 0).Value = TextBox1.Text .Offset(1, 1).Value = mori .Offset(1, 2).Value = mori2 .Offset(1, 3).Value = TextBox2.Text .Offset(1, 5).Value = TextBox3.Text .Offset(1, 6).Value = TextBox4.Text .Offset(1, 7).Value = TextBox5.Text .Offset(1, 8).Value = TextBox6.Text End With End With TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" CheckBox1.Value = False CheckBox2.Value = False End Sub 以上です。おかしなところ満載かと思いますが、チェックを入れた項目だけ値を入れたいと考えております。おわかりになるかたおりましたら何卒お助けください汗よろしくお願いいたします。

VBAを始めたばかりなので初歩的な質問なのですが、

VBAを始めたばかりなので初歩的な質問なのですが、 Private Sub CmdBtn1_Click() On Error GoTo err1 Dim TxtBx1 As String Dim TxtBx2 As Long TxtBx1 = TextBox1 TxtBx2 = TextBox2 Range("a65535").End(xlUp).Offset(1).Select '新しいセルにデータを追加 Selection = Selection.Row - 2 Selection.Offset(, 1).Value = TxtBx1 Selection.Offset(, 2).Value = ComboBox1 Selection.Offset(, 3).Value = TxtBx2 ---------------省略--------------- '「取消」ボタンのオン If Len("A3") > 0 Then CmdBtn2.Enabled = True End If '初期化 TxtBx1 = "" TxtBx2 = "" ComboBox1.ListIndex = -1 Call TxtBx1.SetFocus Exit Sub 実行すると、初期化のところで変数(Txtbx1,TxtBx2)などが反転して、「修飾子が不正です」と出ます。変数を使わないで直接指定すると問題無いみたいなのですがよくわかりません。こんな質問ですいませんが宜しくお願いします。

Filter関数を用いた結果、何も検索されなかった場合

Filter関数を用いた結果、何も検索されなかった場合以下のプログラムを実行したところ、セルはまっさらのまま。　　Sub Macro3() 　　　　Dim a As Variant 　　　　a = Array(1, 2, 3, 4, 5) 　　　　ActiveCell.Value = Filter(a, 8) 　　End Sub そこで　　If Filter(A,8) = "" Then ・・・(1) 　　　　ActiveCell.Offset(1, 0).value = False 　　Else表示　　　　ActiveCell.Offset(1, 0).value = True 　　endif を書き加えてみましたところ、　　実行時エラー'13'：　　型が一致しませんとのエラーが出ます。 (1)を　　If ActiveCell.value = "" Then と書く分には問題ないのですが、だからと言って、Filter(A,8)の値は""で表せないのですね。とりあえずこの五行はエラーが出ているので削除しました。次に　　ActiveCell.Offset(1, 0).Value = IsEmpty(Filter(A, 8)) を書き加えると、アクティブセルの一つ下は「False」となります。Filter(A,8)では何も抽出されないのですから、空か否かを問われたら「True」のはずなのですが・・・やはり何か戻り値があるのですね・・・ではエラー値が戻っているのかと　　ActiveCell.Offset(2, 0).Value = IsError(Filter(A, 8)) を書き加えると、「False」ですからエラー値ではありません。　　If Filter(A,8) = Null Then ・・・(2) 　　　　ActiveCell.Offset(3, 0).value = False 　　Else表示　　　　ActiveCell.Offset(3, 0).value = True 　　endif を書き加えたところ、またも　　実行時エラー'13'：　　型が一致しませんとのエラーが出ます。 (2)を　　If Filter(A,8) = Error Then と書き換えてみても同じです。試しに(2)を　　If Cvar(Filter(A,8)) = Null Then としてみたり　　If Filter(A,8) = Cvar(Null) Then としてみたり　　If Cvar(Filter(A,8)) = Cvar(Null) Then としてみたりしましたが、同じエラーが出ます。 Ubound(Filter(A,8)の値は-1です。これをもってこの場合の戻り値とするしかないのでしょうか。filter関数の戻り値が分からないからUbound関数を使っていることがモロばれで、嫌なんです。　　If Filter(A,8) = なんとか Then のなんとかに入る戻り値をどなたか教えてください。

emptyが判定されない

マクロの記述が巧くいかないので質問させてください。以下のようなマクロを組んでみたのですが、うまくいきません。 sub a() If Range("K1").End(xlDown).Offset(0, 12).Value = "" Or Range("K1").End(xlDown).Offset(0, 12).Value = Empty Then Range("K1").End(xlDown).Offset(0, 12).Value = "必要ない" End If end sub マクロ画面上でRange("K1").End(xlDown).Offset(0, 12).Valueにポイントすると「Empty値」と出てくるため、= ""　の後に=Emptyと入れてみたんですが、文字の入力がされません。よろしくお願いします。

マクロのコーディング

すいません、下のコード（マクロなんですが）同じ処理を4回も繰り返しているので、(入りきらないので、2回にしました)ひとつにまとめたいです。どうすればいいでしょうか？教えて下さい。 '●業務番号チェック 'エラー時は青 If Range("H39:I39").Select <> "" Then If .Cells(43, 5).Value = "" Then Total_Check_Flg = True '色付の範囲の設定 Range("A43:B43").Select 'セルの色の設定（青） With Selection.Interior .ColorIndex = 41 End With Err_Kazu_4 = Err_Kazu_4 + 1 End If End If If Range("K39:L39").Select <> "" Then If .Cells(44, 5).Value = "" Then Total_Check_Flg = True '色付の範囲の設定 Range("A44:B44").Select 'セルの色の設定（青） With Selection.Interior .ColorIndex = 41 End With Err_Kazu_4 = Err_Kazu_4 + 1 End If

VBS

VBSであるファイルを１行ずつ読み込み、その読み込んだ値をある別のファイルにリダイレクトしたいのですが、どのように書けばよいか教えてください。下記のように、echoでは出すことができるのですが、ファイルにリダイレクトというのができません。よろしくお願いします。 ==== sample shell ========================= Option Explicit On Error Resume Next Dim objFSO ' FileSystemObject Dim objFile ' ファイル読み込み用 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If Err.Number = 0 Then Set objFile = objFSO.OpenTextFile("d:\dr1.txt") If Err.Number = 0 Then Do While objFile.AtEndOfStream <> True WScript.Echo objFile.ReadLine Loop objFile.Close Else WScript.Echo "ファイルオープンエラー: " & Err.Description End If Else WScript.Echo "エラー: " & Err.Description End If Set objFile = Nothing Set objFSO = Nothing ============================================================

エクセルのコード表示についてですが。。

Private Sub Worksheet_Change(ByVal Target As Range) (1)If Target.Column <> 4 Then Exit Sub Target.Offset(0, -3) = Now()　　　⇒特定のセルに日時自動表示 (2)If Target.Column <> 4 Then Exit Sub 　Target.Offset(0, 1) = "DUMMY"　　⇒特定のセルにDUMMYと自動表示 (3)If Target.Column = 4 Then 　Target.Offset(0, -2) = "1" 　Else　　　　　　　　　　　　　⇒特定のセルに１と自動表示　　 (4)If Target.Column = 35 Then 　Target.Offset(0, -2) = "2"　　⇒特定のセルに２と自動表示　End If 　End If (5)If Target.Value = "T" Or Target.Value = "t" Then 　Target.Value = "田中"　　　　⇒Tと入力すると田中と変換して表示　ElseIf Target.Value = "H" Or Target.Value = "h" Then 　Target.Value = "林"　　　　　⇒ｈと入力すると林と変換して表示　End If 　End Sub 上のようなコードを入力すると(3)と(5)が機能しません。。なぜでしょうか？？コードの表示がまずいのでしょうか？？

EXCEL　VBA　選択範囲をTargetに

WorkSeet Chengeで If Target.Range("E20:E100") Then If Target.Offset(0,1)<>"" Then Target=Target.Offset(-1,0) End If End If E20からE100の間でもし右隣のセルに何か入力されたら上のセルと同じ値を表示する、ということをやりたいのですが、一行目でエラーになってしまいます。選択範囲の指定の仕方が間違っているのでしょうか？教えて下さい。初歩的な質問で恐縮ですが、よろしくお願いします。

Shift_JISのサイトで認識できない問題と解決方法

"【"が、Shift_JISのサイトで認識できない

質問者が選んだベストアンサー

お礼 2021/07/03 03:41

関連するQ&A

サイトタイトルに、指定した語句があれば○

サイトタイトルの中に、指定した語句があれば○

「A」「B」「C」「D」のすべての語句があれば○

キーワードが全部あるのに、○が付かない

ASPをPHPに移植したいですが、よい方法があるでしょうか？

エクセルVBAで無限ループ

VBAについて

exel　vba ワークシートデータを日付にしたい

処理速度を速くする方法教えてください。

excel BVでTarget.Offset

マクロで分岐をさせる方法

マクロでのタイトル行の変更

エクセル VBAのチェックボックスについて

VBAを始めたばかりなので初歩的な質問なのですが、

Filter関数を用いた結果、何も検索されなかった場合

emptyが判定されない

マクロのコーディング

VBS

エクセルのコード表示についてですが。。

EXCEL　VBA　選択範囲をTargetに

注目のQ&A

カテゴリ

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

専門家に質問してみよう

Shift_JISのサイトで認識できない問題と解決方法

"【"が、Shift_JISのサイトで認識できない

質問者が選んだベストアンサー

お礼 2021/07/03 03:41

関連するQ&A

サイトタイトルに、指定した語句があれば○

サイトタイトルの中に、指定した語句があれば○

「A」「B」「C」「D」のすべての語句があれば○

キーワードが全部あるのに、○が付かない

ASPをPHPに移植したいですが、よい方法があるでしょうか？

エクセルVBAで無限ループ

VBAについて

exel vba ワークシートデータを日付にしたい

処理速度を速くする方法教えてください。

excel BVでTarget.Offset

マクロで分岐をさせる方法

マクロでのタイトル行の変更

エクセル VBAのチェックボックスについて

VBAを始めたばかりなので初歩的な質問なのですが、

Filter関数を用いた結果、何も検索されなかった場合

emptyが判定されない

マクロのコーディング

VBS

エクセルのコード表示についてですが。。

EXCEL VBA 選択範囲をTargetに

注目のQ&A

カテゴリ

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

専門家に質問してみよう

exel　vba ワークシートデータを日付にしたい

EXCEL　VBA　選択範囲をTargetに