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/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
ありがとうございます！！
希望通りに動きました。

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

2023/01/29(日) 14:40:20.12

>>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.34

looks like　〇
sounds like　×

2023/01/29(日) 15:15:30.68

なんで英訳

2023/01/29(日) 15:18:51.71

ChatGPT

2023/01/29(日) 16:52:45.66

こっちも零細企業荒らしがいるのか

2023/01/29(日) 18:16:29.96

クラスモジュールを使っていく勉強しています。
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.35

Excelスレでも荒らしてるヤツがいるなここ

2023/01/29(日) 23:11:48.83

ワッチョイ付きに誘導されますた。

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.49

>>22
LSETじゃダメなのか？

2023/01/30(月) 03:06:05.93

>>23
できました

2023/01/30(月) 08:01:49.37

>>20
> 子側クラス内で親側クラスのインスタンスを作成しているので、循環しているような気持ち悪さはありますが、内部はメインコードからは見えませんし。

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

子クラスではあくまで子クラスの役割を
与えるべきであって、もし親クラスの機能を
使いたいなら直接子クラスの中で生成するのではなく、
CallByNameやインターフェースを使用するかして
処理を移譲させるようにした方がいいと思うよ。

2023/01/30(月) 09:39:47.20

CSVファイルって、Excelで開いて編集して保存すると文字コードの問題でデータの後ろに半角スペースが入ることがあるのでしょうか？

2023/01/30(月) 09:40:56.25

元々半角スペース入ってなかったのにデータをかきかえたりすると文字コードがShiftJISではない場合、文字化けして半角スペースが入るのでしょうか？

2023/01/30(月) 10:51:56.77

ここはVBAスレなのでスレチでは？

Excel総合相談所 144
https://egg.5ch.net/test/read.cgi/software/1619665985/

2023/01/30(月) 11:54:01.10

>>26
https://www.officepro.jp/exceltips/tips_format/index19.html
これとか？
セルの表示形式の問題？

2023/01/30(月) 15:20:40.00

>>29
たぶん、それだわ
ありがとう

2023/01/30(月) 15:57:22.13

>>29
その記事、余白と空白文字（半角スペース）を同一視してるのが気持ち悪いな

2023/01/30(月) 19:11:31.03

>>31
そうは言ってもExcelだと余白を空けるのに空白しか使えないから仕方なくね？

2023/01/30(月) 21:40:04.89

>>32
正しい余白ならインデントってのがあるが

CSVにしたらどうせ書式はなくなるのに、書式を空白で表そうとするEXCELが気持ち悪いのか
そのくせインデントは無視するという

2023/01/30(月) 22:17:38.88

>>33
なるほどインデントは忘れてたわw

2023/01/31(火) 05:21:30.98

余白はデータじゃなくて、見た目。
見た目のために、データを変更するのか？

それなら、trim などで、データの先頭末尾の空白類を除去する必要がある

2023/01/31(火) 12:24:23.88

余白は木を切る～

2023/01/31(火) 15:00:10.31

うまい！座布団何枚？

20 (ﾜｯﾁｮｲ b666-5T4A) · 2023/02/01(水) 15:16:25.31

>>25
レス感謝です。
呼び出しだけなので「お父さんやって」的なイメージでした。

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

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

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

息子ゴンのメソッドでどの親メソッドを継承するかをImprementsとかで動的にしなさいということですか？

2023/02/01(水) 18:01:33.64

>>38
親が子を生成するのはいいけど、お前の設計では子が親インスタンスを生成するんじゃないのか？
ジンがゴンを生成しても、ゴンの親はゴンがきめるんだぞ

38 (ﾜｯﾁｮｲ b666-5T4A) · 2023/02/01(水) 19:12:55.35

>>39
そうです。子も親のインスタンスを生成します。
当然オブジェクトとしては別物ですが、同じクラスからの生成ですので、
同じ親の機能を使えるという意味です。

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

この見せかけ行為が本当の意味での親オブジェクトの機能継承にあたらず危ないよって意味でしょうか？
で、本当の意味での親オブジェクトの機能を使うならCallByNameやImprementsを使いなよって意味でしょうか？

40 (ﾜｯﾁｮｲ b666-5T4A) · 2023/02/01(水) 22:04:53.94

すみません。質問途中に別の質問をする事になってしまいます。
自力で解決出来ませんでした。

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.18

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.84

範囲を指定できるのであればCase文でtoを使うとかかな

2023/02/03(金) 07:22:57.06

>>42
完全に同じかどうかは知らんが
If Application.WorksheetFunction.Min(a, 2) = 2 Then

2023/02/03(金) 11:32:43.16

オートフィルタの或る列が昇順でソートされているかどうか
を判定する方法を教えて下さい。

2023/02/03(金) 11:36:12.10

>>45
昇順か降順かは問わず、ソートされているかどうかでした。

2023/02/03(金) 19:20:46.12

>>45
自分でソートしたものと比較して同じ順番だったらソートされているといえる

2023/02/03(金) 19:24:07.79

いや待て、どっかのプロパティにフラグがないかを尋ねてるんだと思うぞ
俺は知らないがな

2023/02/03(金) 20:25:48.41

フィルターのボタンに↑↓とか表示されない？抽出とかだとﾛｰﾄの図が出てたり？

2023/02/04(土) 01:29:18.62

>>38
そそ、
そういう「どっちの親でも使える」ようにするために
そういう場合は継承は使わずに、移譲でやるのがいいんじゃないかと。
そもそもVBAじゃ厳密な意味の継承は使えないけどね。

2023/02/04(土) 03:13:48.63

一次元配列の中に二次元配列を入れるのってシートから二次元配列として取り込まない限り無理ですか？
例えば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.04

特に複数のcsvを一次元配列ごとに二次元配列として取り込みたかったんたけど、それができなくて困ってます
0.csv→a(0)に二次元配列として格納
1.csv→a(1)に二次元配列として格納
2.csv→a(2)に二次元配列として格納
よくありそうなパターンですけどネットで調べても出てこなくて…
何かいいアイディアはあるでしょうか？

2023/02/04(土) 06:12:27.84

>>52
csvを格納するならそのまま格納して取り出すときにsplitで配列化したらどうか。
デリミタ変えてcsvを繋げてあげれば擬似的に2次元配列に出来んじゃね?

2023/02/04(土) 06:14:50.01

>>53
あるいはdirectoryのitemに2次元配列としてaddするか

2023/02/04(土) 06:19:01.21

>>54

> >>53
>スマン。directoryじゃなくてdictionaryだｗ

2023/02/04(土) 08:21:23.33

>>48
その通りです。ネット検索しても出て来ないため、ここで聞いてみてどうかなと思いました。
>>49さん仰るように矢印がボタンに表示されるので、何かあるはずと思ったのです。

2023/02/04(土) 09:06:33.92

>>45
ググっただけだけど
Worksheet.AutoFilter.Sort.SortFields
あたりを見ればわかるんじゃね？
てかMSのDocsもこの辺りのドキュメントが貧相で困るわ

2023/02/04(土) 09:14:10.73

>>45
AIさんからの天の声です

Sub CheckSortOrder()
Dim sortOrder As Boolean
sortOrder = ActiveSheet.AutoFilter.Sort.SortOn
If sortOrder = True Then
MsgBox "The column is sorted in ascending order."
Else
MsgBox "The column is not sorted in ascending order."
End If
End Sub

2023/02/04(土) 10:59:33.56

>>58
だからさ、そのコードが有効かどうかを、先ずはじぶんで検証しろよ　ゴミコードだろうと何でも貼りゃあいいってもんじゃねーぞ
△！　オブジェクトは、このプロパティまたはメソッドをサポートしていません。だぞ　おま環のせいで動作しないだけってか？
検証もしてない野良コードは世間の大迷惑　AIなら間違わないってか？　訊ねる人間側に問題あるからゴミコード吐くのに気付け

2023/02/04(土) 11:20:43.51

>>59
そのコードを検証することは重要です。そのコードが有効かどうかは、まず自分で確認する必要があります。「AIなら間違わない」という考え方は誤りです。AIモデルはトレーニングデータから学習するだけであり、常に正確ではありません。野良コードを使用しても問題が起こる可能性があり、それが世間を混乱させることがあります。

2023/02/04(土) 13:12:21.87

>>53
「csvを格納するならそのまま格納して」って言うのが、まさにその方法を知りたいっていう質問でした
Line Inputをつかって一行ずつ一次元配列に分割して、それを二次元配列に格納して、二次元配列の一次元目を増やして…ってのを繰り返すってのを考えました
（二次元配列の一次元目を増やすプロシージャを作成する前提）
ところがredim b(0)(100,100)という宣言自体がエラーになるのでどうしたものかと

2023/02/04(土) 14:48:40.79

>>61
お役に立てたのならなによりっす。

でもその内容を聞いた感じだとcollectionかdictionaryを使ったほうがいい気もする。csvがどのくらいの文字数かわからんけど下手するとオーバーフローしそうな気が、、、

あとそもそもファイル操作で読み込むんじゃなくてPowerqueryとかでデータテーブル化してしまえば扱いやすい気も、、、あ、スマンね。いらぬお節介やった。

2023/02/04(土) 18:22:34.02

>>61
そういうのって1次元の配列にCSVから作った2次元配列を足していくジャグ配列だよね
a(b)(c,d)として使いたいってそういう事だよね
CSVから2次元配列に落とす部分は自力で適当に作るしかないと思うよ

2023/02/04(土) 19:42:17.96

>>52
２次元配列を格納したバリアント型の1次元配列を使えばまあできるんじゃね

2023/02/04(土) 22:05:52.42

>>62
ジャグ配列はまさにその通りです！
色々調べてみたところ、Workbooks.OpenTextで一度新しいブックを開いて、そこをcurrentregionで二次元配列として取得するのが一番早そうでした
シート一度貼り付けて、そこから取得するのがちょっとかっこ悪い気もしますが、コード的には一番楽のだと思うのでそれでいきたいと思います
ありがとうごさいました！

2023/02/04(土) 22:07:02.46

>>63
すみません、安価こっちでした
>>62さんも>>64さんもありがとうございました！

2023/02/05(日) 06:12:14.98

>>65

解決の糸口が見つかってよかったです。
シートに貼り付けるのは一見かっこ悪く見えるかもしれませんが、エクセルの場合シート自体が目視できる2次元配列みたいなものなのでデータ用のシートを用意しておくのはデバッグの意味でも有効と思います。
最終的に非表示にしておけばデータを変えて不具合が出たときに参照できますしね。

2023/02/05(日) 17:55:21.75

シートに読み込ませてUsedRange.Valueで二次元配列を取得する場合はインデックスが1オリジンになるとこだけ注意

2023/02/08(水) 13:33:38.06

名前の定義で範囲に名前をつけると数式で使用できますが、
VBAで自作関数を作り、その引数として定義した名前を使用するとエラーとなってしまいます。
一応定義した名前の後に&“”を付けて文字列化すればエラーを回避できるのですが、毎回これを入力するのは煩わしく見栄えも悪いのでできることならなんとかしたいのですが
解決策ありましたらご教示の程お願いいたします。

2023/02/08(水) 14:59:06.65

その関数のシグネチャとエラーメッセージぐらいかけよ

2023/02/08(水) 15:37:35.62

毎回やるならインターフェース関数作ればいいだけ

2023/02/08(水) 20:18:25.84

>>69
実現したいことがどんなことなのかわからないけど名前定義した範囲をRange型の変数にsetしてRange型のまま引数として渡しちゃいかんの?

2023/02/08(水) 23:15:53.95

言葉でうまく説明できないので画像で説明させていただきます。
例えば引数の文字列に別の文字列をくっつけて返すだけのシンプルな関数を作ります。
当然引数にセルを指定すれば問題なく使用できます。
https://i.imgur.com/SnSyEby.png

次に、範囲に名前をつけてそれを引数として使用します。
https://i.imgur.com/6mcu5nn.png

するとこのように「#VALUE!」エラーが出ます。
https://i.imgur.com/9NNr0sB.png

ちなみに範囲の名前に&“”をつければ期待通りの結果になります。
https://i.imgur.com/haXX7gC.png

と、SS撮ってて気づきましたが範囲の中から同じ行のセルを選んで渡す必要があるのですね。
VLOOKUPの第一引数なんかで同じことをすると自動的に同じ行だけを渡せるので勘違いしていました。

2023/02/09(木) 07:05:59.22

>>73
検証してないので的外れかもしれないけどたぶんRangeのデフォルト値の問題かと。
うろ覚えだけどvariant型で渡されているからセル単体を引数で渡すとセル内容の値の型（今回はstring型）を渡すけど
複数セルを渡すとrange型のオブジェクトとして渡されてるんじゃないかな。
なので自身で書かれているようにセルを特定してあげないといけないのだと思う。

2023/02/09(木) 23:30:18.42

>>73
>範囲の名前に&“”をつければ期待通りの結果になります
のがおかしい気がするんだが。実際こっちで検証してもエラーになってる
ちょっと環境書いてみて

2023/02/13(月) 03:20:36.33

Sub test()
a = 0.2
b = 0.4
If a + b = 0.6 Then
Debug.Print "A"
Else
Debug.Print "B"
End If
End Sub

これってAじゃね？

2023/02/13(月) 07:05:23.93

>>76
Excelでは少数を厳密には表現できないから
0.1と書いても実際の値には0.12...みたいなのが入る
そのズレた値同士の足し算をズレた値と比べるからガタガタで合わなくなる

2023/02/13(月) 07:53:01.46

>>76
きちんと型宣言すればちゃんと計算できる
詳しくは下を見た方が早い
https://excel-ubara.com/excelvba4/EXCEL_VBA_427.html#:~:text=Single%EF%BC%88%E5%8D%98%E7%B2%BE%E5%BA%A6%E6%B5%AE%E5%8B%95%E5%B0%8F%E6%95%B0%E7%82%B9%E6%95%B0%E5%9E%8B%EF%BC%89%E3%81%AF4%E3%83%90%E3%82%A4%E3%83%88,%E7%99%BA%E7%94%9F%E3%81%97%E3%81%A6%E3%81%97%E3%81%BE%E3%81%84%E3%81%BE%E3%81%99%E3%80%82

2023/02/13(月) 10:13:40.33

>>76
ほんとだよく気付いたねって言ってほしいのか？

2023/02/13(月) 10:18:31.40

すみません、マクロスレに誘導されてきました。教えてください
【1 OSの種類　　　　 .】 Windows**
【2 Excelのバージョン　】 Excel16.0
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
◆やりたいこと
データモデルに値を格納し接続先を作成している
その接続先にあるリストを、検索フォーム、コンボボックスなどのデータソースにしたい
◆補足情報とし調べがついてること
・ピボットテーブルにはビボットテーブル→データモデルからで設定できた
・選択リストもINDIRECT関数で設定できた
・コンボボックスや検索フォームは、RowSourceTypeにテーブルクエリーを設定
・RowSourceプロパティにテーブル名を設定
ここまではわかっていますが、うまく設定ができません

具体的には、下記コードでエラーが出ます
実行時エラー‘13’
型が一致しません

エラーの出たコード
Privets Sub UserForm1 Initialize() {
Me.ComboBox1.RowSourceType = “Table/Query”
Me.ComboBox1.RowSource = “syamei1”
}

上記のコードの書き方、サンプルコードがあれば教えて下さい。よろしくお願いします

2023/02/13(月) 10:21:58.10

連投すみません
コンボボックスじゃなくても構いません
やりたいことは大量のデータをもとに入力用のポップアップウインドウを作りたいです
レコードが合計で100万以上あり、重たくなるのを避けるために、データモデルの概念を知り、それで入力フォームを作ろうとしています
その方法でコンボボックスを見つけましたが、元となるデータソースがデータモデルの接続先から選べるなら、コンボボックスの形式じゃなくても構いません

入力規則で選択リストの値を持ってくることはできましたが、レコード件数が多いので、フォームで出したいと思っています

よろしくお願いします

2023/02/13(月) 11:40:19.98

Privets ？

2023/02/13(月) 14:18:20.91

スマホ手打ちなので誤字は勘弁を

2023/02/13(月) 17:29:24.70

スマホで5ちゃん見てる人も多くなったのか

2023/02/14(火) 11:37:45.99

拙者も携帯なので試せないでござるよ

2023/02/14(火) 13:19:18.08

現場で使えるテクニック満載のVBAの本を教えて下さい。

2023/02/14(火) 22:18:21.54

見てどうする？
現場に活かせるとは限らんぞ

2023/02/15(水) 09:38:23.37

syamei1ってテーブルを指定してるようだけど
ちゃんとテーブルが存在してるの？
RowSourceでクエリやsql指定してみたら？

2023/02/15(水) 19:02:02.67

>>87
活かせる現場に転職するんじゃね

2023/02/15(水) 19:27:38.40

ネットが見れない環境なんかね？
銀行系ではよくある話だけど

2023/02/15(水) 19:39:09.60

絆創膏テクニック的な本はたくさん出ているでしょ

2023/02/15(水) 20:32:13.82

銀行でお金の計算を初心者が本見ながらEXCELのVBAで作ってるとか
そんな銀行やばくね

2023/02/16(木) 02:33:56.63

ヤバいよそれは。
思い出したけど、どこかの銀行がATMの不具合出した事故を思い出したわ。
それと同じようなトラブルになるのでは？

2023/02/16(木) 14:14:15.80

Excel 365なんだが
ActiveXのコンボボックスをシートに配置すると
ブックを閉じるときにコンボボックスのChangeイベントが発生して
Changeイベントのコードが実行されるんだが、なんで閉じるときに発生するん？
バグじゃねーの？

2023/02/16(木) 17:40:38.79

アクティブXコントロールでボタン作ると、ボタン押した時にボタン内の文字が左に寄るのですが、これは治せるのでしょうか？

2023/02/16(木) 17:44:23.49

ActiveXオブジェクトは、自分(Application)のオブジェクトに見えても、実は外部のオブジェクトです
Application イベントの扱いで記述不足や漏れが無いか、プロパティの見直しなどしてみるかコードを貼ってみるなり

2023/02/16(木) 20:35:33.62

ActiveXってExcelで使わない方が良いみたいな記事(日経PC)で見た記憶ある

2023/02/17(金) 07:12:43.98

ActiveXはExcelシートで使うもんじゃないってのは今でも定石！

2023/02/17(金) 10:04:33.80

https://answers.microsoft.com/ja-jp/msoffice/forum/all/office-2016-の-activex/81aa0b17-2f60-49c3-83f7-02c164969f7c

Excel2016のバグなんですね

2023/02/17(金) 10:05:10.85

https://answers.microsoft.com/ja-jp/msoffice/forum/all/office-2016-の-activex/81aa0b17-2f60-49c3-83f7-02c164969f7c

2023/02/17(金) 10:15:37.69

そんな古いVer使い続けるなよ　スタンドアロンで一台こっきりならまだしも

2023/02/17(金) 15:42:35.67

検索で例えば「あ」という文字をすべて探し出して
その一文字前を選択したいんですがどうすればいいですか？
Selection.Find
　.Text = "あ"
　Selection.Words.First.Previous.Select
としてみましたがうまく行きませんでした
カーソルのある前の文字が選択されます

2023/02/17(金) 16:30:19.83

>>102
複数の選択ができると思ってんのか？

2023/02/17(金) 17:31:12.72

>>103
できないんですね…VBA触ったの今日が初めてなもので
最終的には"あ"の一文字前だけをフォント変更したいんですがどういう実装ならできそうか分かりませんか？

2023/02/17(金) 20:35:48.06

>>104

自分なら検索して見つかったセル毎に
「あ」が何文字目にあるかを取得し、
その１文字前のフォントを変更するというふうに組む。

2023/02/17(金) 20:59:53.94

>>105
ありがとうございます
けど"あ"が複数あるセルも多いので…複数回走査したらループ終わらなくなりますし
"あ"は目印として入れてあるだけで最後にまとめて消すつもりだったんですが
一回フォント変更の処理したらそこの"あ"を消してもう一度検索がいいんでしょうか…

2023/02/17(金) 22:23:30.64

>>106
Mid( Range.value, x)で
セル内のx文字目から後ろを切り出せる
Instr( Mid( Range.value, x), z)で
セル内のx文字目から切り出した中で文字列zが何文字目にくるのか知ることができる
Range.characters(x, y).Fontで
セル内のx文字目からy文字分みたいな一部指定でのフォント変更が出来る

これらのxやyをForで変更しながら処理すればいけると思う

2023/02/17(金) 22:57:47.99

>>107
あああなるほどなるほど
仰ってる意味はギリわかるんですけどコードいじるのほぼ10年ぶりとかなんでハードル高い～～～
どうにかがんばってみます……
ありがとうございました