Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

2023/01/28(土) 12:12:12.41

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.2ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.2ch.net/test/read.cgi/tech/1667104996/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2023/01/28(土) 12:23:13.98

Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/

2023/01/28(土) 12:40:41.67

>>1
乙

2023/01/28(土) 15:04:00.65

1gj

2023/01/28(土) 15:34:06.67

わかった気で勘違いしている馬鹿の間違いや馬鹿さ加減を指摘するとスレが荒れるので無視しましょう
最近では零細企業のあれです

2023/01/28(土) 21:43:50.55

エクセルでスクレイピングはできそうだけどね。

2023/01/28(土) 22:05:54.66

分かりづらい質問だな。
「エクセルファイルのシートにボタンを置いて、それをクリックしたら
あるアプリを立ち上げたい。これが可能ですか？」

ということかな。答えは可能。

2023/01/29(日) 01:25:58.33

>>6
javascriptに丸投げする形だからそっちの知識も必要になるけどね
IE時代はVB単体で完結できたのに面倒な時代になったな！

2023/01/29(日) 09:15:12.97

httpリクエストとか、api接続とか、一般的な表計算の操作が中心の
エクセルユーザーの範囲外なんだけど。
ただ、ExcelでなくてGoogleスプレッドシートはapi接続に相性が良さそう。
クラウドにアプリがあるっていうのは、それだけ優位な気がする。
会社での表計算もほとんど、ExcelでなくてGoogleスプレッドシート使うようになってきて、
今Excelとして残っているのは、過去開発されたマクロで運用する箇所があるから。
こんなことになるとは数年前には思っていなかった。

2023/01/29(日) 09:19:56.22

VBAとGASどっちもできるようになるといいね。

2023/01/29(日) 10:26:38.51

A列セルに3桁のアルファベットと番号(ＡＡＡ 1000)、B列セルに金額が入っており
A列セルは番号部分が同セル内に/で区切られ増えるパターンあり(ＡＡＡ 1000/1001/1002)
これを/がある場合は/で区切り、番号ごとに行を追加して
更にB列の金額も追加した行数で分割するといったことを最終行まで繰り返し処理したいのですが

　　　　A列　　　　　 B列
AAA 1000/1001 　1,000
　　　　　　　↓↓↓
　　　　A列　　　　　 B列
AAA 1000　　　　　　500
AAA 1001 　　　　　500

金額を行数で分割する方法と
番号ごとに行を追加した時にアルファベットAAAを番号前に追加するにはどうすればよいでしょうか。

2023/01/29(日) 10:28:09.50

続き
コードはこれなのですが
どうかよろしくお願いします

Dim i As Long
Dim n As Long
Dim LastRow As Long
Dim SplCell As String
Dim temp As Variant
Dim AddRow As Long

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = LastRow To 1 Step -1
　　SplCell = Cells(i, 1)
　　temp = Split(SplCell, "/")
　　AddRow = UBound(temp)
　If AddRow > 0 Then
　　Range("A" & i + 1).Resize(AddRow).EntireRow.Insert
　End If

　For n = 0 To AddRow
　　Cells(i + n, 1) = temp(n)
　　Cells(i + n, 2) = Cells(i, 2)
　Next n
Next i
End Sub

2023/01/29(日) 11:46:37.73

>>12

考えてみた。

Sub test()

Dim i As Long
Dim n As Long
Dim LastRow As Long
Dim SplCell(1) As String　←変更。(0)はアルファベットを格納、(1)はアルファベット以降の金額部を格納。
Dim temp As Variant
Dim AddRow As Long
Dim m As Double　←追加。行数で分割した金額。

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = LastRow To 1 Step -1
SplCell(0) = Left(Cells(i, 1), 4)　←追加
SplCell(1) = Mid(Cells(i, 1), 5)　←変更
temp = Split(SplCell(1), "/")
AddRow = UBound(temp)
If AddRow > 0 Then
Range("A" & i + 1).Resize(AddRow).EntireRow.Insert
End If

m = Cells(i, 2) / (AddRow + 1)　追加
For n = 0 To AddRow
Cells(i + n, 1) = SplCell(0) & temp(n)　←変更
Cells(i + n, 2) = m　←変更
Next n
Next i
End Sub

2023/01/29(日) 12:05:26.37

>>13
ありがとうございます！！
希望通りに動きました。

助かりました。すごく嬉しいです。