Excel VBA 質問スレ Part49©2ch.net

■ このスレッドは過去ログ倉庫に格納されています
2017/06/26(月) 02:15:14.60ID:T3ylemnb0
!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※前スレ
Excel VBA 質問スレ Part48
http://mevius.2ch.net/test/read.cgi/tech/1494890685/

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured
2017/07/19(水) 18:04:33.44ID:n0rSSeVEd
自決
2017/07/19(水) 18:31:39.20ID:r34rJ2pSr
>>364-365
配列は要素数の空判定でお茶を濁そう。

これ以上のブラッシュアップは断念。
コードとしてはそこそこ美しいと思う。

Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty
　　　　　　IsNone = True
　　　　Case vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　If hoge Is Nothing Then IsNone = True
　　　　Case vbString
　　　　　　If hoge = vbNullString Or hoge = "" Then IsNone = True
　　　　Case vbArray + vbVariant
　　　　　　If Ubound(hoge) = -1 Then IsNone = False
　　End Select
End Function
2017/07/19(水) 18:35:56.55ID:r34rJ2pSr
訂正。最後、Trueだった。。(^_^;)

Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty
　　　　　　IsNone = True
　　　　Case vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　If hoge Is Nothing Then IsNone = True
　　　　Case vbString
　　　　　　If hoge = vbNullString Or hoge = "" Then IsNone = True
　　　　Case vbArray + vbVariant
　　　　　　If Ubound(hoge) = -1 Then IsNone = True
　　End Select
End Function
2017/07/19(水) 18:47:58.49ID:pHR1WedN0
>>373
Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty,vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　If hoge Is Nothing Then IsNone = True
　　　　Case vbString
　　　　　　If Len(Trim(hoge)) = 0 Then IsNone = True
　　　　Case Is >= vbArray
　　　　　　IsNone = True
　　End Select
End Function

ArrayはVariant型以外の場合もあるから、この方がいい。
2017/07/19(水) 19:22:16.26ID:r34rJ2pSr
>>375
おおー、まだブラッシュアップできたか。
素晴らしい。

それなりに使える関数になったかもね。
2017/07/19(水) 19:26:12.74ID:uwa7S77b0
素晴らしい。
2017/07/19(水) 19:29:01.56ID:+D5BELFr0
配列と型のチェックを同時にする時はとりあえず一次元配列に直せば楽ってばっちゃが言ってた
2017/07/19(水) 20:01:06.21ID:bbPNdV8fd
書いてから気づいたけどvbnullは型ではなくてただの列挙体なので判定しなくてもいいよな

あと““はなんかダサいからvbnullstring使うのがいいかも
2017/07/19(水) 20:04:24.02ID:n0rSSeVEd
判定としては UBound < LBound にしなくちゃね
2017/07/19(水) 20:16:48.04ID:r34rJ2pSr
>>379
たとえば、InputBoxでキャンセルを押すとvbnullstringが返る。
何も入力せずにOKを押すと "" が返る。

つまり、vbnullstringと "" は別物なのでそれぞれに判定する必要がある。
2017/07/19(水) 20:20:16.17ID:r34rJ2pSr
>>380
たしかにそのほうがきれいだね。

いや、いろいろ出てくるもんだなぁｗ

美しいコード書きへの道のりは遠い…
2017/07/19(水) 20:20:56.04ID:pHR1WedN0
>>379
vbNullStringと""は判定としては別なので、片方だけにすると抜けが起きる。
2017/07/19(水) 20:28:12.28ID:pHR1WedN0
>>382
うろ覚えだけどVarTypeでvbArrayとして返ってきた場合でもUboundするとエラーになるケースがあったはずなので、
Uboundを使う場合は別関数でOn Error Gotoで飛ばせるようにしておきたい。

Function SafeUBound(hoge, Optional div As Long) As Long
On Error GoTo fin
If div = 0 Then div = 1
SafeUBound = -1
SafeUBound = UBound(hoge, div)
fin:
End Function

Function SafeLBound(hoge, Optional div As Long) As Long
On Error GoTo fin
If div = 0 Then div = 1
SafeLBound = 0
SafeLBound = LBound(hoge, div)
fin:
End Function

と置いてSafeUbound < SafeLBoundで判定したい。
2017/07/19(水) 20:38:22.51ID:r34rJ2pSr
一応簡単なテストコード的な…

hoge = Range("A1").Value: Debug.Print IsNone(hoge) & ":" & VarType(hoge)
hoge = InputBox("値を入力してください。"): Debug.Print IsNone(hoge) & ":" & VarType(hoge)
Set hoge = Sheets(1): Debug.Print IsNone(hoge) & ":" & VarType(hoge)
Set hoge = Nothing: Debug.Print IsNone(hoge) & ":" & VarType(hoge)
Set hoge = CreateObject("InternetExplorer.Application"): Debug.Print IsNone(hoge) & ":" & VarType(hoge)
hoge.Quit
Set hoge = Nothing: Debug.Print IsNone(hoge) & ":" & VarType(hoge)
hoge = Array(): Debug.Print IsNone(hoge) & ":" & VarType(hoge)
2017/07/19(水) 21:08:04.97ID:WMMf4PqS0
エクセルでLISTAGGに相当するものは何ですか？

ソートしてForで上下比較して足してけとか言わないでください。
2017/07/19(水) 21:53:52.63ID:UJWjDrSmx
>>371
成仏しなされ
2017/07/19(水) 22:03:31.20ID:54vs2xq7M
>>373
> 配列は要素数の空判定でお茶を濁そう。
それが簡単にできれば>>363とかがわざわざレスせんよ

>>375
> ArrayはVariant型以外の場合もあるから、この方がいい。
アホか、ビットマスクなんだから And VbArray で判断しろよ
2017/07/19(水) 22:03:54.68ID:uC8D1QH+e
vbNullString を厳密に判定する場合、StrPtr()使わないと判定できないと思ふ

If StrPtr(vbNullString) = 0 Then ’〜　Null Pointer
2017/07/19(水) 22:36:12.42ID:pHR1WedN0
>>388
Select文だとAnd vbArrayって使えないと思うんだけど、例文出してくれる？
391デフォルトの名無しさん (ﾜｯﾁｮｲ f191-+gV6)
垢版 |
2017/07/19(水) 23:08:15.46ID:3ENxF81t0
>>386
無い
作れば？
2017/07/19(水) 23:33:45.07ID:54vs2xq7M
>>390
ひょっとして応用力ないとか？
Selectにこだわる必要ないし
どうしてもやりたきゃ
Select Case True
Case （VarType(hoge) And VbArray) <> 0
...
でいいだろ
2017/07/19(水) 23:39:04.83ID:pHR1WedN0
>>392
ああ、やっぱりそういう方法しかないのね。

元々がIf文を可能な限り使わないというところから出発しているし、
それだとIf Else使った方が処理も速いしSelect文で読みやすくするっていう利点も潰してるんだよな。
2017/07/20(木) 01:20:53.05ID:CiXoybJd0
>>381,383
たしかにvbNullStringと""は別物なんだが
vbNullString=""の比較はTrue返すはず
単に空チェックだけなら""とだけ比較しとけば良いんじゃね
2017/07/20(木) 01:36:37.21ID:IzREkzShr
やはり、配列の空判定は別関数にしたほうが良さそうだね。

Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty, vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　If hoge Is Nothing Then IsNone = True
　　　　Case vbString
　　　　　　If Len(Trim(hoge)) = 0 Then IsNone = True
　　　　Case Is >= vbArray
　　　　　　If ArrayEmpty(hoge) Then IsNone = True
　　End Select
End Function

Function ArrayEmpty(hoge) As Boolean
　　美しいコード
End Function
2017/07/20(木) 01:50:57.43ID:IzREkzShr
>>384を使って、

Function ArrayEmpty(hoge) As Boolean
　　If SafeUbound < SafeLBound Then ArrayEmpty = True
End Function

Function SafeUBound(hoge, Optional div As Long) As Long
On Error GoTo fin
If div = 0 Then div = 1
SafeUBound = -1
SafeUBound = UBound(hoge, div)
fin:
End Function

Function SafeLBound(hoge, Optional div As Long) As Long
On Error GoTo fin
If div = 0 Then div = 1
SafeLBound = 0
SafeLBound = LBound(hoge, div)
fin:
End Function

う〜〜ん、、、いまいち美しくない…orz
2017/07/20(木) 02:11:18.92ID:IzREkzShr
>>394
> 単に空チェックだけなら

Len(Trim(hoge)) = 0

で事足りてるような気はする。

イミディエイトウィンドウでテストしてみて。

? Len(Trim(InputBox("値を入力してね"))) = 0

［OK］［キャンセル］どちらでも True が返る。
2017/07/20(木) 02:46:26.38ID:2lo8GEfG0
>>396
Function RBound(hoge, Optional div As Long) As Long
On Error Resume Next
If div = 0 Then div = 1
RBound = UBound(hoge, div) - LBound(hoge, div) + 1
End Function

あくまで配列要素数があるかどうかだけ判断したいなら、こういう関数でもいいと思うけど。
2017/07/20(木) 07:38:01.83ID:IzREkzShr
>>398
おおー、だいぶスッキリしたね。

ひとつ残念なのは、引数の次元指定が美しくないんだよなー。

つか、1次元の要素が空の配列なんて使う？
1次元が空かどうかだけ判定すればいいんじゃね？
2017/07/20(木) 08:01:18.50ID:fTGUueKRd
関係ないけど配列の次元を求めるWin32APIがあるのに、いつまでたってもVBAから使えないのは何なの？
2017/07/20(木) 08:08:10.03ID:izganQUxM
>>399
Optionalをわかってないのは美しい美しくないとか言う以前の問題。
2017/07/20(木) 08:34:30.46ID:fh0pKX4k0
その理屈だと、大抵の事はC＋＋で出来るから他の言語は不要ということになるな
2017/07/20(木) 09:48:29.70ID:fTGUueKRd
>>402
VBAから使えるようになればC++の必要性が減る、と解釈するのが自然だと思うけどな？
2017/07/20(木) 12:39:43.62ID:qV+ymKYWM
>>393
速いとか読み易いの前に正しいコードを書きましょう
って話
動けばOkでいいじゃんと言うなら返す言葉はないけど
2017/07/20(木) 12:51:59.09ID:IzREkzShr
>>401
optionalはわかるよ。

仮に引数指定するとして、どの時点で指定するのかな、って。
2017/07/20(木) 12:55:10.23ID:IzREkzShr
>>404
つか、正しくないコードは動かないでしょ。
2017/07/20(木) 13:34:31.13ID:fTGUueKRd
>>398のは
配列要素数があるかどうか「だけ」判断するというのとOptional引数で
次元を指定させる点がちぐはぐなんだよね。
2017/07/20(木) 13:40:13.76ID:fTGUueKRd
それとも手持ちの関数をまんまコピペしたのかな？
2017/07/20(木) 18:17:53.32ID:IzREkzShr
ま、配列の空判定関数は各自で書くということでこの話題は完結かな。

ちなみに俺は、

Function ArrayEmpty(hoge) As Boolean
　　On Error Resume Next
If UBound(hoge) - LBound(hoge) < 0 Then ArrayEmpty = True
End Function

って感じ。

空判定関数を書くというだけの話題だったけど、いろいろ勉強になったね。

おつかれさまー。ﾉｼ
2017/07/20(木) 18:32:35.34ID:IzREkzShr
3行目は

If UBound(hoge) < LBound(hoge) Then ArrayEmpty = True

のほうが美しいな。
2017/07/20(木) 18:53:02.67ID:2lo8GEfG0
そしたら

ArrayEmpty = UBound(hoge) < LBound(hoge)

でもいける。
2017/07/20(木) 18:56:56.64ID:IzREkzShr
>>411
素晴らしい！！

頭が柔らかくて羨ましいよ。
2017/07/20(木) 19:42:53.19ID:0IwNCiVxd
完成した関数テンプレにのこしておいてよ
vbaの良質なコードはすごく希少だし
2017/07/20(木) 19:58:58.45ID:qV+ymKYWM
>>406
たまたま動いてるだけのコードも正しいと言い張るの？
2017/07/20(木) 20:06:31.90ID:IzREkzShr
>>414
つか、いったい何が悔しかったの？
君ほどの実力者が。
2017/07/20(木) 20:27:30.52ID:IzREkzShr
>>413
どこに残せばいいの？

完成品はこれでいいかな。

Function IsNone(hoge) As Boolean
　　Select Case VarType(hoge)
　　　　Case vbEmpty, vbNull
　　　　　　IsNone = True
　　　　Case vbObject
　　　　　　IsNone = hoge Is Nothing
　　　　Case vbString
　　　　　　IsNone = Len(Trim(hoge)) = 0
　　　　Case Is >= vbArray
　　　　　　On Error Resume Next
　　　　　　IsNone = UBound(hoge) < LBound(hoge)
　　End Select
End Function

簡潔で美しいね。みんなの力の結晶だ。
2017/07/20(木) 22:00:04.12ID:4n7T5v3d0
>関数テンプレにのこしておいてよ

どこにあんだよ、そんなの
ここで知った人間で保存しておきたいって奴が保存しておけば良いだろ
2017/07/20(木) 23:07:38.62ID:2lo8GEfG0
スレッドのテンプレに残しておいてほしいって事なんじゃないの。
でも残し始めたら際限無くなるし、コピペで済ませずに理論と意図を理解して同じものを一から書けるようになってほしいなぁ。
2017/07/21(金) 05:39:07.68ID:qElIELIq0
>>415
えっ？
なにか悔しいことでもあったの？ w
420デフォルトの名無しさん (ｵｯﾍﾟｹ Sr1b-8ndb)
垢版 |
2017/07/21(金) 12:22:10.00ID:vdvVccQ6r
こんなコードテンプレに残したらますます初心者が初心者を惑わすスレに拍車がかかるなｗ
本当に仕事でエクセルマクロを必要としてる人には迷惑かけんなよｗ
2017/07/21(金) 12:42:41.45ID:omOOvC2LM
残せというやつがwikiでも立てて残していきなよ
2017/07/21(金) 14:22:43.43ID:WPcJx8Myr
> 初心者が初心者を惑わすスレ

言い得て妙だｗｗ

いいんだよ、それで。
VBA使いはエンジニアじゃないから。
2017/07/21(金) 14:37:29.87ID:Rk0p0Likx
>>422
さーせん
lsi engっす
2017/07/21(金) 14:46:06.01ID:+UMDimrcM
>>422
まだVBA使い≠エンジニアとか言ってるの？
エンジニアでもVBA使いは居るってのに
2017/07/21(金) 15:00:26.78ID:rDxvAnQTM
低スキルにありがちな下らないレッテル張り
2017/07/21(金) 15:28:32.09ID:4zV211iR0
どの言語の質問スレも初心者が初心者を惑わすスレ化してるのが悲しい。
「よくある質問と回答」レベルなら問題ないんだけど、ちょっと突っ込んだ質問になるととたんに雲行きが怪しくなる。

ある程度の実力を身につけたら2chじゃなくてちゃんとしたコミュニティか何かに参加するべきなんだろうけど、
だいたい見つからないし、見つけても2chほど気軽に質問投げられるような場所じゃなかったりするんだよな。
2017/07/21(金) 17:53:53.00ID:WPcJx8Myr
>>426
知恵袋とか、もっと酷いよ。
2017/07/21(金) 19:35:15.46ID:tSBq1lkVM
>>426
ネットの情報なんだから裏を取ればいいだけ
今時書いてあるキーワードでググれば調べるのもそんなに苦労しないしな
惑わされるより過疎化してまともな回答が少なくなってる方が問題だわ
2017/07/21(金) 19:48:27.62ID:xN3mSVPqr
>>424
エンジニアでもVBA使いは居るけど、
VBA使いになりたいエンジニアはいない。
2017/07/21(金) 19:55:14.10ID:BM2lcFDS0
>>429
これな
いやいやだわ
javascriptのほうが楽しいし
2017/07/21(金) 19:56:51.84ID:xN3mSVPqr
>>430
JavaScriptのほうが楽しい理由は？
2017/07/21(金) 19:57:13.96ID:/kK1+YO60
＞javascript
お、おう
2017/07/21(金) 20:01:12.83ID:cakM1ik60
javascriptってvbaの次に底辺やんwww
2017/07/21(金) 20:05:21.15ID:ZXE38ZHX0
そりゃていへん(大変)だ


(´・ω・｀)b
2017/07/21(金) 20:10:04.71ID:xN3mSVPqr
>>433
使ったことある人が多い言語って底辺扱いされやすいよね。

おそらく、C や Java の比じゃないと思うよ。＞VBA

でも、Java は使う人が多くなりつつあるから、底辺扱いされるのは時間の問題かもね。
2017/07/21(金) 20:58:10.67ID:4zV211iR0
新興の言語って利用者全員が似たような習熟度だから意思疎通が図りやすいし、
どんなにクソみたいなコード書いても判断材料が無くて効率的なコードって言ってもらえるからな。
2017/07/21(金) 21:00:52.93ID:Byrlump20
>>369
欠陥なんじゃなくて、馬鹿ほどvariantを使う法則なだけ
2017/07/21(金) 21:04:33.39ID:mLcSl7GWd
何の話だっけ？
2017/07/21(金) 21:21:32.57ID:/kK1+YO60
西中島南方北口の話
2017/07/21(金) 21:54:13.22ID:xestLY0Q0
長い間SQL触ってたので、
SelectがVBAにもあったのを完全に忘れていた、という話。
2017/07/21(金) 21:57:47.01ID:/kK1+YO60
複数の言語を使うとselectとswitchは妙に間違える
俺だけかねー？
2017/07/21(金) 22:03:49.06ID:mLcSl7GWd
>>441
わかる
2017/07/21(金) 22:16:02.62ID:gUUF92OH0
JavascriptにおけるjQuery的な
VBAのクラスってどっかにないのかな

Set class = New class
class.lastRowAdd(Range("a1"),array)
ってやったら最終行に配列の内容をぶっ込んでくれる
とか
よくある操作をパラメーター渡せばやってくれるような
2017/07/21(金) 22:20:47.57ID:zOHs/jgU0
>>443
それって結果は何になるの？
2017/07/21(金) 22:30:00.89ID:gUUF92OH0
>>444
このコードは妄想クラスメソッドなのでエラーになるけど
もし、いろんな汎用処理を詰め込んだクラスなりを
誰か作ってたら欲しいなーと思いましたとさ、という話
2017/07/21(金) 23:32:25.33ID:zOHs/jgU0
>>445
そうじゃなくて１次元配列が出来上がるとか２次元配列が出来上がるとか
もちょっと具体的に
あと第二引数はなんだ？
2017/07/21(金) 23:36:11.83ID:/kK1+YO60
そこまで引っ張る話題でもなくね？と思うけど確かにどうしたいのかわからんのもあってちょっと聞きたくもあり
2017/07/21(金) 23:41:52.51ID:4zV211iR0
見た目からするとSQLで解決しそうな感じがする。
2017/07/22(土) 00:08:10.36ID:AfU+LLGPr
科学計算が爆速でできるVBAのフレームワークができれば、VBAの価値は一気に上がる。
2017/07/22(土) 00:08:20.61ID:6zQAY8zL0
データベースな表で
第一引数のセルから下に見ていって一番下に
第二引数の配列をズドンと書き込む
という想定

たしかにそこまで引っ張るネタでもないです
451デフォルトの名無しさん (ﾜｯﾁｮｲ c78b-8ndb)
垢版 |
2017/07/22(土) 00:10:10.03ID:uAFmR2/H0
そんな事言わずにもう少しひっぱろうぜ
2017/07/22(土) 07:42:45.82ID:SunxEu+00
>>450
ネタで言ってるなら申し訳ないが、それその通りに書くだけで良くね？
2017/07/22(土) 10:25:51.44ID:8D42j0aL0
>>452
そういう話ではない。

まあでもVBA用の色んな処理の検索はしてきたけど、アドイン化されてるものは全然見かけないなあ。
汎用的な機能を詰め込んだアドインってこれくらい？
http://software.opensquare.net/relaxtools/
>>443の求めるものとは違うんだろうけど。

結局は自作クラスってことになりそう。
2017/07/22(土) 10:32:33.05ID://x1WvHm0
>>451
お前の下らん雑談ネタのためにこのスレが有るわけじゃないんだyo
2017/07/22(土) 10:39:13.62ID:kiQvn5e/0
あぁarrayは横向きの配列ってことか、なるほど
VBAで汎用ライブラリ作るとしたらどんな名前になるだろう
ｔｙっと作ってみたくもあるな
2017/07/22(土) 10:51:06.27ID:c13VlgOtd
ブログ検索すれば色々出てくるから好きなのを使う。
製品的なやつが欲しいなら知らん
2017/07/22(土) 12:11:05.98ID:I23HDuqEd
完成した関数テンプレにのこしておいてよ
vbaの良質なコードはすごく希少だしアドインってメンテナンス大変じゃないか?
用途としてはいろんな人に使わせる用だと思うんだけど誰かが使ってる最中に変更できないじゃん
やたらにバージョン上げると某ライブラリみたいな顛末になるし
2017/07/22(土) 12:15:52.49ID:1BwCflG80
じゃあコピーしたもん編集して誰もいないときに上書きすればいいじゃん
2017/07/22(土) 12:17:43.62ID:kiQvn5e/0
テンプレなんかに残すと肥大化して仕方ない
2017/07/22(土) 12:26:21.19ID:DjK3yBdG0
>>431
新しい昨日が追加されるところ
まだクソなのはクソだけどvbaは一切進歩せんからなあ
2017/07/22(土) 12:38:20.99ID:kiQvn5e/0
新しい昨日って言葉が心に刺さった
2017/07/22(土) 13:17:27.76ID:c13VlgOtd
某ライブラリの悪口はやめろ
2017/07/22(土) 17:08:46.19ID:AfU+LLGPr
>>460
> vbaは一切進歩せんからなあ

エンジニアのための言語じゃないからね。

Dim だの Set だの If Then だの、
うんざりするのはしょうがないとしても、

objFSO

なんていう変数を見た日にゃ、
ぶっ殺したくなるね。
2017/07/22(土) 18:29:44.93ID:DjK3yBdG0
>>463
継承もサポートしてないしね
だから初心者の入口としても不向き
マイクロソフト的にもお荷物だろうな
はよ.net framework対応してほしいわね
2017/07/22(土) 18:50:19.82ID:WdXeAKAr0
そもそも継承が必要になるほどの大規模な開発をVBAでやる事自体が間違い定期。
2017/07/22(土) 19:09:15.96ID:mlphh3ze0
いまさら継承はいらないよ
2017/07/22(土) 19:22:53.47ID:DjK3yBdG0
まあ継承より配列周りの強化してほしいかな
わざわざ自分でコレクションもどき作ってるけどめんどいわ
2017/07/22(土) 21:16:12.56ID:yBUCBb6t0
初めてADOっての使ったけど、なんだこりゃ。

MSQueryと違って、列名が出ないじゃん。
いや、ヘッダのON・OFFで無理矢理出せるけど、
そうするとUnionした時に、レコードの途中に列名が出やがる。(列名扱いされないから?)
列名は、出力位置の上に、予め書いとかなきゃいけないの?
2017/07/22(土) 21:48:53.95ID:juX4uYOOx
>>467
コレクションもどきって何？
配列もどきのコレクションとは違う何かかな？
2017/07/22(土) 21:51:30.60ID:juX4uYOOx
フォームを作ってるとき、同種のパーツのオブジェクト配列が簡単に作れたら良いのにって思うわ
2017/07/22(土) 22:39:49.33ID:WdXeAKAr0
>>470
For Each x In Userform.Controls
　 　 Select Case Typename(x)
　 　 　 　 Case "Label"
　 　 　 　 　 　 ...
　 　 End Select
Next

みたいなのじゃなくて？
472デフォルトの名無しさん (ﾜｯﾁｮｲ a791-8s/R)
垢版 |
2017/07/22(土) 23:56:17.15ID:IXNocUxm0
>>468
列名も取れる
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況