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

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (ﾜｯﾁｮｲ aaa4-I2zm)
垢版 |
2023/01/28(土) 12:12:12.41ID:UjlIZ1Ov0
!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.98ID:+RlrKkV4M
Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/
2023/01/28(土) 12:40:41.67ID:NqcfPhRT0
>>1
乙
4デフォルトの名無しさん (ｱｳｱｳｳｰ Sa47-B/zI)
垢版 |
2023/01/28(土) 15:04:00.65ID:uWWFw1N+a
1gj
5デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM8a-bQbc)
垢版 |
2023/01/28(土) 15:34:06.67ID:YZOoYTJxM
わかった気で勘違いしている馬鹿の間違いや馬鹿さ加減を指摘するとスレが荒れるので無視しましょう
最近では零細企業のあれです
6デフォルトの名無しさん (ﾜｯﾁｮｲ 9a02-5T4A)
垢版 |
2023/01/28(土) 21:43:50.55ID:cCrz+GwL0
エクセルでスクレイピングはできそうだけどね。
2023/01/28(土) 22:05:54.66ID:cCrz+GwL0
分かりづらい質問だな。
「エクセルファイルのシートにボタンを置いて、それをクリックしたら
あるアプリを立ち上げたい。これが可能ですか？」

ということかな。答えは可能。
2023/01/29(日) 01:25:58.33ID:R24XfIrD0
>>6
javascriptに丸投げする形だからそっちの知識も必要になるけどね
IE時代はVB単体で完結できたのに面倒な時代になったな！
2023/01/29(日) 09:15:12.97ID:KzySl/Bm0
httpリクエストとか、api接続とか、一般的な表計算の操作が中心の
エクセルユーザーの範囲外なんだけど。
ただ、ExcelでなくてGoogleスプレッドシートはapi接続に相性が良さそう。
クラウドにアプリがあるっていうのは、それだけ優位な気がする。
会社での表計算もほとんど、ExcelでなくてGoogleスプレッドシート使うようになってきて、
今Excelとして残っているのは、過去開発されたマクロで運用する箇所があるから。
こんなことになるとは数年前には思っていなかった。
2023/01/29(日) 09:19:56.22ID:KzySl/Bm0
VBAとGASどっちもできるようになるといいね。
2023/01/29(日) 10:26:38.51ID:nRF7bUNu0
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.50ID:nRF7bUNu0
続き
コードはこれなのですが
どうかよろしくお願いします

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.73ID:WTXbQyE20
>>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.37ID:nRF7bUNu0
>>13
ありがとうございます！！
希望通りに動きました。

助かりました。すごく嬉しいです。
2023/01/29(日) 14:40:20.12ID:cIjm/G+Or
>>9
It sounds like you are saying that Excel users may not have experience with things like HTTP requests and API connections, but that Google Sheets may be better suited for those types of tasks because it is a cloud-based app. You also mention that your company has been transitioning away from using Excel and towards using Google Sheets for most of their spreadsheet needs, with the exception of some areas where older macros developed in Excel are still in use. It's interesting to see how technology and user preferences can change over time.
2023/01/29(日) 15:11:19.34ID:GtadNWQm0
looks like　〇
sounds like　×
2023/01/29(日) 15:15:30.68ID:KzySl/Bm0
なんで英訳
2023/01/29(日) 15:18:51.71ID:cIjm/G+Or
ChatGPT
19デフォルトの名無しさん (ﾜｯﾁｮｲ 5f10-bQbc)
垢版 |
2023/01/29(日) 16:52:45.66ID:wtQ124Fo0
こっちも零細企業荒らしがいるのか
2023/01/29(日) 18:16:29.96ID:OkpG00lK0
クラスモジュールを使っていく勉強しています。
ClassAのプロパティとしてClassB,ClassCから作るオブジェクトを持たせる事で階層型に
整理できるようですが、これも正しいオブジェクト指向の形なのでしょうか？

メインコードからObjA.ObjB.プロパティAみたいに呼び出せるのです。
ObjAは例えば初期値というカテゴリ
ObjBは初期値の中の日付に関連するもの
ObjCは初期値の中の料金に関するもの
ObjA.の時点で候補が出てくるのも便利です。なんだかただの変数みたいに使ってる気もしますが。

そしてJavaでいうところのメソッドの継承ですが、親側ObjAのメソッドと同じ名前のメソッドを子側ObjBに作り、
中身は親側ObjAのメソッドを呼び出すだけとすれば継承と同じ動作をするような気がします。
子側クラス内で親側クラスのインスタンスを作成しているので、循環しているような気持ち悪さはありますが、内部はメインコードからは見えませんし。
オーバーライド？というのも親側ObjA側のメソッドを呼ばずに子側のObjBのメソッドに処理を好きなように書けばいいだけと思いました。

そして関数型にありがちな関連性のない関数群Module1とかもClassMultiにプロパティのないクラスとして書いて、
オブジェクト化すると、マルチに活躍する便利屋みたいな存在として、これもオブジェクト指向な気がしてきました。

しかも先ほどの継承みたいに別のクラスから同名メソッドで呼ばせれば、同じメソッドをクラス毎に書く必要もありません。
メイン側から見るとオブジェクト指向そのものにも思えます。

オブジェクト指向を人間や動物に例えると、とてもわかりづらかったのですが、
ネームタグみたいな説明をしているサイトから、単なる整理整頓の為の思考技術みたいに考えて。
見せかけのオブジェクト指向を目指してみると、本物と大差ない気がしてきているのですが間違っていますか？

このままなんちゃってオブジェクト指向で進むことをお勧めできない理由がありましたら教えてください。
CallByNameとかImplementsとか勉強すればもっと本物に近づくような気がしています。
2023/01/29(日) 21:58:40.35ID:TymAj0Je0
Excelスレでも荒らしてるヤツがいるなここ
2023/01/29(日) 23:11:48.83ID:QtxW6Mg40
ワッチョイ付きに誘導されますた。

Type RecClass0
　field01 As String * 6
End Type
Type RecClass1
　field01 As String * 4
　field02 As Integer
End Type

Sub test()

　data = "abcdyyzzzz・・" ←　HEXにすると "414243440006??????・・"

　Dim rec0 As RecClass0
　Dim rec1 As RecClass1
　rec0.field01 = data

　rec1 = rec0　　　←型が一致しません

　Debug.Print Len(rec1.field02)
End Sub

dateの0006にあたる6を取ってきたいんだけど、上記のようなコードを考えてみた。
型が一致しませんになる。
代入て無理なのか？
コボルだとできるよな。
上のコードはインデントのために全角空白を使ってるので、半角にしてくれ。
2023/01/29(日) 23:33:48.49ID:5iJXY4pQ0
>>22
LSETじゃダメなのか？
2023/01/30(月) 03:06:05.93ID:yj3XWjhj0
>>23
できました
25デフォルトの名無しさん (ﾜｯﾁｮｲ 3619-GWjr)
垢版 |
2023/01/30(月) 08:01:49.37ID:1uz9zngm0
>>20
> 子側クラス内で親側クラスのインスタンスを作成しているので、循環しているような気持ち悪さはありますが、内部はメインコードからは見えませんし。

堅牢性から考えるとVBAに限らずここがまずいかな
子クラスCで親クラスAを生成すると言う事は、
もし同じような親クラスDを作成して同じ子クラスを
使おうとするとその中で親クラスAを作成することが
前提となってしまい、親クラスDでは使えない場合が出てくる。

子クラスではあくまで子クラスの役割を
与えるべきであって、もし親クラスの機能を
使いたいなら直接子クラスの中で生成するのではなく、
CallByNameやインターフェースを使用するかして
処理を移譲させるようにした方がいいと思うよ。
26デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdba-5IHC)
垢版 |
2023/01/30(月) 09:39:47.20ID:e2a+Lyz1d
CSVファイルって、Excelで開いて編集して保存すると文字コードの問題でデータの後ろに半角スペースが入ることがあるのでしょうか？
27デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdba-5IHC)
垢版 |
2023/01/30(月) 09:40:56.25ID:e2a+Lyz1d
元々半角スペース入ってなかったのにデータをかきかえたりすると文字コードがShiftJISではない場合、文字化けして半角スペースが入るのでしょうか？
2023/01/30(月) 10:51:56.77ID:Vha856Nid
ここはVBAスレなのでスレチでは？

Excel総合相談所 144
https://egg.5ch.net/test/read.cgi/software/1619665985/
2023/01/30(月) 11:54:01.10ID:beImLHJmr
>>26
https://www.officepro.jp/exceltips/tips_format/index19.html
これとか？
セルの表示形式の問題？
30デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdba-5IHC)
垢版 |
2023/01/30(月) 15:20:40.00ID:e2a+Lyz1d
>>29
たぶん、それだわ
ありがとう
2023/01/30(月) 15:57:22.13ID:dCL8a0ux0
>>29
その記事、余白と空白文字（半角スペース）を同一視してるのが気持ち悪いな
2023/01/30(月) 19:11:31.03ID:uxYUj7Ria
>>31
そうは言ってもExcelだと余白を空けるのに空白しか使えないから仕方なくね？
2023/01/30(月) 21:40:04.89ID:dCL8a0ux0
>>32
正しい余白ならインデントってのがあるが

CSVにしたらどうせ書式はなくなるのに、書式を空白で表そうとするEXCELが気持ち悪いのか
そのくせインデントは無視するという
2023/01/30(月) 22:17:38.88ID:uC26F0Aa0
>>33
なるほどインデントは忘れてたわw
2023/01/31(火) 05:21:30.98ID:JnYo5yDia
余白はデータじゃなくて、見た目。
見た目のために、データを変更するのか？

それなら、trim などで、データの先頭末尾の空白類を除去する必要がある
36デフォルトの名無しさん (ｱｳｱｳｳｰ Sa47-B/zI)
垢版 |
2023/01/31(火) 12:24:23.88ID:XEbPQm8Ra
余白は木を切る～
2023/01/31(火) 15:00:10.31ID:bFYKhQ9l0
うまい！座布団何枚？
2023/02/01(水) 15:16:25.31ID:J3cdB8RP0
>>25
レス感謝です。
呼び出しだけなので「お父さんやって」的なイメージでした。

＞もし同じような親クラスDを作成して同じ子クラスを
＞使おうとするとその中で親クラスAを作成することが
＞前提となってしまい、親クラスDでは使えない場合が出てくる。

ここがわかりませんでした。

ClsFatherとClsSonの二つがあるとします。
メインでClsFatherから父親シルバを作成、
自動的にClsFatherの中で息子キルアが作成されて父親のプロパティにセットされる
親クラスDにあたる父親ジンをClsFatherから作成して、息子ゴンがを作成される
息子ジンが継承もどきで使う機能は父親ドンのだけのつもりでしたが、
継承って本来は父親シルバ、息子ゴンみたいな組合せも自由に出来るものって意味だから
それじゃ違うよってことですか？

息子ゴンのメソッドでどの親メソッドを継承するかをImprementsとかで動的にしなさいということですか？
2023/02/01(水) 18:01:33.64ID:lcTv0p8q0
>>38
親が子を生成するのはいいけど、お前の設計では子が親インスタンスを生成するんじゃないのか？
ジンがゴンを生成しても、ゴンの親はゴンがきめるんだぞ
2023/02/01(水) 19:12:55.35ID:J3cdB8RP0
>>39
そうです。子も親のインスタンスを生成します。
当然オブジェクトとしては別物ですが、同じクラスからの生成ですので、
同じ親の機能を使えるという意味です。

実際にゴンはジンを作れず、ジンとほぼ同じ能力を持つ別の何かの力を使って
継承に見せかけるという事です。

この見せかけ行為が本当の意味での親オブジェクトの機能継承にあたらず危ないよって意味でしょうか？
で、本当の意味での親オブジェクトの機能を使うならCallByNameやImprementsを使いなよって意味でしょうか？
2023/02/01(水) 22:04:53.94ID:J3cdB8RP0
すみません。質問途中に別の質問をする事になってしまいます。
自力で解決出来ませんでした。

VBEのCtrl+hボタンで出てくる置換機能で、パターンマッチングを使用するにチェックを入れました。
Ai.Erase
Ai.Create
AiErase
AiCreate

この4つのワードにおいて、パターンマッチングとして
Ai[AE]としたら下の二つにだけマッチングしました。
そしたら一致したAとEは温存しつつAiとA or Eの間にどっとを入れたいのです。

実際はもう少し複雑なパターンなのですが。簡略化するとこんな感じです。
一致したAとEが消えてしまうので困っているのです。
一致した[AE]のどちらかをそのまま残したいと
Ai.[AE]みたいにしても置換後文字列はAi.[AE]がそのまま出てきてしまいます。

思ってるような使い方は出来ないという事でよろしいでしょうか？
2023/02/03(金) 01:33:26.18ID:0K9bvbAh0
Sub test_if()
a = -1
If a >= 2 Then
Debug.Print "aは2以上"
Else
Debug.Print "aは2未満"
End If
End Sub

というマクロなんだけど<>を使わずに同じことが可能？
<>はネット上では禁止されてる場合があるので。
2023/02/03(金) 06:07:59.84ID:VZIBsXzk0
範囲を指定できるのであればCase文でtoを使うとかかな
2023/02/03(金) 07:22:57.06ID:3sKN4Loqa
>>42
完全に同じかどうかは知らんが
If Application.WorksheetFunction.Min(a, 2) = 2 Then
2023/02/03(金) 11:32:43.16ID:bf4OLvi00
オートフィルタの或る列が昇順でソートされているかどうか
を判定する方法を教えて下さい。
2023/02/03(金) 11:36:12.10ID:bf4OLvi00
>>45
昇順か降順かは問わず、ソートされているかどうかでした。
2023/02/03(金) 19:20:46.12ID:UC5jDXxN0
>>45
自分でソートしたものと比較して同じ順番だったらソートされているといえる
2023/02/03(金) 19:24:07.79ID:fZLyE03H0
いや待て、どっかのプロパティにフラグがないかを尋ねてるんだと思うぞ
俺は知らないがな
2023/02/03(金) 20:25:48.41ID:6Slrjruv0
フィルターのボタンに↑↓とか表示されない？抽出とかだとﾛｰﾄの図が出てたり？
50デフォルトの名無しさん (ﾜｯﾁｮｲ ff19-gKyW)
垢版 |
2023/02/04(土) 01:29:18.62ID:Wbq5qWPo0
>>38
そそ、
そういう「どっちの親でも使える」ようにするために
そういう場合は継承は使わずに、移譲でやるのがいいんじゃないかと。
そもそもVBAじゃ厳密な意味の継承は使えないけどね。
2023/02/04(土) 03:13:48.63ID:5cp+GCIG0
一次元配列の中に二次元配列を入れるのってシートから二次元配列として取り込まない限り無理ですか？
例えばa(2)って一次元配列を作って
a(0)＝cells(1,1).currentregion
とした場合、a(0)(1,1)と格納されるよね。
一方、b(2)って一次元配列をつくってそこに2次元配列を格納しようとしてredim b(0)(100,100)って宣言してもエラーになるよね？
2023/02/04(土) 03:22:13.04ID:5cp+GCIG0
特に複数のcsvを一次元配列ごとに二次元配列として取り込みたかったんたけど、それができなくて困ってます
0.csv→a(0)に二次元配列として格納
1.csv→a(1)に二次元配列として格納
2.csv→a(2)に二次元配列として格納
よくありそうなパターンですけどネットで調べても出てこなくて…
何かいいアイディアはあるでしょうか？
2023/02/04(土) 06:12:27.84ID:JIMr/Iwq0
>>52
csvを格納するならそのまま格納して取り出すときにsplitで配列化したらどうか。
デリミタ変えてcsvを繋げてあげれば擬似的に2次元配列に出来んじゃね?
2023/02/04(土) 06:14:50.01ID:JIMr/Iwq0
>>53
あるいはdirectoryのitemに2次元配列としてaddするか
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。