質問編集履歴
4
画像の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,13 +8,13 @@
|
|
|
8
8
|
```
|
|
9
9
|
初日の日を何とかwebサイトから落として表示できるようになったのですが、つぎはマクロがなぜかエラーが起きるようになってしまいました
|
|
10
10
|
↓このような感じです
|
|
11
|
-
|
|
11
|
+
http://iup.2ch-library.com/i/i1656034-1464896090.png
|
|
12
12
|
|
|
13
|
-
|
|
14
13
|
```
|
|
15
14
|
|
|
16
15
|
###該当のソースコード
|
|
17
16
|
|
|
17
|
+
|
|
18
18
|
Sub 桐生(Lng_日付 As Long, Lng_場 As Long, Lng_初日 As Long)
|
|
19
19
|
|
|
20
20
|
Dim Str_アドレス As String
|
3
ソースコード、画像の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,51 +8,64 @@
|
|
|
8
8
|
```
|
|
9
9
|
初日の日を何とかwebサイトから落として表示できるようになったのですが、つぎはマクロがなぜかエラーが起きるようになってしまいました
|
|
10
10
|
↓このような感じです
|
|
11
|
-
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
```
|
|
15
15
|
|
|
16
16
|
###該当のソースコード
|
|
17
17
|
|
|
18
|
+
Sub 桐生(Lng_日付 As Long, Lng_場 As Long, Lng_初日 As Long)
|
|
18
19
|
|
|
19
|
-
|
|
20
|
+
Dim Str_アドレス As String
|
|
20
21
|
|
|
22
|
+
Sheet 桐生.Select
|
|
23
|
+
Cells.Delete Shift:=xlUp
|
|
21
|
-
|
|
24
|
+
For Lng_レース = 1 To 12
|
|
22
|
-
Dim Day_初日 As Date
|
|
23
25
|
|
|
24
|
-
Day_初日 = Day_日付 - Weekday(Day_日付, vbTuesday) + 1
|
|
25
|
-
Str_アドレス = "FINDER;http://app.boatrace.jp/race/" & Format(Lng_場, "00")
|
|
26
|
+
Str_アドレス = "FINDER;http://app.boatrace.jp/race/" & Format(Lng_場, "00")
|
|
26
|
-
Str_アドレス = Str_アドレス & "_" & Format(
|
|
27
|
+
Str_アドレス = Str_アドレス & "_" & Format(Lng_初日, "yyyymmdd")
|
|
27
|
-
Str_アドレス = Str_アドレス & ".php?day=" & Format(
|
|
28
|
+
Str_アドレス = Str_アドレス & ".php?day=" & Format(Lng_日付, "yyyymmdd")
|
|
28
|
-
Str_アドレス = Str_アドレス & "&jyo=" & Format(Lng_場, "00")
|
|
29
|
+
Str_アドレス = Str_アドレス & "&jyo=" & Format(Lng_場, "00")
|
|
29
|
-
Str_アドレス = Str_アドレス & "&rno=" & Format(Lng_レース, "00") & "&type=program"
|
|
30
|
+
Str_アドレス = Str_アドレス & "&rno=" & Format(Lng_レース, "00") & "&type=program"
|
|
31
|
+
|
|
32
|
+
Dim str_列 As String
|
|
33
|
+
If Lng_レース < 8 Then
|
|
30
|
-
|
|
34
|
+
str_列 = Chr(Asc("A") + (Lng_レース - 1) * 4)
|
|
35
|
+
Else
|
|
36
|
+
str_列 = "A" & Chr(Asc("A") + ((Lng_レース - 1) * 4) - 26)
|
|
37
|
+
End If
|
|
38
|
+
|
|
39
|
+
Dim Lng_列 As Long
|
|
40
|
+
Lng_列 = ((Lng_レース - 1) * 4) + 1
|
|
41
|
+
|
|
31
|
-
|
|
42
|
+
Dim rng_出力 As Range
|
|
43
|
+
Set rng_出力 = Range(Cells(1, Lng_列))
|
|
44
|
+
|
|
32
|
-
With ActiveSheet.QueryTables.Add(Connection:=Str_アドレス, Destination:=
|
|
45
|
+
With ActiveSheet.QueryTables.Add(Connection:=Str_アドレス, Destination:=rng_出力)
|
|
33
|
-
.Name = "Data"
|
|
46
|
+
.Name = "Data"
|
|
34
|
-
.FieldNames = True
|
|
47
|
+
.FieldNames = True
|
|
35
|
-
.RowNumbers = False
|
|
48
|
+
.RowNumbers = False
|
|
36
|
-
.FillAdjacentFormulas = False
|
|
49
|
+
.FillAdjacentFormulas = False
|
|
37
|
-
.PreserveFormatting = False
|
|
50
|
+
.PreserveFormatting = False
|
|
38
|
-
.RefreshOnFileOpen = False
|
|
51
|
+
.RefreshOnFileOpen = False
|
|
39
|
-
.BackgroundQuery = False
|
|
52
|
+
.BackgroundQuery = False
|
|
40
|
-
.RefreshStyle = xlInsertDeleteCells
|
|
53
|
+
.RefreshStyle = xlInsertDeleteCells
|
|
41
|
-
.SavePassword = False
|
|
54
|
+
.SavePassword = False
|
|
42
|
-
.SaveData = True
|
|
55
|
+
.SaveData = True
|
|
43
|
-
.AdjustColumnWidth = True
|
|
56
|
+
.AdjustColumnWidth = True
|
|
44
|
-
.RefreshPeriod = 0
|
|
57
|
+
.RefreshPeriod = 0
|
|
45
|
-
.WebSelectionType = xlEntirePage
|
|
58
|
+
.WebSelectionType = xlEntirePage
|
|
46
|
-
.WebFormatting = xlWebFormattingAll
|
|
59
|
+
.WebFormatting = xlWebFormattingAll
|
|
47
|
-
.WebPreFormattedTextToColumns = True
|
|
60
|
+
.WebPreFormattedTextToColumns = True
|
|
48
|
-
.WebConsecutiveDelimitersAsOne = True
|
|
61
|
+
.WebConsecutiveDelimitersAsOne = True
|
|
49
|
-
.WebSingleBlockTextImport = False
|
|
62
|
+
.WebSingleBlockTextImport = False
|
|
50
|
-
.WebDisableDateRecognition = False
|
|
63
|
+
.WebDisableDateRecognition = False
|
|
51
|
-
.WebDisableRedirections = False
|
|
64
|
+
.WebDisableRedirections = False
|
|
52
|
-
.Refresh BackgroundQuery:=False
|
|
65
|
+
.Refresh BackgroundQuery:=False
|
|
53
|
-
End With
|
|
66
|
+
End With
|
|
67
|
+
Next
|
|
54
68
|
End Sub
|
|
55
|
-
|
|
56
69
|
###試したこと
|
|
57
70
|
jawaさんが書いてくださったマクロを元に初日をC3セルから取り込むようにしようとしたのですが、勝手にマクロを書き換えたせいか、できなくなりました。
|
|
58
71
|
###補足情報(言語/FW/ツール等のバージョンなど)
|
2
エラーメッセージ、質問内容
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
```
|
|
9
9
|
初日の日を何とかwebサイトから落として表示できるようになったのですが、つぎはマクロがなぜかエラーが起きるようになってしまいました
|
|
10
10
|
↓このような感じです
|
|
11
|
-
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
```
|
1
エラーメッセージ、質問内容
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,12 +1,16 @@
|
|
|
1
1
|
###前提・実現したいこと
|
|
2
|
-
一、開催場所別にシートを分けているので、それぞれのシートに１２レース分表示したい(A１セル、E１セル...と順に横にずれてほしいです)。
|
|
2
|
+
一、開催場所別にシートを分けているので、それぞれ会場のシートに１２レース分表示したい(A１セル、E１セル...と順に横にずれてほしいです)。
|
|
3
|
-
一、開催場所でレースがない場合は、サイト自体ない(エラーが起きる)のでその時はA1セルに本日のレースはありませんと表示したい
|
|
3
|
+
一、開催場所でレースがない場合は、webサイト自体ない(エラーが起きる)のでその時はA1セルに本日のレースはありませんと表示したい
|
|
4
4
|
|
|
5
5
|
|
|
6
6
|
###発生している問題・エラーメッセージ
|
|
7
7
|
|
|
8
8
|
```
|
|
9
|
-
|
|
9
|
+
初日の日を何とかwebサイトから落として表示できるようになったのですが、つぎはマクロがなぜかエラーが起きるようになってしまいました
|
|
10
|
+
↓このような感じです
|
|
11
|
+
###
|
|
12
|
+
|
|
13
|
+
|
|
10
14
|
```
|
|
11
15
|
|
|
12
16
|
###該当のソースコード
|
|
@@ -50,7 +54,6 @@
|
|
|
50
54
|
End Sub
|
|
51
55
|
|
|
52
56
|
###試したこと
|
|
53
|
-
い
|
|
57
|
+
jawaさんが書いてくださったマクロを元に初日をC3セルから取り込むようにしようとしたのですが、勝手にマクロを書き換えたせいか、できなくなりました。
|
|
54
|
-
|
|
55
58
|
###補足情報(言語/FW/ツール等のバージョンなど)
|
|
56
59
|
EXCEL 2010 を使ってます。
|