エクセルVBAで以下のようにWebAPIの助けを借りています。
しかしこれはたぶんネットに接続してなければ使えないのだと思います。
質問は、このマクロを作動させたとき、ネットに接続してなければ「ネットに未接続です」という警告を出したいのです。
しかし、ネットに接続してないことをどう取得すればよいのかわかりません。ご教示ください。
Sub ボタン1_Click()
Dim objXMLHttp As Object, zipArr
Dim yubinNo As Long
Dim line As String
Dim splitLine() As String
Dim i As Long
i = 2 '行番号
Do While Cells(i, 1).Value <> "" '入力値からハイフンの削除
yubinNo = Replace(Worksheets("Sheet1").Cells(i, 1).Value, "-", "")
Set objXMLHttp = CreateObject("MSXML2.XMLHTTP")
objXMLHttp.Open "GET", "http://zip.cgis.biz/csv/zip.php?zn=" & yubinNo, False
objXMLHttp.Send
line = Replace(objXMLHttp.responseText, vbLf, ",") '改行削除
line = Replace(line, """", "") 'クォート削除
line = Replace(line, "none", "") 'noneの文字列削除(情報がない場合、noneのため)
splitLine = Split(line, ",") 'CSVを配列へ格納
Worksheets("Sheet1").Cells(i, 2).Value = splitLine(13) & splitLine(14) & splitLine(15) & splitLine(16)
Worksheets("Sheet1").Cells(i, 3).Value = splitLine(9) & splitLine(10) & splitLine(11) & splitLine(12)
i = i + 1
Loop
End Sub
エクセルVBAで以下のようにWebAPIの助けを借りています。
しかしこれはたぶんネットに接続してなければ使えないのだと思います。
質問は、このマクロを作動させたとき、ネットに接続してなければ「ネットに未接続です」という警告を出したいのです。
しかし、ネットに接続してないことをどう取得すればよいのかわかりません。ご教示ください。
Sub ボタン1_Click()
Dim objXMLHttp As Object, zipArr
Dim yubinNo As Long
Dim line As String
Dim splitLine() As String
Dim i As Long
i = 2 '行番号
Do While Cells(i, 1).Value <> "" '入力値からハイフンの削除
yubinNo = Replace(Worksheets("Sheet1").Cells(i, 1).Value, "-", "")
Set objXMLHttp = CreateObject("MSXML2.XMLHTTP")
objXMLHttp.Open "GET", "http://zip.cgis.biz/csv/zip.php?zn=" & yubinNo, False
objXMLHttp.Send
line = Replace(objXMLHttp.responseText, vbLf, ",") '改行削除
line = Replace(line, """", "") 'クォート削除
line = Replace(line, "none", "") 'noneの文字列削除(情報がない場合、noneのため)
splitLine = Split(line, ",") 'CSVを配列へ格納
Worksheets("Sheet1").Cells(i, 2).Value = splitLine(13) & splitLine(14) & splitLine(15) & splitLine(16)
Worksheets("Sheet1").Cells(i, 3).Value = splitLine(9) & splitLine(10) & splitLine(11) & splitLine(12)
i = i + 1
Loop
End Sub
エクセルVBAで以下のようにWebAPIの助けを借りています。
しかしこれはたぶんネットに接続してなければ使えないのだと思います。
質問は、このマクロを作動させたとき、ネットに接続してなければ「ネットに未接続です」という警告を出したいのです。
しかし、ネットに接続してないことをどう取得すればよいのかわかりません。ご教示ください。
Sub ボタン1_Click()
Dim objXMLHttp As Object, zipArr
Dim yubinNo As Long
Dim line As String
Dim splitLine() As String
Dim i As Long
i = 2 '行番号
Do While Cells(i, 1).Value <> "" '入力値からハイフンの削除
yubinNo = Replace(Worksheets("Sheet1").Cells(i, 1).Value, "-", "")
Set objXMLHttp = CreateObject("MSXML2.XMLHTTP")
objXMLHttp.Open "GET", "http://zip.cgis.biz/csv/zip.php?zn=" & yubinNo, False
objXMLHttp.Send
line = Replace(objXMLHttp.responseText, vbLf, ",") '改行削除
line = Replace(line, """", "") 'クォート削除
line = Replace(line, "none", "") 'noneの文字列削除(情報がない場合、noneのため)
splitLine = Split(line, ",") 'CSVを配列へ格納
Worksheets("Sheet1").Cells(i, 2).Value = splitLine(13) & splitLine(14) & splitLine(15) & splitLine(16)
Worksheets("Sheet1").Cells(i, 3).Value = splitLine(9) & splitLine(10) & splitLine(11) & splitLine(12)
i = i + 1
Loop
End Sub
この質問は先ほど締め切った質問のご回答への追加の質問になります。
何度もすみません。
一応不具合の詳細パターンを検証しようと再度ファイルを開いてみたら同じエラーが発生しました。
原因は、ファイル保存時に空白セル以外に保護がかかる下記のVBAのせいだと思います。
（一部当方で追加した不細工なコードも入っています）
単純にこのVBAを削除すれば良いのですが、このVBAは今回の課題よりもはるかに優先すべきマクロで現行の全てのBookに入れて有りますので削除やシート操作時の無効化は検討外なのですが、何とかなりませんかね！？
無理ならこちらを諦めますのでご容赦！！
従来は上の何行目かを固定表示にしてその上部の固定部分に小さなグラフを置いていました。
入力者がノートPCなので入力時の表示範囲が相当に小さくなってしまうので、グラフタイトルが不要なグラフはタイトルを削除し、タイトルが必要になったら「グラフデサイン」（グラフの書式設定タブ）からタイトルを追加していました。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("成績表(提出)").Select
Range("A1").Select
Selection.ClearContents
Sheets("入力表").Select
Range("D2:L2").Select
Selection.ClearContents
Const MyPassword = "" 'パスワード（省略可）
Dim sh As Worksheet
On Error Resume Next
For Each sh In Worksheets
sh.Unprotect Password:=MyPassword
With sh.Cells
'全セルのロックを外す
.Locked = False
'定数が含まれているセルにロックを掛ける
.SpecialCells(xlCellTypeConstants).Locked = True
'数式が含まれているセルにロックを掛ける
.SpecialCells(xlCellTypeFormulas).Locked = True
End With
sh.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:=MyPassword
Next
On Error GoTo 0
Sheets("入力表").Select
End Sub
いつも大変お世話になっております。
先日ここで表題につき下記ご回答いただきいくつかのシートで使用を開始したのですが、下記の不具合が発生しました。
VBA（グラフが不動化）するのですが、Bookの保存でエラーが出て止まります。
このVBAは既にいくつかのシートに展開しており初めての不具合です。
よって、Book特有の不具合なら現象が再現出来ないと分からないかとも思いますが何かアイディアあればご教示お願いします。
ちなみに最初のTESTBook（シート）では問題なく動いて、上書き保存も普通にできます。このシートのVBAをコピペしているのですが、問題のBookでは上書き保存するとエラー表示で止まってしまいます。
エラーの箇所（黄色ハイライト）は
＞ If .Chart.ChartTitle.Text = Cells(r, c).Text Then
で「このオブジェクトにはタイトルがありません」
と表示されます。
最初にタイトルが数字のみの場合に対応していただいたのでタイトルを数字のみ、文字のみで試しましたがダメで、グラフを新しく作成し直してもダメでした。
尚、一番最初の動作確認では２つのグラフの内１つのみしか動かなくて、動かない方のグラフを新規で作成し直したら２つとも期待通りに動くようになったのですが、これで完成と 保存しようとしたら上記のところでエラーが発生して止まります。
VBAを中断してクローズして再度開くとVBAは正常に動きます。
そして保存しようとすると止まります。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'縦パターン
Dim r As Long '行番号変数
Dim c As Long '列番号変数
Dim j As Long 'グラフカウンター
Dim w As Long
Dim d As Long
r = 5 'グラフタイトル一覧開始行番号
c = 11 ' グラフタイトル一覧格納列番号
w = 600
d = 50
Do
If Cells(r, c).Value = "" Then Exit Do
For j = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(j)
If .Chart.ChartTitle.Text = Cells(r, c).Text Then
.Top = ActiveWindow.VisibleRange.Top + d
.Left = ActiveWindow.VisibleRange.Left + w
d = d + .Height
End If
End With
Next j
r = r + 1
Loop
End Sub
お世話になります。
2017年にエクセルでグラフを常に画面の決まった位置に表示させたい、とお願いして下記のご回答いただいて複数のシートで便利に使わせて頂いているのですが、下記のコードでは新しいグラフが右に追加されるのでいつの間にかデータ入力時にグラフうを見ないようになってしまっています。（5年間でグラフの枚数が増えていました）
そこで
①グラフは新らしい方から左から右に並べて表示させたい。
もしグラフの最大枚数を決めた方が分かり易いなら10枚で余ります。
但しシートによってグラフの枚数は異なります。
②更に可能ならグラフタイトルで左から右に並ぶ順番を指定出来れば更に汎用性が出ると思うのですがハードルが上がるようなら不要です。
シートによって画面構成が違っているので
③グラフを縦に、新らしいグラフから上から下に並べて表示するように出来ないでしょうか？
これも作成順に上から順か、出来ればグラフタイトルで指定出来れば最高です。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
w = 600
d = 25
For i = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(i)
.Top = ActiveWindow.VisibleRange.Top + d
.Left = ActiveWindow.VisibleRange.Left + w
w = w + .Width
End With
Next i
End Sub
お世話になります。
2017年にエクセルでグラフを常に画面の決まった位置に表示させたい、とお願いして下記のご回答いただいて複数のシートで便利に使わせて頂いているのですが、下記のコードでは新しいグラフが右に追加されるのでいつの間にかデータ入力時にグラフうを見ないようになってしまっています。（5年間でグラフの枚数が増えていました）
そこで
①グラフは新らしい方から左から右に並べて表示させたい。
もしグラフの最大枚数を決めた方が分かり易いなら10枚で余ります。
但しシートによってグラフの枚数は異なります。
②更に可能ならグラフタイトルで左から右に並ぶ順番を指定出来れば更に汎用性が出ると思うのですがハードルが上がるようなら不要です。
シートによって画面構成が違っているので
③グラフを縦に、新らしいグラフから上から下に並べて表示するように出来ないでしょうか？
これも作成順に上から順か、出来ればグラフタイトルで指定出来れば最高です。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
w = 600
d = 25
For i = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(i)
.Top = ActiveWindow.VisibleRange.Top + d
.Left = ActiveWindow.VisibleRange.Left + w
w = w + .Width
End With
Next i
End Sub
お世話になります。
2017年にエクセルでグラフを常に画面の決まった位置に表示させたい、とお願いして下記のご回答いただいて複数のシートで便利に使わせて頂いているのですが、下記のコードでは新しいグラフが右に追加されるのでいつの間にかデータ入力時にグラフうを見ないようになってしまっています。（5年間でグラフの枚数が増えていました）
そこで
①グラフは新らしい方から左から右に並べて表示させたい。
もしグラフの最大枚数を決めた方が分かり易いなら10枚で余ります。
但しシートによってグラフの枚数は異なります。
②更に可能ならグラフタイトルで左から右に並ぶ順番を指定出来れば更に汎用性が出ると思うのですがハードルが上がるようなら不要です。
シートによって画面構成が違っているので
③グラフを縦に、新らしいグラフから上から下に並べて表示するように出来ないでしょうか？
これも作成順に上から順か、出来ればグラフタイトルで指定出来れば最高です。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
w = 600
d = 25
For i = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(i)
.Top = ActiveWindow.VisibleRange.Top + d
.Left = ActiveWindow.VisibleRange.Left + w
w = w + .Width
End With
Next i
End Sub
