[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2ch.scのread.cgiへ]
Update time : 02/26 16:42 / Filesize : 257 KB / Number-of Response : 1014
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Excel VBA 質問スレ Part79



1 名前:デフォルトの名無しさん mailto:sage [2023/01/28(土) 11:46:47.21 ID:mBQ16TA8.net]
↑同じ内容を3行貼り付けること

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

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

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

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

82 名前:デフォルトの名無しさん mailto:sage [2023/02/03(金) 10:36:34.85 ID:cDWzcouf.net]
時間を取って、説明しながら、調べながら、部分的に少しずつ、一緒に作ってみることが、
時間が掛かりそうで実は、VBA使いを増殖させる一番の方法なのかも知れない。

83 名前:デフォルトの名無しさん mailto:sage [2023/02/04(土) 10:03:33.47 ID:dT0fQJ20.net]
VBA使いを増殖させてもゴミマクロの後始末が大変になるだけじゃないの?

84 名前:デフォルトの名無しさん mailto:sage [2023/02/04(土) 11:14:53.62 ID:mzRI23fF.net]
VBA使う事が目的なんかじゃ無い それを使う事で作業を省力化させて効率を上げることが目的なんだ
それにそぐわないシロモノに成り果てたマクロなんか捨てて新しい血で新しい人間が制作し直せばいいだけ

85 名前:デフォルトの名無しさん [2023/02/04(土) 12:22:22.01 ID:OC8O+TIw.net]
自分が使うだけのマクロなら好きに作ればいいし
社内の別の人も使うなら社内のルールがあるだろう

86 名前:デフォルトの名無しさん mailto:sage [2023/02/04(土) 12:36:35.65 ID:3rlXZpet.net]
零細だと事務員が半分趣味でやってるから社内ルールなんか存在しない

87 名前:デフォルトの名無しさん [2023/02/04(土) 13:27:05.37 ID:Wbq5qWPo.net]
業務で使うとなると
pythonとかRuby とか
何か作るのものすごく大掛かりになりそう

88 名前:デフォルトの名無しさん [2023/02/04(土) 15:06:16.84 ID:I/fGP3d7.net]
自己責任ってことで

89 名前:デフォルトの名無しさん mailto:sage [2023/02/04(土) 17:41:39.69 ID:mW4Iie9F.net]
いままで転職5回してきたけど、一般事務でマクロなんか書いてるヤツ見たことないぞ??
関数だって定番のIfとVlookUpとSum系Count系くらい。
マクロバリバリってお前らどんな職場にいるんだい??

90 名前:デフォルトの名無しさん mailto:sage [2023/02/04(土) 17:53:50.60 ID:mzRI23fF.net]
高級事務 たぶん一般からだと見えざるスクリーンに覆われたエリア



91 名前:デフォルトの名無しさん mailto:sage [2023/02/04(土) 18:32:18.07 ID:mW4Iie9F.net]
なるほど。教えてくれてありがとうございました。

92 名前:デフォルトの名無しさん mailto:sage [2023/02/04(土) 18:48:22.01 ID:EGgL9lT+.net]
俺は普通に会社員で普段違うことしてる、趣味でアプリ作っている中で補助的にVBA使う程度だな
(Rubyは使ったことない)

93 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 00:40:17.14 ID:BFxvntei.net]
家ではC#、会社ではセキュリティ厳しくて.net入れられないからJavascriptかVBA

94 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 01:07:17.25 ID:1pRHyKO9.net]
>>92
馬鹿は黙っていればいいのに

95 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 04:14:48.79 ID:RZ1Bi3wx.net]
どこにバカの要素がある?
何でもかんでもバカって書くヤツこそ黙っていれば良いのに。

96 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 04:17:13.65 ID:1pRHyKO9.net]
馬鹿の会社って未だにXP使っているのか?

97 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 04:38:25.55 ID:meMR2kF6.net]
馬鹿とバカをNGワードにして
使った奴のIDもNGに入れる設定にすると幸せになれるぞ
特定の馬鹿が使っているだけだし
こいつまともな回答出来ないからNG入れても影響無いし

これ次からテンプレだな

98 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 04:39:38.29 ID:meMR2kF6.net]
あと零細もNGワードで良いね

99 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 08:05:02.67 ID:vgbFa8Iy.net]
馬鹿と言われてムキになって反応する奴にろくな奴いないから連鎖NGです

100 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 08:36:50.09 ID:48Nyv5uk.net]
その昔はパソコンを触るというのはプログラミングをすることだった時代があったようななかったような



101 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 09:08:16.60 ID:RZ1Bi3wx.net]
初めてNG機能使ったら、あぼーんみたいのがちらほら。
この機能は便利だね

102 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 09:22:53.60 ID:y1cOfAMz.net]
NGワードをテンプレにするのはいいね
試しに零細の馬鹿と言ってみて反応した奴はテンプレも読まずスレの助言に従うつもりもなくスルーできない本物だと早々に明らかにされる
善良な回答者が無駄に回答させられる事態を避けられるわけだ

103 名前:デフォルトの名無しさん [2023/02/05(日) 10:07:59.66 ID:LjI82vuM.net]
バカンスには何してる?

104 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 10:25:20.42 ID:DaRLN+Se.net]
ここに次スレなど無いw 本スレに戻れ乱立させるなここは隔離スレ 週末だってのに当人出没しないけど

105 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 10:32:43.76 ID:T64VJbXT.net]
当人て誰?

106 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 12:07:04.00 ID:RZ1Bi3wx.net]
気にさわる人は設定からNGワード登録がオススメ。

107 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 14:18:15.45 ID:xvzUW3Ng.net]
>>105
お前が一番頭が悪い.NETなんてOSに入っているだろうが

108 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 14:37:51.60 ID:T64VJbXT.net]
頭が悪い

追加

109 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 15:11:40.23 ID:DaRLN+Se.net]
じぶんのレスまでNGじゃねーかw そんなドジ踏むのは >>1 ぐらいだ ムダな改行で尻尾見えてるけどなw

110 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 15:41:40.49 ID:xS/cNQHV.net]
NGワードやNGIDの機能を作った人は天才だなと思った



111 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 16:20:36.45 ID:ctxVJUwU.net]
>>106
秀丸エディタでC#書くバカは流石にいない

112 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 16:46:34.16 ID:vWrwcA+5.net]
>>110
メモ帳で書く強者もいるぞw
https://qiita.com/hemuwan-kazu/items/7f31909f9844f5c145a8

113 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 17:32:22.36 ID:xvzUW3Ng.net]
>>110
元の書き込みをよく読め

>家ではC#、会社ではセキュリティ厳しくて.net入れられないからJavascriptかVBA

114 名前:デフォルトの名無しさん [2023/02/05(日) 18:46:21.19 ID:K4ptPXTt.net]
RubyとPythonもNGワードに追加で

115 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 20:19:59.88 ID:T64VJbXT.net]
なんか、りんなの方が賢く視えてきたw

https://i.imgur.com/rUldeaB.jpg

116 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 20:36:43.07 ID:RZ1Bi3wx.net]
てかさ、過去スレにうざいヤツのidはNGにすれば良いと忠告されていたのを忘れていただけよ。
本当便利だねNG設定は。

117 名前:デフォルトの名無しさん mailto:sage [2023/02/05(日) 21:17:02.74 ID:PITx2JDw.net]
>>115
お前が原因だろうが

118 名前:デフォルトの名無しさん mailto:sage [2023/02/06(月) 02:28:52.25 ID:zHp4cAIL.net]
NGワード推奨
「お前が原因」

119 名前:デフォルトの名無しさん mailto:sage [2023/02/06(月) 18:40:54.26 ID:aEkJZ2xc.net]
お前が原田

120 名前:デフォルトの名無しさん mailto:sage [2023/02/06(月) 18:49:20.28 ID:XprS0Gnp.net]
泰造です



121 名前:デフォルトの名無しさん mailto:sage [2023/02/07(火) 12:31:38.13 ID:NFcQ7tYj.net]
このスレの人達はマクロとマグロどちらが好きですか?

122 名前:デフォルトの名無しさん mailto:sage [2023/02/07(火) 18:23:50.30 ID:azuGrvvm.net]
>>120
マグロです
初めての女もマグロで捌くのに苦労しました

123 名前:デフォルトの名無しさん mailto:sage [2023/02/07(火) 19:20:14.88 ID:EVZJ1Jw3.net]
そしてあそこはマックロ

124 名前:デフォルトの名無しさん mailto:sage [2023/02/07(火) 20:54:54.09 ID:uVJ5qMcc.net]
昔の職場で女子社員がマクロの事をマグロって素で言っていたのを思い出した

125 名前:デフォルトの名無しさん mailto:sage [2023/02/08(水) 12:26:11.89 ID:oH+IvagG.net]
104万行とか書き出したの>>1だろ カタカナだったのをアルファベット表記に変えて誤魔化してるけど
いっつも何か抜けた質問なのはクリソツだ

126 名前:デフォルトの名無しさん mailto:sage [2023/02/08(水) 14:01:46.08 ID:9o6t5jzk.net]
://jp.quora.com/エクセルの機能でマクロがありますが、ミクロもあり
ますか?

127 名前:デフォルトの名無しさん [2023/02/08(水) 15:35:30.93 ID:FTgAG7p2.net]
あなたの後ろにドクロが見えます

128 名前:デフォルトの名無しさん mailto:sage [2023/02/09(木) 18:10:13.26 ID:aJtl4Osy.net]
ももクロは?

129 名前:デフォルトの名無しさん [2023/02/09(木) 20:08:27.21 ID:zbgEdy/S.net]
無職の息子が事務に就職するためにマクロの資格を取ると言っているのですが
そんな役に立つか分からないものじゃなくもっと事務の仕事に役立つ簿記をとってほしいと言っても聞きません
マクロを使われている皆さんから見てもマクロの資格しかない人間なんか採りませんよね?

130 名前:デフォルトの名無しさん mailto:sage [2023/02/09(木) 20:11:01.11 ID:oRtRHGsJ.net]
>>128
おっしゃる通りだね
VBAは属人化の最たる物だからかえってマイナスかも



131 名前:デフォルトの名無しさん mailto:sage [2023/02/09(木) 20:13:24.22 ID:WlGsC4V+.net]
>>128
マクロの資格は事務の仕事に必要なスキルの一つですが、単独では仕事に適していない

132 名前:場合もあります。簿記の資格や事務に関連する他のスキルを備えた人材が求められることもあります。そのため、マクロの資格だけでは応募になれない場合もあります。

あなたの息子が今後のキャリアアップに向けて考えておくべきは、職場で必要とされるスキルを持っていることです。簿記の資格も含め、仕事に役立つスキルを身につけることで、より魅力的な人材になることができます。
[]
[ここ壊れてます]

133 名前:デフォルトの名無しさん mailto:sage [2023/02/09(木) 21:06:41.73 ID:1BKoKxeD.net]
>>128
両方とればいい、資格がある方が有利ってだけの話
そうそううまくいかないのが世の中

134 名前:デフォルトの名無しさん [2023/02/09(木) 21:11:22.86 ID:eLe3MrDF.net]
>>129
>>130
やはりそうですよね、落ち着いてもう一度話してみようと思います
マクロを事務で使うことなんてないし
マクロは記録するものなのに見栄をはってマクロを書けるなんておかしな表現をするようでは資格があったとしても取れはしないと

135 名前:デフォルトの名無しさん [2023/02/09(木) 21:15:03.44 ID:9v0l8GAr.net]
>>131
そうだとしてもまずは簿記から取らせるべきですよね?
それにエクセルの資格でもマクロだけのものよりもエクセル全体の資格のほうが事務能力を評価してもらえると思います

136 名前:デフォルトの名無しさん mailto:sage [2023/02/09(木) 22:00:25.94 ID:nBzxeXqK.net]
マクロを知らない馬鹿にVBAを使えずに僻んでいる馬鹿が答えて馬鹿同士で納得していて笑った

137 名前:デフォルトの名無しさん mailto:sage [2023/02/09(木) 22:03:18.17 ID:1BKoKxeD.net]
>>133
本人が興味ない資格の勉強しても覚えられるとは思えん
やりたいようにやらせるがいい、結局は自己責任

138 名前:デフォルトの名無しさん mailto:sage [2023/02/09(木) 22:48:14.12 ID:5M6BEBFG.net]
>>133
簿記2級ねらった方が良いよね
事務職なら
話はそれからだ

139 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 00:03:29.76 ID:YH2SeA6S.net]
>>134
馬鹿を連呼する馬鹿がいるスレはここですか?

140 名前:デフォルトの名無しさん [2023/02/10(金) 07:22:18.13 ID:jDe/a0Sf.net]
と、馬鹿が申しております。



141 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 07:56:54.21 ID:X5Ej7qVR.net]
連続あぼーんワロた

142 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 09:26:00.78 ID:sM1HDV8m.net]
変数として用意した配列(例えば100行×5列等)にデータを入れ、その配列に対してvlookupやmatchのような関数を当てたいのですが可能でしょうか?可能であればどのように記述出来るのでしょうか?
現在はよく分からず多重if, forで誤魔化してます

143 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 09:43:26.29 ID:X5Ej7qVR.net]
(tmp) = VlookUp(引数)みたいな感じ??

144 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 12:22:05.62 ID:PIkGF45X.net]
配列に対してはムリだと思う。dictionaryなんか使ってやれば似たようなことは無理やりできるかもだけどそれならいちどシートに書き出してworksheetfunctionでシート関数を使ったほうが簡単。
EXCEL VBAの配列操作が貧弱なのはシートでできるからだと割り切ってる。2次元限定だけど。

145 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 15:39:36.07 ID:WNti9dgN.net]
https://i.imgur.com/JgKY39B.jpg

自治会の総会集計を頼まれて、書面表決導入でお助けください

議案は1~5まであり、個別でも一括でもいいとしています
賛成・反対・棄権でひとつのブロックとして、一

146 名前:ブロックに数値がある場合で議案1~5ブロックが未記入の場合にコピーしたいです
コピーするのは世帯人数に数値がある行までです

この例だと3行目何もせず、4と5行目は議案1~5に一括ブロックをコピー
6行目は議案3のみに一括ブロックをコピー

VBAでの組み方をご指南ください
[]
[ここ壊れてます]

147 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 17:37:33.44 ID:i/BO22nF.net]
そんなの何十行もあるわけじゃあるまいし手動でもいいと思うが

148 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 18:08:35.29 ID:WNti9dgN.net]
500行あるんす

149 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 18:10:14.38 ID:i/BO22nF.net]
すげー自治会だな

150 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 18:26:50.24 ID:VmkjxzjW.net]
>>143
このシートを「データ」シートにしてもう1つシート作ってそれを「集計シート」にして計算式でやったほうが楽だと思う



151 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 18:37:45.48 ID:A9tz9okE.net]
>一括ブロックに数値がある場合で、
>議案1〜5ブロックが未記入の場合にコピーしたい

議案1〜5ブロックは、個別の数なのか?

それなら、議案1〜5ブロックに数値が書かれている場合にも、
一括ブロックの数値を足さないといけないのでは?

152 名前:148 mailto:sage [2023/02/10(金) 18:43:32.78 ID:A9tz9okE.net]
1. まず、一括ブロックと議案1〜5ブロックの空欄にも、0 を入れる。
これで全てのセルに、何らかの数値が入る

2. 次に、一括ブロックの数値を、議案1〜5ブロックに足していく

153 名前:デフォルトの名無しさん [2023/02/10(金) 19:17:16.32 ID:6IlNtWZO.net]
>>143
俺なら、
世帯行(3行〜データ無くなるまで)と
議案列(この場合5回)の二重ループ内させて
一括Gの入力判定して議案空白の列に載せていく

154 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 19:31:04.95 ID:IBbxfpHM.net]
>>143

自分も>>150と同じ方法でやるかな。

ちなみに実際にコード書いてみたら22行だった
(変数の取り方とかで多少ずれるけどほぼこのくらいかと)。

155 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 19:32:46.64 ID:WNti9dgN.net]
>>148
基本賛成だけど、この議案だけ反対って場合は一括賛成、個別反対を許すようにした
個別入ってるときはそっち優先
なるべく入力を減らす配慮

>>150
それがやりたいっす
>>151
く、くださいっ

156 名前:デフォルトの名無しさん [2023/02/10(金) 20:01:37.48 ID:DfKN5OB+.net]
>>152
関数で解決できそうなら無理にVBAで解決することもないと思う

で、これはやりたいことと解決したいことが合ってるのか気になっての質問なんだけど
6行目、議案3の他に2,4も世帯人数と比べ回答数が少ないように見えるけどそこには何もしなくていいの?

157 名前:151 mailto:sage [2023/02/10(金) 20:45:28.82 ID:IBbxfpHM.net]
>>152

コードは下記。
今回は記述してないが、500行あるなら
screenupdatingをfalseにした方がいいかと。

Sub 議決()

Dim i As Long, j As Long
Dim r1 As Range, r2 As Range 'r1は一括の空白数取得用、r2は各議案の空白数取得用
Dim rowNumber As Long 'データが埋まっている行数取得用

rowNumber = Cells(Rows.Count, 1).End(xlUp).row

For i = 3 To rowNumber
Set r1 = Range(Cells(i, 2), Cells(i, 4))

If WorksheetFunction.CountBlank(r1) <> 3 Then
For j = 5 To 17 Step 3
Set r2 = Range(Cells(i, j), Cells(i, j + 2))
If WorksheetFunction.CountBlank(r2) = 3 Then
r2 = r1.Value
End If
Next j
End If
Next i

End Sub

158 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 21:17:11.72 ID:WNti9dgN.net]
>>153
その数値の整合性は表決者依存にしました
議案4に個別したらそれを尊重すると

>>154
で、できました
ささっと作ってくれるってすごいです
ありがとうございます
総会乗りきれます!

159 名前:デフォルトの名無しさん [2023/02/10(金) 21:52:52.21 ID:ciEsiTU6.net]
>>155
9人世帯の議案4には棄権1しか入っていないけど、これは
一括に関係なく議案4に個別で入れた人が棄権1人しかいなかった
その上で9人世帯は議案4に関して棄権1名のみとして扱う
みたいな解釈でいいのかな?
一括が何票あろうが個別1票のが上みたいな
単純に各議案ごとに全世帯での票数を計上したいわけじゃなさそうだよね

160 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 22:03:07.12 ID:ix/AvTMJ.net]
>>140
セル範囲指定するとに配列の変数名指定するだけ
バリアント型じゃないと無理かもしれん

>>142
WorksheetFunctionでセル範囲指定する奴はほとんど配列でもいける
というか、VBAにわたってくるときに内部的に配列になってるはず



161 名前:デフォルトの名無しさん mailto:sage [2023/02/10(金) 22:07:47.74 ID:ix/AvTMJ.net]
参考コード
Option Base 1
Sub x()
Dim a(10, 2)
For i = 1 To 10
a(i, 1) = i: a(i, 2) = i & "だよ"
Next
MsgBox WorksheetFunction.VLookup(7, a, 2)
End Sub

162 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 03:59:07.46 ID:aNcmPbDM.net]
>>156
実際はシャンシャン総会なので一括賛成で終わると思ってます
書面7割、ネット3割を想定
ネットはGoogle Formsを使うので、定義として全項目スキップできるようにしてあって
概ね賛成だけど議案4だけ個別回答
その場合は表決者がつじつま合わせないとその議案はそっち優先にしますよとしています

163 名前:デフォルトの名無しさん [2023/02/11(土) 07:30:30.25 ID:6Ch2sdKJ.net]
>>158
マジか!!! と思って試してみたらマジだったw

んで個人的によく使うmin,max,match,countifを試してみたら
min,maxはできたけどmatch,countifはダメだった。
要素の中身を取り出す系の関数はいける感じかな?

ひとつ理解が深まった気がするよ。ありがとう。

164 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 08:41:56.27 ID:DG09Hgtn.net]
Subtotalって集計キーを2つ指定したいときはどうやるの?

165 名前:デフォルトの名無しさん [2023/02/11(土) 09:45:09.37 ID:jORavOuf.net]
sumproduct

166 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 19:56:49.54 ID:uHiybqGX.net]
マクロの資格とかあるの?MOSのこと?

167 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 20:04:45.09 ID:cvm4+SaB.net]
そいやあるのかね、言語としては古くてしょうもないが

168 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 20:10:27.29 ID:9czFn3SB.net]
VBAエキスパートという民間資格
MOS ビジネス統計すぺしゃりすと IC3 あどび認定ぷろふぇっしょなる Microsoft認定資格 App Development with Swift IT Specialist えtc
https://www.odyssey-com.co.jp/index.html

169 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 20:16:37.74 ID:uHiybqGX.net]
ありがとう。あるんですね。

170 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 20:18:50.78 ID:uHiybqGX.net]
イミディエイトウィンドウでは実行できないステートメントはどれか。次の中から1つ選びなさい。

1.?Range("A5").Value
2.MsgBox "Hello!"
3.Dim x As Integer
4.For i = 1 To 10:total = total + i:Next i:Print total

3番かな?



171 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 20:20:26.56 ID:uHiybqGX.net]
次のような2つのプロシージャを同一の標準モジュール上に作成した。「M_Proc」プロシージャの実行結果はどうなるか。次の中から正しいものを1つ選びなさい。

Sub M_Proc ()
Dim a As Long
a = F_Proc(3)
MsgBox a
End Sub

Function F_Proc(Optional x As Long = 5) As Long
F_Proc = x * 2
End Function

---
@6
A9
B10
C実行時エラーが発生する

172 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 20:23:23.87 ID:uHiybqGX.net]
Optional x As Long = 5
って何?この引数。

173 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 20:25:24.81 ID:uHiybqGX.net]
次のプロシージャはセルA1の値に応じてメッセージを表示するものである。セルA1の値が3未満だったら「A」と表示させたい。このとき、【 1 】に入る適切な命令を解答欄に入力しなさい。

Sub Sample()
Select Case Range("A1").Value
Case 【 1 】
MsgBox "A"
Case 5
MsgBox "B"
Case 7 To 9
MsgBox "C"
Case Else
MsgBox "該当なし"
End Select
End Sub

174 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 20:30:06.33 ID:uHiybqGX.net]
資格が役立つかさておき、いい問題だね。

175 名前:デフォルトの名無しさん mailto:sage [2023/02/11(土) 21:14:28.92 ID:nDlYjCHU.net]
>>169
省略引数でしょ
って言うか vba optional でググれ

176 名前:デフォルトの名無しさん mailto:sage [2023/02/12(日) 08:33:11.90 ID:aoDTDGlX.net]
vba解説してるサイト見たら皆プロシージャの最後に
set obj = nothing '後始末
ってやってるけどあれ循環参照以外で意味ある?

やらずにadodbとかseleniumで10万回以上実行してるけど何の問題も起こらない

177 名前:デフォルトの名無しさん mailto:sage [2023/02/12(日) 09:18:22.71 ID:19IYgGC6.net]
>>173
意味ない
循環参照でもそれで解決するならやらなくても解決する

178 名前:デフォルトの名無しさん mailto:sage [2023/02/12(日) 11:39:10.47 ID:71AjNYz+.net]
.cels(1,1) = 〇〇
セル指定で行や列の連番を簡単に入力する方法ってありますか?
以下のようにオートフィルのような感じでコードを作成したいです。

.cels(1,2) = 〇〇
.cels(1,3) = 〇〇
.cels(1,4) = 〇〇

179 名前:デフォルトの名無しさん mailto:sage [2023/02/12(日) 13:09:04.90 ID:aoDTDGlX.net]
>>174
これからも書かない事にしときます

>>175
こういう事?

Sub a()
Dim i
For i = 2 To 10
Cells(i, 1) = i
Next
End Sub

180 名前:デフォルトの名無しさん mailto:sage [2023/02/12(日) 13:12:25.71 ID:+dHL9JcR.net]
>>175
For で回すのがだめな理由を書いて



181 名前:デフォルトの名無しさん mailto:sage [2023/02/12(日) 13:17:48.68 ID:GOWa9Zgu.net]
>>175
連続するセルに違う内容を書き込みたいんなら配列を使う手もある
Range("B1:D1") = Array("あああ","いいい","ううう")

182 名前:デフォルトの名無しさん [2023/02/12(日) 15:04:05.55 ID:uHFAq1f0.net]
>>175
celsの用語が間違っているのと、
○○を "○○" のように書けば簡単に入力できますよ






[ 続きを読む ] / [ 携帯版 ]

前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<257KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef