19/02/14 12:20:00.82 oxBa5+ju0.net
>>123
まあ、間違ってるんだろそれだけ
ソースを出さなきゃ何もないよ
イベント鳥杉ってよくあるからな
有効な手段は、護摩をたけ、できるだけ激しく火事には気を付けろ
128:デフォルトの名無しさん
19/02/14 13:20:00.69 chn4JYyT0.net
たとえば、A1からC50までデータがあってA列をキーにソートしたいのですが、
途中たとえば、10行、15行、20－25行は抜かしたいのです。 これらにはコメントや他のものが入ってるので
でもそれらを抜かして全体でソートしたいのですが、Unionで繋いでやったら複数のレンジは出来ないみたいな
エラーを返されました
何かいい方法はないでしょうか
129:デフォルトの名無しさん
19/02/14 13:50:43.73 chn4JYyT0.net
例えば、画面表示は止めて、メモリ上で行を移動させてソートする行をまとめてからソートして、
また行をもとに移動させてから、画面上に結果を表示とか、出来ると可能性があると思うのですが
130:デフォルトの名無しさん
19/02/14 14:23:28.89 sSBdRoDO0.net
>>126
if i = 対象行 then
行入替え
end if
とかでいいんじゃね？
131:デフォルトの名無しさん
19/02/14 16:52:27.07 PSNlkVOrM.net
>>126
行を非表示にしたら対象から外してくれんかな…（試してない）
132:デフォルトの名無しさん
19/02/14 17:20:39.55 L4IMpAFUM.net
>>121
〇 自分で任意に付ける関数名
□ dllがエクスポートしている関数名
133:デフォルトの名無しさん
19/02/14 17:59:11.87 bFGkVmlp0.net
dllってよくわかんないだけどvbsのexecuteglobalみたいな感じ？
134:デフォルトの名無しさん
19/02/14 19:55:09.02 chn4JYyT0.net
>>129
マジかあ。 やってみた。 出来てる
なんだよ、プログラム作っっちゃった。 ソートしないところを一旦別に移して圧縮してソートしてから
下に戻すってやつ
なんだよ、 この2時間返して w
135:デフォルトの名無しさん
19/02/14 22:52:59.46 nNkHGtvOM.net
>>132
まあ、普通にデータはテーブルでもてば良いだけだろ
整形は別シートででーたをさんしょう
136:デフォルトの名無しさん
19/02/15 00:17:44.61 lL6vjf9tM.net
>>131
外部にライブラリーなどを持たすんだから
Include の方が近いだろ
137:デフォルトの名無しさん
19/02/15 00:49:30.00 6QKgXGI40.net
よろしくお願いいたします。
VBAで、半角カナ文字列を与えると、その文字列の中にある、
ァィゥェォャュョッ などの小さい字をｱｲｳｴｵﾔﾕﾖﾂなどの大きい字（半角カナ）に変換して返す
functionを作りたいのですが、どう書いていいのかわかりません。
ひとつずつ、ァをｱに変換、ィをｲに変換、のように書くしかありませんか？
まとめて書く方法ってあるのでしょうか？
138:デフォルトの名無しさん
19/02/15 01:15:28.74 BkaZ3+610.net
Ruby のNKF とか、文字列.tr とか、正規表現とか
139:デフォルトの名無しさん
19/02/15 01:18:13.72 vhn0rFgQ0.net
60項目7万件のjsonデータ読んで保存した。
開いたらモジュールとフォームが破損って何なんだよ。うう吐きそうだ。
10Gじゃメモリたりなかったのか？いや、それならそうメッセージがでるはず。
まさかこんなんでコード飛ぶとは思わなかったからバックアップは取ってない。
10分おきの自動バックアップのデータはあったけどデータ取るのに2日かかったからとっくに消えてる。
もう作る気おきない。
参った。
140:デフォルトの名無しさん
19/02/15 01:20:07.21 vhn0rFgQ0.net
>>135
文字コードを差分だけ加算すればいい。
141:デフォルトの名無しさん
19/02/15 01:21:08.10 EWf/hEPba.net
>>137
ざまあ
そういうのはCSVを介するのが定石だろう
142:デフォルトの名無しさん
19/02/15 01:23:24.10 NXuVhChr0.net
>>135
dictiona
143:ryオブジェクトで連想配列作れば？ Dim myDic As Object Set myDic = CreateObject("Scripting.Dictionary") myDic.Add "ァ", "ｱ" myDic.Add "ィ", "ｲ" myDic.Add "ゥ", "ｳ" Dim str As String str = myDic.Item("ァ") #<--ここに参照したい文字を渡す MsgBox str, vbInformation https://www.sejuku.net/blog/29736 動くかわからんけどお試しあれ。
144:デフォルトの名無しさん
19/02/15 01:37:27.77 6R3QhjK00.net
>>135
あんまり綺麗じゃないけど
Function kanacaps(s1) As String
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If "ｧ" <= c And c <= "ｯ" Then
Select Case c
Case "ｧ" To "ｫ"
s = 10
Case "ｬ" To "ｮ"
s = 40
Case Else
s = 19
End Select
Mid(s1, i) = Ch r(As c(c) + s)
End If
Next
kanacaps = s1
End Function
145:デフォルトの名無しさん
19/02/15 01:38:16.76 6R3QhjK00.net
一部の文字列関数が、なぜか5ちゃんねる全体のNGﾜｰﾄﾞになってるんで、わざとスペースを入れてある
146:136
19/02/15 01:38:19.40 BkaZ3+610.net
Ruby では、
str = "ァィゥェォャュョッあ"
puts str.tr( "ァィゥェォャュョッ", "ｱｲｳｴｵﾔﾕﾖﾂ" )
#=> ｱｲｳｴｵﾔﾕﾖﾂあ
147:デフォルトの名無しさん
19/02/15 01:43:51.10 6R3QhjK00.net
もっとシンプルなのができた
Function kanacaps(s1) As String
t = "ｱｲｳｴｵﾔﾕﾖﾂ"
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If "ｧ" <= c And c <= "ｯ" Then
Mid(s1, i) = Mid(t, A sc(c) - 166, 1)
End If
Next
kanacaps = s1
End Function
148:デフォルトの名無しさん
19/02/15 01:46:51.97 6R3QhjK00.net
しつこいけど、これで最後
Function kanacaps(s1) As String
t = Array("ｱ", "ｲ", "ｳ", "ｴ", "ｵ", "ﾔ", "ﾕ", "ﾖ", "ﾂ")
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If "ｧ" <= c And c <= "ｯ" Then Mid(s1, i) = t(As c(c) - 167)
Next
kanacaps = s1
End Function
149:デフォルトの名無しさん
19/02/15 01:53:45.99 6R3QhjK00.net
最後と言いながらもう一度
これってまだまだコンパクトにできるパターンだな
Function kanacaps(s1) As String
t = Array("ｱ", "ｲ", "ｳ", "ｴ", "ｵ", "ﾔ", "ﾕ", "ﾖ", "ﾂ")
For i = 1 To Len(s1)
c = Asc(Mid(s1, i))
If 166 < c And c < 176 Then Mid(s1, i) = t(c - 167)
Next
kanacaps = s1
End Function
150:デフォルトの名無しさん
19/02/15 02:00:19.18 6R3QhjK00.net
1回しか使わない変数を消した
これ以上の短縮は無理かな？
Function kanacaps(s1) As String
For i = 1 To Len(s1)
c = Asc(Mid(s1, i)) - 167
If 0 <= c And c < 9 Then Mid(s1, i) = Array("ｱ", "ｲ", "ｳ", "ｴ", "ｵ", "ﾔ", "ﾕ", "ﾖ", "ﾂ")(c)
Next
kanacaps = s1
End Function
151:デフォルトの名無しさん
19/02/15 09:21:30.82 U9ClSHCYM.net
>>147
横レスだけど
他の言語に比べかったるいけどおいておいて
変換に使う文字列または配列はfunctionの外
変数はアドレス渡し function内で文字列を書き換え
変更が有った場合 true なかった場合false
使い勝手と動作速度を優先する
とスマホで書いてみる
152:デフォルトの名無しさん
19/02/15 09:40:41.96 GIzZTHxJM.net
>>147
たしかにs1を書き換えつつまたそれを返すというのは無駄だ。
ByValで受けて書き換えた結果を返すかByRefのままでSubにするかだと思う。
Booleanで返すのは今時の趣味には合わないんじゃないかな。
153:デフォルトの名無しさん
19/02/15 09:58:15.95 FxoJIoi60.net
>>149
セルを書き換えるべきか書き換えないかの判断をする
全てのセルの書き換えは時間もかかるし、空白のセルもある
必要ないデータは書き換えないでいいようにする
if kanacaps(s1) then cells(i,j) = s1
のように
154:デフォルトの名無しさん
19/02/15 11:36:22.43 GIzZTHxJM.net
>>150
s1自体は As Stringだろ
元の質問もワークシート関係ない話のように見受けられる
155:デフォルトの名無しさん
19/02/15 11:44:10.23 FxoJIoi60.net
>>151
だったら、このスレ関係ないな本当にそう思うのか？
自分の主張じゃなく要求者の状況を読まなければ意味ない
150の書き方でならシート全てを変換するfunctionも簡単にできるけど
お題を読めないのは厳しいな
156:デフォルトの名無しさん
19/02/15 11:49:05.00 6R3QhjK00.net
データ量と出現頻度と、呼び出し側でのデータの�
157:揩ｿ方がわからない限り、最適解は出せないと思う 用途はなんだろう？半角カナが通るのにカナ小文字が使えないシステムなんて、大昔のオンラインシステムぐらいしか思い付かんけど
158:デフォルトの名無しさん
19/02/15 11:56:15.89 FxoJIoi60.net
>>153
今更聞いてる処がどうなの？
こんなのどっちでも簡単なのに、私は書かないけどなポリシーです
159:デフォルトの名無しさん
19/02/15 11:59:50.72 GIzZTHxJM.net
>>152
データソースがRangeであるか否かに関わらずs1は As String相当 だろう。
件の関数が何を返すべきか（もしくはSubにすべきか）という話とは関連が薄い。
160:デフォルトの名無しさん
19/02/15 12:04:24.39 FxoJIoi60.net
>>155
別にfunctionの使い方を考えないならどうでもいいじゃない
ただ誰も使わんだろ、それは言い過ぎか使うやつはいるな
161:デフォルトの名無しさん
19/02/15 12:06:23.85 FxoJIoi60.net
基本的なことを理解せず、ソース書くやつって恥ずかしくないのかな？
162:デフォルトの名無しさん
19/02/15 12:09:16.16 GIzZTHxJM.net
>>157
不思議な意見を言う奴だな？
163:デフォルトの名無しさん
19/02/15 12:12:48.44 U9ClSHCYM.net
>>158
ここは、もうやめよう
164:デフォルトの名無しさん
19/02/15 12:42:06.25 Aa3kOoYYM.net
俺は理解したいけど使うの自分ならまぁ動けば良いや派です
話題変わるけど今はselenium使えないの？
firefox操作したいけど色々なサイトのコード試しても動かんのだけど最新のseleniumVBAでfirefox操作するVBA使ってる人居たらfirefox起動からログイン処理するコード貼ってほしい
165:デフォルトの名無しさん
19/02/15 12:51:15.55 Qph8FA2WM.net
>>157
> 基本的なことを理解せず、ソース書くやつって恥ずかしくないのかな？
確かに>>150は恥ずかしいなw
166:デフォルトの名無しさん
19/02/15 12:54:55.89 FxoJIoi60.net
>>161
ふ～ん、でどのように？(笑)
167:デフォルトの名無しさん
19/02/15 13:05:41.84 QYjRxS22H.net
配列を使わざるを得ないなら二次元配列に変更前と変更後を並べて突っ込む
168:デフォルトの名無しさん
19/02/15 13:08:15.40 FxoJIoi60.net
>>161
まさか、148で変更をBoolean返すようにしたのを前提に150を書いたけど
何も読まずに書いてる？
169:デフォルトの名無しさん
19/02/15 13:13:10.46 FxoJIoi60.net
もうやばいけど、バカって好きだな
170:デフォルトの名無しさん
19/02/15 13:19:37.16 U9ClSHCYM.net
>>161
で、何か意見は？
171:デフォルトの名無しさん
19/02/15 14:34:08.07 GIzZTHxJM.net
>>163
結局そうなるよね。
一括で貼り付ければ楽なのに、わざわざ If でまだらに個別セットなんて却って遅くなる。
172:デフォルトの名無しさん
19/02/15 14:59:45.37 FxoJIoi60.net
まあ、しょうがない罠
分かんないんだもの
173:デフォルトの名無しさん
19/02/15 15:22:25.20 Qph8FA2WM.net
> 基本的なことを理解せず、ソース書くやつって恥ずかしくないのかな？
とか言いつつ質問者の意向もわからんのにコード書いてドヤるとか w
174:デフォルトの名無しさん
19/02/15 15:34:51.44 FxoJIoi60.net
>>169
じゃあ、お前ヒントも書かずにわかるのか？
ってか、引きこもりの文盲か？
175:デフォルトの名無しさん
19/02/15 15:36:42.23 FxoJIoi60.net
あっ、すまん、ヒントを書いてもわからないんだよな
176:デフォルトの名無しさん
19/02/15 15:43:07.43 FxoJIoi60.net
>>167
どんだけ、アホで生きてるんjンだよ
関数の貼り付けとセルへの値の書き込すらわからんかな
177:デフォルトの名無しさん
19/02/15 17:36:05.74 Qph8FA2WM.net
>>170-172
だから
> 基本的なことを理解せず、ソース書くやつって恥ずかしくないのかな？
とかが不思議ちゃんて言われてるんだよ
セルへの書き込み程度でドヤるような奴だからしょうがないだろうけど w
178:デフォルトの名無しさん
19/02/15 18:35:03.47 U9ClSHCYM.net
>>173
うふ
179:デフォルトの名無しさん
19/02/15 19:18:49.62 FIDflx8L0.net
Range("A1")="名前"
Range("A2")="住所"
Range("A3")="性別"
Range("A4")="郵便番号"
みたいな複数にわかる処理を
Range("A1:A4")="名前、住所、性別、郵便番号"みたいな感じ（もちろんこれではダメ）で
一行（一回の処理）でまとめて設定できるような
180:方法ってありますか？
181:デフォルトの名無しさん
19/02/15 19:20:38.46 kIiggQTh0.net
>>175
ある
182:デフォルトの名無しさん
19/02/15 19:21:12.65 GIzZTHxJM.net
Sub kanacaps(s1 As String)
とした場合、
対象配列Aの各要素A(i,j)に対して
kanacaps(A(i, j)) をループで回すだけ。
シートに書き出したければ単にAを貼り付ける。
このとき書き換えがあったかどうかを判定する必要はない。
Function なら
Function kanacaps( ByVal s As String) As String
で A(i, j) = kanacaps(A(i, j))
これも書き換えがあったかどうかを判定する必要はない。
普通は後者を選ぶだろう。
183:デフォルトの名無しさん
19/02/15 19:28:49.74 kIiggQTh0.net
>>177
これダメなやつ
最も負荷の掛かるセルへのアクセスは最小限にするべき
コードが短ければいいってもんじゃない
184:デフォルトの名無しさん
19/02/15 19:37:44.26 GIzZTHxJM.net
>>178
なんだよ
セルの個数の問題なのか貼り付け回数の問題なのかはっきりしろ
185:デフォルトの名無しさん
19/02/15 20:01:27.87 kIiggQTh0.net
>>179
自分で処理時間計ってみれば？
186:デフォルトの名無しさん
19/02/15 20:18:49.96 V814XEHD0.net
>>175
Array
187:デフォルトの名無しさん
19/02/15 22:25:19.73 f25ghBxYM.net
まあ、例えばひづ
188:デフォルトの名無しさん
19/02/15 22:31:54.84 f25ghBxYM.net
スマホは書いてる途中で書き込んじゃう癖が有って申し訳ない
例えば日付を月日で表しているセルを文字列で取得すると月日の文字が取得できる
その文字をそのセルに書き込むと数値としての月日じゃあなくなるよな
不用意に変換しないことも大事なんだがな
189:デフォルトの名無しさん
19/02/15 23:12:49.57 f25ghBxYM.net
気になってshift jis の文字コードを確認してみた
If 166 < c And c < 176 Then
これは半角小文字だよ
お題は全角カタカナ小文字だろっと
190:デフォルトの名無しさん
19/02/15 23:38:50.38 e71gRKct0.net
凄いよな。
何でこうも、どんな用途に使うのかわからないような処理ばっか出てくるんだか。
そのうち、VLOOKUP(縦検索)でもHLOOKUP(横検索)でもない、
斜め検索のJLOOKUP作れとか言い出しそうだな。
191:デフォルトの名無しさん
19/02/16 00:29:38.87 VwWEnU/S0.net
データ処理の関数がわかんなくてお前らに横投げしてるからだろjk
192:デフォルトの名無しさん
19/02/16 01:02:24.60 Q7QEPoKZM.net
まあ何だな 全角カタカナの文字列に半角突っ込む奴の指示は聞かないけどな
193:デフォルトの名無しさん
19/02/16 01:38:49.39 tkdqnLOdd.net
最初の質問は>>135だぞ
処理したいのは半角カナ、作りたいのはFunction、関数の返す値は修正後の文字列と仕様が明記されてるのに、どうしてBooleanだのByRefだのが出てくるんだよ
おまけに全角とか言い出すやつまで出てくるし
194:デフォルトの名無しさん
19/02/16 02:12:02.80 Q7QEPoKZM.net
ァィゥェォャュョッ 全角小文字
ｧｨｩｪｫ 半角小文字
書いてるのが全角だったからな
195:デフォルトの名無しさん
19/02/16 02:22:26.92 Q7QEPoKZM.net
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE
(A1,"ｧ","ｱ"),"ｨ","ｲ"),"ｩ","ｳ"),"ｪ","ｴ"),"ｫ","ｵ"),"ｬ","ﾔ")
,"ｭ","ﾕ"),"ｮ","ﾖ"),"ｯ","ﾂ")
196:デフォルトの名無しさん
19/02/16 05:24:29.40 evls1zM4M.net
>>190
ﾜﾗ
197:デフォルトの名無しさん
19/02/16 05:32:17.75 Q7QEPoKZM.net
素人が素人に頼むとなそうなるわな
(笑)
198:デフォルトの名無しさん
19/02/16 07:48:58.08 GEWA9gU60.net
方向が変わったのは>>148がきっかけだよね
199:デフォルトの名無しさん
19/02/16 07:53:50.02 q1DAaOKG0.net
>>188-189
そこは最初から違和感あったわ
> VBAで、半角カナ文字列を与えると
って書いてて
> ァィゥェォャュョッ
って全角で書いてるからネタだと思って放置してたけどｧｨｩｪｫｯｭｮみたいな文字ってスマホだと入力できないのな
(いや、できるかも知れんが俺にはわからんかったのでこれはコピペで入力した）
まあそれならそうと書いて欲しい
この手の変換はそれなりに需要があるみたいで
カタカナ 小さい文字 変換 vba
とかでググるとそれなりにヒットする
とりあえずは
URLﾘﾝｸ(www.relief.jp)
とかを参考にすればいいと思う
200:デフォルトの名無しさん
19/02/16 10:00:10.02 uFHexw8O0.net
スマホで半角カナ小文字の入力は、俺のXperiaの場合だと「la」と入力すると全角小文字の「ぁ」になって、変換を押すと候補に半角「ｧ」が出てくる
201:デフォルトの名無しさん
19/02/16 10:07:20.68 uFHexw8O0.net
フリック入力ならキーパッドの「ま」の下の「小」をタップすると小文字になって、候補に半角も自動的に出てくる
202:デフォルトの名無しさん
19/02/16 13:35:38.12 V3lev6Wl0.net
>>175
1) Range("A1:A4") = WorksheetFunction.Transpose(Split("名前、住所、性別、郵便番号", "、"))
2) Range("A1:A4") = WorksheetFunction.Transpose(Array("名前", "住所", "性別", "郵便番号"))
3) Range("A1:A4") = [{"名前";"住所";"性別";"郵便番号"}]
203:デフォルトの名無しさん
19/02/16 14:00:48.72 i29F+S9hM.net
VBAの2次元配列って1次元配列として使えないのね。不便。
204:デフォルトの名無しさん
19/02/16 14:26:02.22 Y5C6RkaG0.net
二次元配列は何が入ってるか分かりにくいしネストも増えやすいから構造体かクラスを使う
205:デフォルトの名無しさん
19/02/16 14:36:39.42 eWrDkcRxM.net
>>198
割り切ってジャグ配列をメインに使えばいい
Rangeはしょうがないけど
206:デフォルトの名無しさん
19/02/16 15:38:49.30 XgEm9HUa0.net
>>199
XLシートが二次元の表なんだから難しくないだろ。
三次元なら立体を思い浮かべればいい。四次元になると時間をイメージかな。そこまでやったことないからわからん。
三次元までのネストの深さは気にならないな… ifとかで増えるにしても。増えすぎるなら内部を切り出すかな。
まあ、仕様によってどう作るかはいろいろだけど。
207:デフォルトの名無しさん
19/02/16 16:03:55.03 kXl7LE8Fx.net
n次元 = n階層の木構造とイメージするのが単純で良いと思うが
208:デフォルトの名無しさん
19/02/16 16:14:59.54 3bJEG0FOH.net
>>201
難しくないのにわからんって馬鹿？
209:デフォルトの名無しさん
19/02/16 16:41:41.01 eWrDkcRxM.net
n次元より配列の配列の...の方が再帰的に扱いやすい
210:デフォルトの名無しさん
19/02/16 17:53:27.66 q1DAaOKG0.net
>>203
日本語不自由？
難しくないのは二次元
わからんのは四次元
211:デフォルトの名無しさん
19/02/16 22:42:47.76 0In5hf0F0.net
モジュールで
Dim arr() As String
Dim aaa As String
ReDim arr(2)
arr = ThisWorkbook.arr
aaa = arr(0)
ThisWorkbookに下記を設定
Public Function arr() As String()
Dim arra(2) As String
arra(0) = "日本"
arra(1) = "米国"
End Function
Thisworkbookの配列を呼び出したいんですがどこが間違っていますか？
212:デフォルトの名無しさん
19/02/16 23:01:11.68 V3lev6Wl0.net
>>206
arr = arra
End Function
213:デフォルトの名無しさん
19/02/16 23:03:14.34 CD9VXZwW0.net
エラーメッセージ何よ。
214:デフォルトの名無しさん
19/02/16 23:06:17.40 0In5hf0F0.net
>>208
インデックスが有効範囲にありません
215:デフォルトの名無しさん
19/02/16 23:10:54.03 CD9VXZwW0.net
>>209
ああ、よくある、結局原因がよくわからないやつね。
試したら、>>207が正解だったわ。
面白いな。Thisworkbookに書いてあるものを呼ぼうなんて、
考えたこともなかったから、それが原因かと思ったわ。
216:デフォルトの名無しさん
19/02/16 23:17:04.90 7Iomz0v50.net
そもそも配列名とプロシージャ名が同じところもおかしい
217:デフォルトの名無しさん
19/02/17 00:05:03.03 kxT8s3Mp0.net
馬鹿はそんなもん
間違いにくいようにコードを書くことをしない
218:デフォルトの名無しさん
19/02/17 09:02:57.20 hMcsTv+Y0.net
>>212
コードを書かなきゃ間違えないということか、なるほど。
それとも馬鹿は誤解を受けないような文章を書くことをしないってことか？
219:デフォルトの名無しさん
19/02/17 09:28:38.67 l7X7saNL0.net
俺が分かるからいいみたいな考えだとチームで開発はできないよ
220:デフォルトの名無しさん
19/02/17 10:19:09.83 hMcsTv+Y0.net
>>214
それはよく解る。保守性も悪くなるよね。
221:デフォルトの名無しさん
19/02/17 10:48:02.04 1fMGblo0M.net
一般的なプログラミング言語なら正しいけど、VBAだとかなり厳しくない？
下に合わせるとそれこそ可読性も保守性もクソもないゴミにしかならないよ
222:デフォルトの名無しさん
19/02/17 10:53:43.33 vi4O111wa.net
言語は問わず下に合わせるとゴミになる
属人性の排除といって下に合わせたがる人が少なく無いけどあれは間違いなんだ
223:デフォルトの名無しさん
19/02/17 11:25:11.92 EkiBf8gr0.net
VBAで下に合わせると、やたらSelect & Selection.Copyが多い、
マクロの自動記録じゃねえのこれ?
みたいなのが出来上がる。
224:デフォルトの名無しさん
19/02/17 11:45:18.78 7MWZQWrl0.net
ActiveHogeHoge へ参照が多いとそうなんだろうなと思うことにしている
225:デフォルトの名無しさん
19/02/17 11:45:44.34 l7X7saNL0.net
>>216
>>217
>>218
意味が伝わってないみたいだけど
cells(i, 1) = arr(i-1, 0) がセルに何が書き込まれるかはコードの前後を追わないと分からないよね
これを分かるようにするのが分かりやすいコード
プログラミングが上手か下手かは関係ない話
226:デフォルトの名無しさん
19/02/17 11:51:57.63 l7X7saNL0.net
多次元配列も Dim lngEleName As Long とか専用ループ変数を準備してるならいいけど、ijkで回してるのを見た日にはそいつを殴りにいくね。
227:デフォルトの名無しさん
19/02/17 11:59:45.89 plSLxTsM0.net
ひえー
なんか諸先輩方思うところ多かったようで
自分も書くとき気をつけないと
初心者ですを免罪符にしないように気をつけよう
228:デフォルトの名無しさん
19/02/17 12:32:03.24 jVC6vo8Y0.net
>>221
i, j, k でいいよそんなのw
229:デフォルトの名無しさん
19/02/17 12:47:43.60 1fMGblo0M.net
>>221
i, j, k で分かりにくくなるような長ったらしいプロシージャを書くのが悪い
230:デフォルトの名無しさん
19/02/17 13:16:45.17 Nxpc9YF00.net
>>223
上司「お前クビ」
231:デフォルトの名無しさん
19/02/17 13:31:38.58 Nxpc9YF00.net
>>224
プロシージャが簡潔ならおk
232:デフォルトの名無しさん
19/02/17 13:42:14.79 gMXfU/jdM.net
>>225
つまらない趣味にこだわるのは中学生までだぞ
233:デフォルトの名無しさん
19/02/17 13:49:15.60 gMXfU/jdM.net
偏見かもしれんがプログラミングで日常言語に近づけようとするやつは代数とか苦手だった？
って思っちゃう
234:デフォルトの名無しさん
19/02/17 14:06:36.59 7mUUrd8D0.net
蛇腹erは代数が苦手(キリっ
235:デフォルトの名無しさん
19/02/17 14:20:05.25 Nxpc9YF00.net
>>227
上司「このiってなに？ちゃんと説明して」
236:デフォルトの名無しさん
19/02/17 14:51:51.50 naWxhgEk0.net
単なるループカウンタですけど？
見ればわかりますよね？
237:デフォルトの名無しさん
19/02/17 14:57:39.75 k4RkjrxP0.net
>>221
Ing Ele ってなんの略ですか
238:デフォルトの名無しさん
19/02/17 15:13:51.30 Nxpc9YF00.net
>>232
しばくぞコラ（LongとElementだよ（にっこり））
239:デフォルトの名無しさん
19/02/17 15:32:11.89 t0Nzx7bGx.net
ループカウント用のプロシージャ内ローカル変数でiとかjとか使うのはありだと思う
モジュールレベル以上の参照スコープを持たせた変数をiとかjとかarrとかbufとかで宣言されてたら流石にキレるな
240:デフォルトの名無しさん
19/02/17 15:36:00.05 de8FYcuQ0.net
スコープが大きいほど変数名も長くして
241:デフォルトの名無しさん
19/02/17 15:43:21.47 urjL+jec0.net
今時ハンガリアン使ってるのクソダサい
242:デフォルトの名無しさん
19/02/17 15:49:41.73 Nxpc9YF00.net
俺はゴールデンの方が好き
猫飼ってるから無理だけど
243:デフォルトの名無しさん
19/02/17 16:33:33.48 Rm6p2g7t0.net
sheet1, sheet2とあって、sheet1に、
Private Sub ButtonClear_Click()
があります
これをsheet2のボタンを押したときに呼び出したいのですが、sheet2のsubで
Private Sub ButtonTest()
Worksheets("sheet1").Select
ButtonClear_Click
end sub
としてもそんなsubはないと言ってきます。他にもいろいろと試したのですがどうしたらいいのでしょうか
また、標準モジュール内で、
Sub ModuleTest()
Worksheets("sheet1").Select
ButtonClear_Click
end sub
としても同様に動きません
Worksheets("sheet1").ButtonClear_Click
とかしてもダメでした
244:デフォルトの名無しさん
19/02/17 16:40:07.44 vi4O111wa.net
共通の処理は共通モジュールかクラスに置いてください
シート1、シート2からはその共通の処理を呼び出してください
イベントハンドラはユーザーコードから呼び出すものではありません
245:デフォルトの名無しさん
19/02/17 16:50:40.07 Nxpc9YF00.net
>>238
Privateが付いてるプロシージャはそのモジュール内でのみ呼び出し可能
sheet1とsheet2は別モジュール
だから怒られてる
246:デフォルトの名無しさん
19/02/17 16:54:09.55 Bys9dR540.net
化石みたいなレスのあるスレだな
247:デフォルトの名無しさん
19/02/17 17:02:42.50 EkiBf8gr0.net
>イベントハンドラはユーザーコードから呼び出すものではありません
面倒くさいとき、普通に呼び出してたわ。
248:デフォルトの名無しさん
19/02/17 17:18:01.63 Rm6p2g7t0.net
>>240
Public にしてもはずしてもダメです
249:デフォルトの名無しさん
19/02/17 17:22:34.48 kxT8s3Mp0.net
馬鹿はClassを知らない
250:デフォルトの名無しさん
19/02/17 17:57:40.00 EkiBf8gr0.net
>>243
>>206みたいにしても?
251:デフォルトの名無しさん
19/02/17 18:15:37.59 l7X7saNL0.net
>>243
そもそもボタンってデフォで標準プロシージャに追加されなかったっけ？
標準モジュール作って、Sub ButtonClear_Click() をまるごと移動させたらいけんじゃね？
252:デフォルトの名無しさん
19/02/17 18:27:30.13 hMcsTv+Y0.net
>>244
そんくらい知ってるよ、夏の日の1993だろ。
昭和生まれをナメるなよ。
253:デフォルトの名無しさん
19/02/17 18:37:55.36 Rm6p2g7t0.net
調べてたらこんなのが出てきました
URLﾘﾝｸ(jscript.zouri.jp)
ちょっとずれてはいますが、ここで
// シートのマクロ関数を呼び出す
ExcelApp.Run( "MacroTest.xls!Sheet1.func1" );
ってのがあるから、標準モジュールだけじゃなくて、シートの関数も他のシートからも呼べるんだよね
マネてやってみたんだけどうまくいかん
254:デフォルトの名無しさん
19/02/17 18:52:24.20 EkiBf8gr0.net
いや、普通に、シートを指定するんじゃ駄目のかな。
>>206はThisworkbookに続けて関数名書いてるけど。
クラスモジュールもそうやって指定するでしょ?
255:デフォルトの名無しさん
19/02/17 18:53:32.60 X48frccGd.net
???
lngEle?なんかよりi,j,kの方がよっぽど良いだろ。
どんなスコープの場合でも特別な意味の無いループ変数だよ。
世界中で、さらにいうと他言語でも共有されてる価値観だろ。
まあ、ローカル以外で使われることは無いけど。
256:デフォルトの名無しさん
19/02/17 19:03:59.23 l7X7saNL0.net
シートモジュール特有の制約があるのかもしれないけど調べるのめんどい
257:デフォルトの名無しさん
19/02/17 19:07:37.68 X48frccGd.net
>>238
根本的に考え方が分かっていない。
まず、色んな所から呼び出したいものは標準モジュールに書く。
そして、そいつを色んな所から利用するように設計する。
君の場合はButtonClear_ClickをSheet1からもSheet2からも使いたいんだからButtonClear_Clickの中身を別関数にして、Sheet1のButtonClear_Clickからその関数を呼び出すようにする。
258:デフォルトの名無しさん
19/02/17 19:09:51.42 vi4O111wa.net
vbaerは他の言語やらんから非常識なコードを悪気なく書いてしまうんだよな
259:デフォルトの名無しさん
19/02/17 19:12:06.36 Rm6p2g7t0.net
>>252
ちょっと�
260:痰､んだなあ sheet1にPrivate Sub ButtonClear_Click() ってかいてるでしょ。 この処理はシート１に対してする処理なのです それをシート２から、ある特定のタイミングでしたいので、こうなっている 標準モジュールにあるものはもちろん呼べるけど、疑似的にもそうしないといけないのかな
261:デフォルトの名無しさん
19/02/17 19:19:24.91 l7X7saNL0.net
>>254
Worksheets(“シート名”).Range() = 処理
262:デフォルトの名無しさん
19/02/17 19:20:23.75 EkiBf8gr0.net
試したら、Sheet2.ButtonClear_Clickで動くわ。
もちろん、Privateは削除でね。
>>252
一般的にはそうだけど、
実際には出来るんだから、思い込みだよ。
263:デフォルトの名無しさん
19/02/17 19:22:02.36 l7X7saNL0.net
ていうかsheet1にコードを書いたとしてもsheet2がアクティブになってればそっちに書き込まれるからね
264:デフォルトの名無しさん
19/02/17 19:22:44.45 Rm6p2g7t0.net
>>256
Worksheets("sheet1").ButtonClear_Click
みたいな仰々しいことしなくても良かったのね。 ありがと。 あとでやってみる
265:デフォルトの名無しさん
19/02/17 19:33:19.37 l7X7saNL0.net
>>258
それは入れる物が間違ってる
266:デフォルトの名無しさん
19/02/17 19:50:26.47 X48frccGd.net
>>254
違わない。
設計の話をしている。
シート2からも呼び出すんだからシート1に対して行う処理であっても変わらん。
というか、基本的な所で噛み合ってないな。
どんな所に書いてもいきなりブックやシートの省略はしないのが基本だぞ。
Withを使うかオブジェクト変数で受けるのが基本だ。
267:デフォルトの名無しさん
19/02/17 19:56:06.48 Rm6p2g7t0.net
>>256
おかしいなあ。 オブジェクトが必要ですっていうエラーが出てきて動かない
268:デフォルトの名無しさん
19/02/17 19:56:59.16 9z/u7JpJ0.net
「ちょっと違うんだなあ 」は草
269:デフォルトの名無しさん
19/02/17 20:15:00.10 jhLaQWBk0.net
>>261
君面白いねえ
270:デフォルトの名無しさん
19/02/17 20:26:28.38 l7X7saNL0.net
>>261
Sheet1.Select
271:デフォルトの名無しさん
19/02/17 20:36:24.20 EkiBf8gr0.net
>>261
これでtestって出ない?
[シート1]
Sub ButtonClear_Click()
MsgBox "test"
End Sub
[シート2か標準モジュール]
Sub ButtonClear_Click()
Sheet1.ButtonClear_Click
End Sub
272:デフォルトの名無しさん
19/02/17 20:39:08.27 Rm6p2g7t0.net
>>264-265
sheet1.Selectをしなくても、セルへの代入だけなら出来た.。 シート２のボタンを押しても、シート１のセルに書き込まれる
でも、Cells(10,10).Selectみたいなセルの選択をするときは、sheet1.selectをしておかないとエラーになる
273:デフォルトの名無しさん
19/02/17 20:43:50.21 l7X7saNL0.net
>>266
書き込みたいシート名を指定する
Worksheets(“シート名”).cells(1,1) =
274:デフォルトの名無しさん
19/02/17 20:44:14.77 EkiBf8gr0.net
>>266
こうやって書けば。
Worksheets("Sheet2").Cells(10, 10).Value = "test"
275:デフォルトの名無しさん
19/02/17 20:46:06.79 Rm6p2g7t0.net
>>267-268
いやだから、書き込みだけなら、問題なく出来るって書いたじゃん
裏でも出来る
でも、セルの選択とかが入ると、シートをSelectして動かないとダメ
276:デフォルトの名無しさん
19/02/17 20:47:37.46 l7X7saNL0.net
>>269
そりゃそうでしょ
277:デフォルトの名無しさん
19/02/17 20:53:21.26 l7X7saNL0.net
つーかエラーメッセージ全部貼って見せて
278:デフォルトの名無しさん
19/02/17 21:43:11.83 de8FYcuQ0.net
vbaの関数ってデフォルトが参照渡しなんすね
やらかすとこだった
279:デフォルトの名無しさん
19/02/17 21:45:56.53 kxT8s3Mp0.net
お前らオブジェクトのこと全然わかってないんだな
馬鹿ばっか
280:デフォルトの名無しさん
19/02/17 21:57:57.43 l7X7saNL0.net
>>273
答えplz
281:デフォルトの名無しさん
19/02/17 23:04:18.50 t0Nzx7bGx.net
こんなスレ見てたら頭おかしなルで
282:デフォルトの名無しさん
19/02/17 23:11:53.07 kxT8s3Mp0.net
>>274
継承されたわけでもないオブジェクトから別のオブジェクトのメソッドをどうやって呼び出すかわからんのか？
馬鹿は死ねよ。
283:デフォルトの名無しさん
19/02/17 23:38:23.26 vi4O111wa.net
言い過ぎでは？
繊細な人だったら傷付くよ
284:デフォルトの名無しさん
19/02/17 23:57:36.39 t0Nzx7bGx.net
シート1内外から呼べるPublicな共通関数を作って、クリックイベントハンドラのコードと他モジュールのコードの双方から呼ぶようにすれば良いだけでは
イベントハンドラを直接コードユーザにコールさせようとするのはおかしい
285:デフォルトの名無しさん
19/02/18 00:01:45.68 WfgOED4y0.net
>>272
ByRefもByValも付けずに宣言するとそれはByRefになるって事をかな？
であれば既にやらかしてるのを気づかずにいる可能性があるから過去のモジュールを点検した方がいい
286:デフォルトの名無しさん
19/02/18 00:02:49.20 5bMGA+jIa.net
いやよく考えるとイベントハンドラを呼ぶのはおかしいがシート2クラスのメソッドを呼ぶだけなら別におかしくはなかった
それだけでは共通化する理由にはならない
287:デフォルトの名無しさん
19/02/18 00:59:55.76 hC76sm/R0.net
>>276
へーシートもオブジェクトなのか
全然意識してなかったわ
勉強になったよありがと
でもお前口悪いから友達いなさそうw
288:デフォルトの名無しさん
19/02/18 01:23:07.51 hC76sm/R0.net
シートモジュールに構造体宣言してハマった記憶がある
そういうことだったのか
289:デフォルトの名無しさん
19/02/18 01:23:55.49 5t9ctY5m0.net
頭が悪い 顔が悪い 目が悪い 口が悪い
性格も悪い 手癖も悪い 足腰も最近悪い
酒癖も悪い 女癖も悪い 寝つきも悪い
そんな俺でもその返事の仕方は失礼なんじゃないかな？
とは思うけど。
もしや高度なツンデレさんなのかな？
と、解釈して
次の方 ( ﾟдﾟ)ノどうぞ
290:デフォルトの名無しさん
19/02/18 06:33:10.39 hC76sm/R0.net
きっと彼の親はVBAに殺されてしまったんだよ
291:デフォルトの名無しさん
19/02/18 08:08:58.79 MgpZvmd8x.net
シートもオブジェクトなのか、ってのはちょっと驚いたな
シートどころか自作フォームも含めてGUIで見て触れるもののほぼすべてがオブジェクトだぞ
292:デフォルトの名無しさん
19/02/18 08:18:13.27 8se8rGxR0.net
なんか、バカばっかりだなあ
>>269に他のシートにもアクセスできるって書いてあるだろ。何がオブジェクトだよ
ただ、セルのセレクトは出来ないって
293:デフォルトの名無しさん
19/02/18 08:58:38.38 AsxIQPE70.net
前にやってたユーザサポート業務を思い出した
294:デフォルトの名無しさん
19/02/18 12:38:44.05 UyrImbcld.net
>>286
バカはお前。
そのセルのセレクトができないと言ってる元の命令がオブジェクトがどういう階層になってるか分かってない典型的な例。
そういう人のコードだから、セレクトなんて必要無いだろうなと先読みしてるんだろう。
何しろセレクトすることなんて極めて殆ど書くことが無い(必要となることが無い)処理だからな。
295:デフォルトの名無しさん
19/02/18 13:13:11.83 qW3BE+Gz0.net
ブックもシートもセルもボタンもシェイプもみんなオブジェクトだよ
WindowsはOSそのものがオブジェクトの塊
そういうふうに設計されてる
296:デフォルトの名無しさん
19/02/18 13:49:41.69 uzxEynMwM.net
Selectionはイミィディエイトからはよく使う
297:デフォルトの名無しさん
19/02/18 16:12:57.29 JTiYKdtz0.net
化石観たいな臭いレスでも良いけど
もうちょっと面白いレスが観たいな
VBAネタもう飽きた
298:デフォルトの名無しさん
19/02/18 16:21:45.06 luqjRhnP0.net
URLﾘﾝｸ(japan.cnet.com)
「Microsoftにとって、（Officeのような）ウェブベースのアプリケーションサービス
を提供することは願ってもないことだろう。これにより、エンドユーザーや違法コピー
の問題をもっとしっかりコントロールできるようになる。しかも、大量にメディアを
用意したり、それを流通させるコストも不要になる」
--Garcia on Slashdot
299:デフォルトの名無しさん
19/02/18 16:23:02.33 L3SsO4kg0.net
>>292
誤爆してしまった。
スマソ。
300:デフォルトの名無しさん
19/02/18 17:39:58.04 xGyDNRFK0.net
VBAスレにまで来てVBAネタ飽きたって、こんなとこくる暇があったら病院行った方が良いんちゃう？
301:デフォルトの名無しさん
19/02/18 21:13:51.18 25ajLZ330.net
vbaおそすぎい…
302:デフォルトの名無しさん
19/02/18 21:25:29.27 Y1NxofRZx.net
Selectメソッドは記録マクロの記述のためだけに存在する命令と言ってもいいくらいのものだからな
実際に実務でSelectメソッドを書いたことは殆どない
特定のセル範囲（特に複数セル）が選択された状態を作り出すことに実務上の意味があるならば書かざるを得ないんだろうけど
303:デフォルトの名無しさん
19/02/18 21:53:14.97 eiV6jRN10.net
どうしてセレクチオンしないの～！
304:デフォルトの名無しさん
19/02/18 22:15:32.75 aFs+DxuY0.net
>>296
コードの最後に
cells(1,1).select
って書いておくのが僕
305:デフォルトの名無しさん
19/02/18 22:31:21.38 R8eupock0.net
カーソル位置の初期化によく使うけどな。Select
306:デフォルトの名無しさん
19/02/18 22:37:53.94 hG18nYywr.net
application.gotoを使う
307:デフォルトの名無しさん
19/02/18 22:51:42.46 Y1NxofRZx.net
スクロールの有無を選べるApplication.Gotoの方が小回りが効くわな
308:デフォルトの名無しさん
19/02/18 23:52:49.47 hC76sm/R0.net
SelectよりActivateの方がしっくりくる
309:デフォルトの名無しさん
19/02/19 00:02:24.54 mTnWFuG30.net
>>302
違いってなんだっけ？
310:デフォルトの名無しさん
19/02/19 00:21:46.10 XTzrMDQC0.net
selectは複数できる
acrivateは1つだけ
selectしたcellsはselectionで取得でき、
activateしたセルはActiveCell
また、
ActiveCellはsheetではなくapplicationのメンバ
Application.ActiveCell.Select
↓はできない
sheets(1).activeCell.Select
今色々試しただけだから、間違ってたらゴメン
311:デフォルトの名無しさん
19/02/19 08:36:38.55 9CovpibD0.net
>>304
Oh,thx.
312:デフォルトの名無しさん
19/02/19 11:46:22.25 9gUKp59aM.net
WebBrowserのフォームに文字列変数に入れたHTMLを反映させるのってどうすれば良いですか？
313:デフォルトの名無しさん
19/02/19 12:39:59.48 oemf1bOsd.net
>>306
説明が分かりにくい。
WebBrowserのフォーム
→フォームにWebBrowserコントロールを貼り付けたもの?
文字列変数に入れたHTML
→指定したURL?
フォ―ムにWebBrowserコントロール貼り付けて、指定したURLを表示させたいってこと?
314:デフォルトの名無しさん
19/02/19 12:42:06.27 oemf1bOsd.net
それともHTMLのソースコードを元にブラウザ表示させたいってこと?
315:デフォルトの名無しさん
19/02/19 13:02:37.15 XTzrMDQC0.net
>>306
input type="text"を変更したいんでしょ
メールアドレスに「123」を入れる例
めっちゃめんどくさいけどガンバレ
Private Sub UserForm_Activate()
WebBrowser1.Navigate ("URLﾘﾝｸ(opentype.jp))
End Sub
Private Sub UserForm_click()
Set hec = WebBrowser1.Document
Set mailaddress = hec.GetElementsByName("MailAdress2").Item(0)
mailaddress.Value = 123
End Sub
316:デフォルトの名無しさん
19/02/19 13:06:28.07 DYfM7cdrH.net
質問じゃないけどcsv取り込みでQueryTable使ったら感動した
ググるとほとんどLine Inputでやってるんだもんなぁ
317:デフォルトの名無しさん
19/02/19 13:10:41.92 mzDqOD0La.net
ExcelでJavaScriptが使えるみたいだけど、どんなことに使えるのでしょうか？
318:デフォルトの名無しさん
19/02/19 13:21:57.84 XTzrMDQC0.net
>>310
便利なんか？
住所の番地ってどうにかできるんかね
1-1が日付扱いになってしまう
>>311
jsがどうこうではなく、vbaが化石すぎる
jsは慣れれば超楽に書ける。これから覚える人は大分楽できるんじゃないかな
ただ、jsはところどころじゃあくなので気をつける必要がある
具体的にはundefined
319:デフォルトの名無しさん
19/02/19 13:30:09.72 mzDqOD0La.net
>>312
おぉ！レスありがとう😊
そっかぁvbaは化石か…
今職場で必要だから、業務を通して勉強してるんだよね。
JavaScriptは少し勉強してたけど、会社が受け入れてくれるかな。
320:デフォルトの名無しさん
19/02/19 13:35:17.78 XJA9DtkM0.net
>>296
広範囲のソートとかどうすんの？
321:デフォルトの名無しさん
19/02/19 13:44:22.98 XTzrMDQC0.net
>>313
幾つか忘れていた
jsのメリット
・jsはwebでも標準的な言語
・イラレのスクリプトもjsで動かす事もできる。ほとんど使わないけど
・googleSpreadsheetのマクロはjs
ただ、化石言語にもいいところはある。今までのノウハウがweb上に山程ある
そして仕様変更も20年なかったから、全コードがそのまま使える
（他の言語はバージョン違いでエラーが発生したり、全く動かなかったりする）
結局やることはエクセルのスクリプトなので、vbaでも十分ちゃ十分、
jsのノウハウが積み上がるまでは、vbaの方が楽出来ると思う
322:デフォルトの名無しさん
19/02/19 13:55:09.79 mzDqOD0La.net
>>315
なるほどなるほど。
詳しく説明してくれてありがとう！
たしかにvbaは歴史があるから、調べてるのは楽だよね。
JavaScriptはしばらく家で勉強した方が良さそうだねw
時期をみて上司に提案してみるよ！
323:デフォルトの名無しさん
19/02/19 14:12:13.94 yAUMSA3na.net
Java script は
VBA → VB.Net → ASP.net って勉強して行く過程で勉強することになるから
そんなに慌てなくてもいいよ
324:デフォルトの名無しさん
19/02/19 14:15:00.77 D8b3v+FoM.net
>>317
ドヤ顔のところ申し訳ないけど、ASP.NET(最新のものではなくVBerが知っている方のASP.NET)も化石だよ
325:デフォルトの名無しさん
19/02/19 14:16:57.12 D8b3v+FoM.net
ちなみに最新のASP.NETと呼ばれるものはVBer達がよく知っているASP.NETとは全く互換性がない
それどころか.NET Frameworkすら切り捨てた
326:デフォルトの名無しさん
19/02/19 14:24:40.78 XTzrMDQC0.net
>>319
知らなかった、昔のASP.NETの印象しかない。名前が完全に足引っ張ってる
327:デフォルトの名無しさん
19/02/19 15:20:23.15 oSkNfL9QM.net
>>307
>>309
説明不足すみませんでした
ユーザーフォームにwebBrowserのコントロールを張り付けて、そこにURL指定ではなくて直接htmlの文章を書き込みたいです。
328:デフォルトの名無しさん
19/02/19 15:44:15.07 XTzrMDQC0.net
>>321
かなりめんどくさいことをしている気がする
やりたい事はこれじゃないんじゃないか
Private Sub UserForm_activate()
'多分一回呼ばないとダメ
WebBrowser1.Navigate ("URLﾘﾝｸ(example.com"))
End Sub
Private Sub UserForm_Click()
html = "<div>foo</div>"
WebBrowser1.Document.body.InnerHtml = html
End Sub
329:デフォルトの名無しさん
19/02/19 16:06:51.67 XJA9DtkM0.net
四角の領域を表す構造体にRECTというのがありますが、領域が10個あってしかも定数です
その中にあるポイントがあるかどうかを判断するのに、 PtInRectを使いますが、10個のRECT領域をどうやって
定義するのか考えています
Dim rect1 as RECT, rect2 as RECT ,,,,, rect10 as RECT
とやって、これらに定数を代入するときにいちいち
rect1.Top = 10
rect1.Left =10
---
rect10.Bottom = 1000
rect10.Right = 1970
とかやってたら大変です。 Cとかなら
rect1 = CRect( 10,10,100,100)
って出来ますが、VBAでは出来ませんか。 またやりたいのは、PtInRectなので、簡単に
if PtInRect( CRect( 10,10,100,100), x,y) <> 0 then
みたいにしたいのですが、どうしたら一番スマートに出来るでしょう？
330:デフォルトの名無しさん
19/02/19 16:25:56.81 DYfM7cdrH.net
>>323
四角形を描画するメソッドは知ってる？
331:デフォルトの名無しさん
19/02/19 16:32:07.86 DYfM7cdrH.net
>>323
ごめん勘違い
GetCursorPos()
332:デフォルトの名無しさん
19/02/19 16:34:56.56 DYfM7cdrH.net
>>323
またまた勘違い
座標の指定はむりじゃね
それぞれの四角形の位置関係に規則性はないんでしょ
333:デフォルトの名無しさん
19/02/19 16:46:08.58 DYfM7cdrH.net
Topとか名前を付けないで配列の要素番号に対応づけるとか
334:デフォルトの名無しさん
19/02/19 19:15:58.92 C6whiypoM.net
>>322
それです！ドストライクです！！
エスパーさん手間を掛けて本当にすみませんでした。
二日考えてダメだったんですけど一回何か表示させる必要があったんですね。
あと次回は自力で出来るように頑張ります～！！
ありがとうございました！
335:デフォルトの名無しさん
19/02/19 19:40:34.45 VgLhyIar0.net
カンマ区切りのCSVファイルを2次元配列に入れたい。
Dim arr()
arr=getCSVData(strFile)
private Function getCSVData(byval ...)as string()
Dim tarArr()
//処理
getCSVData=tarArr
end Function
こんな感じで配列にして1次元が行、2次元が列に格納したいんですが
ReDim、ReDim Preserveのタイミング等々が分かりません。
先に一度開いて行数と列数の最大を取得してからReDimでtarArrを2次元配列にし、もう一度開いて一行ずつ読み取ってカンマ区切りをsplitして配列に入れてからUBound分ループしてtarArrに入れる方法ですかね？
336:デフォルトの名無しさん
19/02/19 20:09:29.49 3o3WGLUD0.net
>>329
多次元配列は最後の要素しか拡張できないから、左の要素はUbound(Split(1行目,”,”))で最初に確定させるしかない
右の要素はredim preserveで拡張できるから普通にループで増やしていけば良い
337:デフォルトの名無しさん
19/02/19 20:17:18.51 f2qQz3/xx.net
>>323
クラスにしたらいいんじゃないの
vbaで引数付きコンストラクタの実現は難しいけど、
四つの座標情報を引数に取るプロパティ関数を用意して、Rect構造体のプロパティを持たせるようにすればそれらしいことができるのでは
338:デフォルトの名無しさん
19/02/19 20:41:15.17 XJA9DtkM0.net
>>331
VBAでもクラスって出来たんですね。 ちょっとググってみました
ありがとう。 これは知らなかった
339:デフォルトの名無しさん
19/02/19 21:21:04.93 eXSGnhOj0.net
>>323
構造体でできなくはない
VBAの構造体、制限多いけどな
Public Type Rect
Top As Integer: Left As Integer: Bottom As Integer: Right As Integer
End Type
Public Function CRect(Top As Integer, Left As Integer, Bottom As Integer, Right As Integer) As Rect
Dim r As Rect
r.Top = Top: r.Left = Left: r.Bottom = Bottom: r.Right = Right
CRect = r
End Function
Public Function PtInRect(Rect As Rect, x As Integer, y As Integer) As Boolean
If Rect.Left < x And Rect.Right > x And Rect.Top < y And Rect.Bottom > y Then
PtInRect = True
End If
End Function
Public Sub test()
Dim r(10) As Rect
r(1) = CRect(10, 10, 100, 100) '...
If PtInRect(r(1), 15, 180) Then
MsgBox "In Rect1"
End If
If PtInRect(CRect(10, 10, 100, 100), 15, 80) Then
MsgBox "In Rect2"
End If
End Sub
改行多すぎらしいので:で詰めて書いてる
340:デフォルトの名無しさん
19/02/19 21:25:35.60 eXSGnhOj0.net
>>329
エクセルでCSV開いてシートをそのまま２次元配列に突っ込めば良いんじゃないか
341:デフォルトの名無しさん
19/02/19 21:47:03.10 LH3y88CS0.net
>>319
え？
そうなの？
それは知らなかった。
ちなみに最新はASP.netのcore2.1だと思うんだけど
VisualStudioでASP.Net Coreプロジェクトを作る際、
.Net Coreと.Net Freamworkのどちらのプラットフォームを選択するか聞いてくるけどあれは何なの？
342:デフォルトの名無しさん
19/02/19 22:14:11.03 +ssFN3TXa.net
>>335
ASP.NET Core 3.0以降ではFull .NETが切り捨てられることが公式に明言されてる
3.0はまだPreviewだけどね
343:デフォルトの名無しさん
19/02/19 22:33:29.04 LjPGQpms0.net
Dimってどこに書いてますか？
全部最初に書きますか？
For i= 0 to 100
for j = 0 to 100
iとjを使った処理
next
next
この時、Dim j as Integer ってどこに書きますか？
「For i= 0 to 100」の上か下かという質問です。
344:デフォルトの名無しさん
19/02/19 22:37:52.77 XTzrMDQC0.net
定義は一番最初にまとめて全て書くと管理しやすい
個人的にはそもそも書かないけどな～
345:デフォルトの名無しさん
19/02/19 22:45:04.21 VgLhyIar0.net
>>330
自分でも調べてたけど、「最後の要素しか増やせない」って同じこと書いてありました。これは
例えば、行数読んだ結果がLcnt=10だとして
まず
ReDim(Lcnt,0)で作り
配列(0 to 10,0)ができ
Redim Preserve(Lcnt,Ubound(Split(1行目))
区切った値が5なら
配列(0 to 10,0to5)が出来てしまい、いっぺんに右の要素数が変更されるってことで合ってます？
と言うことは、1行目が5列で次に読んだ2行目が3列なら右の要素数は3に減るって事ですかね？
ifか何かで要素数は増える時だけRedim Preserveのが良いですかね？
346:デフォルトの名無しさん
19/02/19 22:50:47.62 VJWnLClRd.net
>>337
VBは上にまとめ
C#は使う時
他の言語はしらん。あくまでイメージ。
スコープは短くが理想だから長くなって下部に変数が初登場ならFunctionとかCallで余分そうなものは排除。
だからそのループも逃がす
347:デフォルトの名無しさん
19/02/20 00:08:08.78 Hgznwu9O0.net
>>339
あなたの用途に合ってるのは2次元配列じゃなくて配列の配列。
ReDim arr(0 To n)
arr(i) = 別の配列 ` i : 0～n
みたいなことができる
「別の配列」のところに、csvの一行分を処理して配列を返す関数を当てはめればいい。
もちろんクラス化してもいいけどさ
348:デフォルトの名無しさん
19/02/20 03:34:25.29 B2QSVSiS0.net
>>329-334
Ruby では普通に、2次元配列に入る
require "csv"
p CSV.read( "test.csv" )
結果
[["id", "first name", "last name", "age"],
["1", "taro", "tanaka", "20"],
["2", "yumi", "adachi", "21"]]
349:デフォルトの名無しさん
19/02/20 07:38:24.67 5mnmpgTAH.net
クラスって要素名を予め宣言しないといけないからcsvの要素が変わると対応できない？
教えてエロい人
350:デフォルトの名無しさん
19/02/20 07:54:07.56 KjQRkkj7x.net
要素名で名前解決する処理がないなら、レコード値を配列プロパティで受け渡すだけで良いと思う
名前解決が必要なら要素宣言しないといけないね
351:デフォルトの名無しさん
19/02/20 11:17:04.40 Aqbfj0bAp.net
教えてください。
エクセルのマクロです
PDFファイル（１００ページくらいある）を、エクセルに、全ページをたて一列に貼り付けたいのですが、
どう書けばいいでしょうか
352:デフォルトの名無しさん
19/02/20 11:58:45.20 EgtCXVwuM.net
RPAを買ってコピペを自動化するのが手っ取り早いよ
353:デフォルトの名無しさん
19/02/20 12:07:33.49 crzgHpZv0.net
なぜPDFを貼り付けるのか
そのまま印刷すればええやん
そのPDFは1つのファイルの中に100ページあるの？
1ページだけのPDFファイルが100個あるの？
バラバラのPDFファイルを1つに結合したいだけならフリーウェアでできるよ
354:デフォルトの名無しさん
19/02/20 12:28:15.94 Aqbfj0bAp.net
>>347
印刷のためじゃなく、PDFをシートにはり、横にエクセルでコメント入れたい。
355:デフォルトの名無しさん
19/02/20 12:36:44.12 5mnmpgTAH.net
コメントならPDFファイルでも入れられるよ
356:デフォルトの名無しさん
19/02/20 12:37:09.49 HgkG/6H60.net
>>345
PDFを画像に分割→エクセルに貼り付け
って流れになる
PDFから直接どうこうは止めたほうが良い、PDFを触るのはかなりめんどくさい
PDFを画像に分割するソフトがあると思うから、まずはそれを探して試してみて
どういう形式で画像が出て来るかが分かれば、後はvba簡単に書けると思う
>>349
そういやそっちの方が早いね
357:デフォルトの名無しさん
19/02/20 12:38:58.44 Aqbfj0bAp.net
>>349
大量のコメントや式です
358:デフォルトの名無しさん
19/02/20 12:39:49.65 Aqbfj0bAp.net
>>349
大量のコメントや式です
359:デフォルトの名無しさん
19/02/20 12:41:03.23 zcHFtFOnd.net
>>345
｢教えてください｣で始まる質問をするのは馬鹿しかいない法則
360:デフォルトの名無しさん
19/02/20 12:53:11.56 Aqbfj0bAp.net
分割するとは？
100ページのドキュメントだから100個のファイルを作成するということでしょうか。
361:デフォルトの名無しさん
19/02/20 12:55:03.75 HgkG/6H60.net
そういう事
362:デフォルトの名無しさん
19/02/20 13:15:01.09 Aqbfj0bAp.net
分割しないで、ページを読み込み、貼り付けはできないのでしょうか？
363:デフォルトの名無しさん
19/02/20 13:17:35.13 5mnmpgTAH.net
100in1で出力すればいけんじゃない？
364:デフォルトの名無しさん
19/02/20 13:27:36.70 zcHFtFOnd.net
エクセル方眼紙の厚かましい馬鹿は死ね
365:デフォルトの名無しさん
19/02/20 13:27:47.31 5mnmpgTAH.net
PDFを画像にするっていうのはプリンタで印刷するのと同じイメージだから基本1ページ1ファイルね
366:デフォルトの名無しさん
19/02/20 13:48:22.42 HgkG/6H60.net
>>356
できるけどめんどくさいんだって。
自分用ですら>>350の手順踏む
この件は誰もやらんって断定するから諦めたほうが良い
367:デフォルトの名無しさん
19/02/20 13:51:25.06 5mnmpgTAH.net
pdfをtxtにできるサイトがあるね
368:デフォルトの名無しさん
19/02/20 14:19:25.05 3CKo6tJGF.net
そもそもスレタイ読めない馬鹿は死ね
369:デフォルトの名無しさん
19/02/20 14:49:29.70 crzgHpZv0.net
どうしてもVBAとExcel上でやりたかったら
100ページのPDFを100枚の画像に変換するのはフリーウェアで一発でできる
画像をワークシートに並べるだけならVBAで簡単に書ける
上司の命令とかで他の選択肢がないなら、俺ならこうする
370:デフォルトの名無しさん
19/02/20 16:49:36.00 RE4oCyjZM.net
371:l="noopener noreferrer" target="_blank" class="reply_link">>>345 >エクセルのマクロです なにがどうエクセルのマクロなのか全くわからなくて面白かった
372:デフォルトの名無しさん
19/02/20 17:37:12.40 HgkG/6H60.net
>>362>>364
エクセルのマクロだけでいけるとおもったんやろ
実際出来なくはないと思うけどすげーしんどいって事にまで気が回らなかったことは仕方ない
373:デフォルトの名無しさん
19/02/20 17:59:23.96 lkHSh4f40.net
「○○したいんですけど教えて下さい」
「なんでそんなことしたいの？バカなの？」
何でこんな回答いちいちすんだろ
答えてくてウズウズしてる自称プロが自分のわからない質問来てカリカリしちゃってるのか？
374:デフォルトの名無しさん
19/02/20 18:50:33.54 fho/sw2r0.net
なんでそんなめんどくさいことするの？
〇〇でよくね？
とかよく見るけど、質問者が聞いてる事だけ教えればいいのにと思う。
375:デフォルトの名無しさん
19/02/20 19:09:49.05 W87kh7t10.net
できない。
以上。
376:デフォルトの名無しさん
19/02/20 19:09:49.63 HgkG/6H60.net
>>366
大正解
vbaと実務の範囲を分かってない未熟者
>367
それを言うと
「〇〇はやりたくないんですｗ」
という回答が帰ってくるのがもう過去何度も
377:デフォルトの名無しさん
19/02/20 19:19:56.14 xmZEnq49a.net
QAに集中したいならteratailかstackoverflow.jpがオススメですよ
378:デフォルトの名無しさん
19/02/20 19:30:07.27 Aqbfj0bAp.net
1ページ目が貼り付けられるけど、ページを指定できないのかな
379:デフォルトの名無しさん
19/02/20 21:05:48.46 Wi/z/KN10.net
>>311
htmlに書かれているJavaScriptを実行したい時とか。
380:デフォルトの名無しさん
19/02/20 22:38:30.49 jH2rY7Fc0.net
めんどくさいっていうか、AcrobatOLE使えないと無理じゃない？
Excelだけで完結できる手法あるの？
381:デフォルトの名無しさん
19/02/20 22:49:49.45 pZJkKCoer.net
>>367
質問者が気付いてない、知らないだけの場合もあるから
382:デフォルトの名無しさん
19/02/20 22:57:03.31 Wi/z/KN10.net
上司から言われてるだけというケースもあるだろうな。
383:デフォルトの名無しさん
19/02/20 23:14:04.77 zOoel5SRx.net
手順固定で指示する糞上司っているよね
その手順がボトルネックになって糞の塊のようなツールが出来上がったりする
384:デフォルトの名無しさん
19/02/21 01:06:52.19 wp9rEEne0.net
>>373
ハンドアセンブルを覚える。
バイナリで書き出す。
385:デフォルトの名無しさん
19/02/21 05:02:12.65 fo0B5AuF0.net
>>376
組織はそれが普通。趣味で仕事やりますというわけには行かない
386:デフォルトの名無しさん
19/02/21 07:46:17.08 X1BgxDGFM.net
昭和の労働集約的な企業の紹介乙
387:デフォルトの名無しさん
19/02/21 08:00:03.08 WrVB68JS0.net
趣味で作り上げたとしても説明してレビュー受けないといけない。その労力って結構きついしいっそ言われたまま作り上げた方が精神的にラクね
388:デフォルトの名無しさん
19/02/21 08:15:00.93 Uwc+mrjba.net
>>376
固定するのは百歩譲って良いんだけど説明も了解もなく決める人には困るね
より良い方法を提案する機会がないままルールとして決まってしまう
389:デフォルトの名無しさん
19/02/21 08:24:52.09 hsBre2j/H.net
マニュアル化できるレベルの仕事しかできないって自虐だろ
390:デフォルトの名無しさん
19/02/21 12:40:21.42 tE5CGhgad.net
1.質問に回答する。
2.質問者から、「その場合だと～が上手くいきません。」と返事。
3.その場合は～すれば良いと回答する。
4.質問者から「それだと～」...
5.2-4を何度か繰り返す。
6.質問者に「そもそも君はその処理で何をやりたいんだ?」と聞く。
7.質問者の返事を聞いて、結局質問者の設計が糞だったと知る。
8.1-7をを何度となく経験してると、質問を見た時に設計の糞さ加減がかなりの確度で予想できるようになる。
9.質問者の聞いてることだけ回答すると糞設計のせいでドツボに嵌まるので聞いてることだけ回答するのは辞めようという結論になる。
10.質問者は自分の糞設計に気付かないので、質問にだけ回答すれば良いのにと思う。
391:デフォルトの名無しさん
19/02/21 16:01:26.14 EV12A9vO0.net
こうやって質問者をひとくくりで決めつけちゃうような視野が狭い人が一番の癌なんだよな
バカほどなんでも決めつけて単純化させようとする
勝手に単純化させた結論を赤の他人にいきなり押しつけるから当然理解されない
理解されないことを相手がバカだからと決めつけていきなり罵り出す
頭がおかしい人なのかな？と放置されると論破して黙らせたと思い込んで悦に浸り出す
そしてプロ回答者としての自信を増して増長して居座る
392:デフォルトの名無しさん
19/02/21 16:10:32.99 7HScUEGsM.net
大抵の事務仕事は本来単純なことをわざわざ難しくして仕事を作っているだけなのは事実だね
VBAや最近だとRPAのような小手先の自動化ツールのは、本質的なプロセスの見直しに対するモチベーションを削いでいる面もある
393:デフォルトの名無しさん
19/02/21 16:23:50.23 YsIQ3BIo0.net
営業はそれが売上に繋がってると信じてやまないので、
どうにもなんないのよ～
394:デフォルトの名無しさん
19/02/21 18:36:57.10 tE5CGhgad.net
>>384
お前が碌に回答したことが無い初心者なだけだろ。
いろんな所で回答してる奴らは皆同意する。
395:デフォルトの名無しさん
19/02/21 18:47:24.87 7HScUEGsM.net
>>387
同意するわ
明らかに知識の乏しい初心者が妙に具体的に手段を特定して助けを求めてきた場合、
「そんなことはどうでもいいから目的を教えろ」と対応するのが最も確実で効果的で手っ取り早い
396:デフォルトの名無しさん
19/02/21 18:56:23.16 YsIQ3BIo0.net
>>383
＞8.1-7をを何度となく経験してると、質問を見た時に設計の糞さ加減がかなりの確度で予想できるようになる。
この辺りになると回答でイライラする事が無くなるゾ
397:デフォルトの名無しさん
19/02/21 18:57:24.28 ZuxKbWfpM.net
>>384
お前が決めつけててワロタ
398:デフォルトの名無しさん
19/02/21 19:18:39.73 AiPG59Hd0.net
プログラムって書き方って人それぞれ違うと思うけどみんな書き方どんな？
EXCELのセルデータをComboBoxに格納
メイン文
caii addcbo(FilePath,1,Me.cbo1)
caii addcbo(FilePath,5,Me.cbo2)
caii addcbo(FilePath,8,Me.cbo3)
Function addcbo(....)
※DAOでEXCEL開く
第2引数の列を下にループ
第3引数に空になるまで格納
End Function
てな感じのコードってどうなの？
俺は先に2次元配列でシート丸ごと持ってきてから入れてく感じにしたんだけど、ここにいる人達はどう書く？
399:デフォルトの名無しさん
19/02/21 19:30:43.16 UHF1Q6o+0.net
データ取得は別プロシージャにして配列につっこむ
400:デフォルトの名無しさん
19/02/21 19:43:21.62 YsIQ3BIo0.net
caiiってcallの事か
>>392が綺麗と思うけど、大抵>>391ぐらいで終わる
401:デフォルトの名無しさん
19/02/21 19:53:49.02 dFUlMofS0.net
>>391
おまえプロさんか？
まだプロさん予備軍やったら気いつけや
そこからプロさんに堕ちるんはあっちゅう間やで
402:デフォルトの名無しさん
19/02/21 19:57:47.93 EV12A9vO0.net
>>387
さすがプロ回答者の鏡
嫌なら別に回答者なんてやらなくてもいいんだよ？
質問者をひとくくりに見下すようなひねくれ者になってまでプロ回答者をやり続けてる目的ってなに？
こんなとこで他人を見下してなきゃ自尊心保てないとかそんな感じ？
403:デフォルトの名無しさん
19/02/21 19:58:58.69 YsIQ3BIo0.net
>>395
回答も質問もしないならさっさと消えて
404:デフォルトの名無しさん
19/02/21 20:03:08.56 mRRRBv2X0.net
>>384
こうやって回答者をひとくくりで決めつけちゃうような視野が狭い人が一番の癌なんだよな
バカほどなんでも決めつけて単純化させようとする
勝手に単純化させた結論を赤の他人にいきなり押しつけるから当然理解されない
理解されないことを相手がバカだからと決めつけていきなり罵り出す
頭がおかしい人なのかな？と放置されると論破して黙らせたと思い込んで悦に浸り出す
405:デフォルトの名無しさん
19/02/21 20:08:15.12 pV/9VR1fx.net
質問に対する回答よりも糞みたいな煽り合いに熱中する奴ってなんなの
406:デフォルトの名無しさん
19/02/21 20:14:11.51 UHF1Q6o+0.net
質問者は基本的に馬鹿
「インターネットは開くんですけどxxシステムが開きません」と言われてTraceやらブラウザ設定やらやった挙句、LANケーブルが挿さってないだけでインターネットはキャッシュでした、っていうようなオチが山ほどある
奴らの言葉を鵜呑みにしてはいけない
407:デフォルトの名無しさん
19/02/21 20:40:34.06 8KPV6qY80.net
ループから抜けるときにブレイクとかコンティニューないのこれ？
408:デフォルトの名無しさん
19/02/21 20:44:24.69 YsIQ3BIo0.net
>>400
exitがある
Sub foo()
For i = 1 To 1000
Debug.Print i
If i > 100 Then
Exit For
End If
Next
End Sub
409:デフォルトの名無しさん
19/02/21 20:49:56.47 dFUlMofS0.net
>>399←こいつホンマもんのプロさんやんwww
Traceてwwwwwwww
410:
411:デフォルトの名無しさん
19/02/22 00:25:53.24 9R98EKTp0.net
>>402
？
412:デフォルトの名無しさん
19/02/22 00:44:27.12 EpE2F9dV0.net
混沌とした質問ではなくてある程度整形された質問ならお互いに健全かもしれないね。
「例えば質問のためのテンプレ埋めてもらう」とかだけでもやり取りの回数減るんじゃないかな。
テンプレの内容はよくわからないけど、例えば「配列が解るか、オブジェクトが解るか、ＡＰＩが解るか」とか書いてもらえれば質問者のレベルか解りやすいから罵ることもないだろうし
全体の流れの一部として困ってるのか、単純に言語仕様で困ってるのかだけでも質問者に必要なのがコンサルなのか解答なのか切り分けしやすいと思う。
413:デフォルトの名無しさん
19/02/22 00:57:28.09 nGlWTBX9a.net
【目的】
【何がわからないのか】
【どうなることを期待しているのか】
【何故それが必要だと考えたのか】
でいいよ
質問者のレベルなんてレスの内容見りゃわかるだろ
414:デフォルトの名無しさん
19/02/22 01:31:51.52 1cZDvNG50.net
>>405
＞【目的】
＞【何故それが必要だと考えたのか】
これは無くてもいいかも
多分あんまり良い情報は返ってこない気がする
＞【何がわからないのか】
これも無くて良いかもしれないけど、
まぁ一応質問スレなので
後は最初の状態が欲しい
初めと終わりがあれば何とでもなる
それと反復頻度。一回だけなら一回だけ用の雑コードで済ますし、毎日ならもうちょい丁寧に書く
ってわけで以下になっていると楽
【作業前の状態】
【終了時の状態】
【何がわからないのか】
【作業の頻度（一回だけ or 何度も）】
415:デフォルトの名無しさん
19/02/22 05:05:38.47 +/kCrfoP0.net
データ量も欲しいなあ
1万件なら雑コード、100万件なら処理速度も意識してコード書く
416:デフォルトの名無しさん
19/02/22 09:18:19.59 OJD9m6ZlH.net
あんまり敷居を高くすると質問者が減るよ
417:デフォルトの名無しさん
19/02/22 09:36:13.35 tzlpYPDLx.net
質問者が減れば珍回答で恥をかくリスクも減って回答者のプライドが保たれるので問題ない
418:デフォルトの名無しさん
19/02/22 09:46:06.70 OJD9m6ZlH.net
>>409
そう考えてるのはお前だけだよ
419:デフォルトの名無しさん
19/02/22 09:53:52.37 HFM6F1Kc0.net
まぁプロ回答者どもが罵り合いやってますが、質問者の方はそんなの気にせず
どんどん質問してくださいな w
420:デフォルトの名無しさん
19/02/22 10:30:26.16 1cZDvNG50.net
>>408
どうすればいいか提案してくれ
421:デフォルトの名無しさん
19/02/22 16:26:24.07 brEIpzdG0.net
このスレの本質はプロ回答者選手権だからな
プロ回答者の敵はプロ回答者
質問者など餌に過ぎない
その餌を誰が一番上から踏み潰すかを競い合う
ちなみにプロ回答者にもなると質問に答えたりしない
422:デフォルトの名無しさん
19/02/22 16:41:48.96 1cZDvNG50.net
>>413
なるほど！
まさに>>413さんのような方ですね
423:デフォルトの名無しさん
19/02/22 16:46:43.90 8DxZ0bMn0.net
なるほど
プロ回答者ってのは「質問スレにおける回答活動」のプロって意味か
424:デフォルトの名無しさん
19/02/22 20:37:47.33 O594Y42ea.net
まぁ別に目的の記述は無くてもいいけど
何を目的にしているかの記述があれば
代替案考えてくれる人もいるだろうし
欲しい解答が得られやすい場合もあるわな
逆に余計なこと言って欲しくないのなら
書かないのも有りだと思うけど
解答者がゲスパーして答えるのも
また有りだと思うし
425:デフォルトの名無しさん
19/02/22 20:44:37.13 O594Y42ea.net
>>400
ループから抜けるのは>>401の人が言う通り
Exitを使えばいいけど、次のループに行くような
.Netで言うContinueはないので
分岐でループしているロジックの最後に持って行くしかないんじゃないかな？
426:デフォルトの名無しさん
19/02/22 21:01:06.12 Pvmgb/R80.net
ここの質問を見ると、よほど変なもん作らされてるんだろうなって思う。
何に使うのかわからないようなのが多くて、
実務で使いそうなのがあまり出てこない。
427:デフォルトの名無しさん
19/02/22 21:23:19.91 yyymEZ9cM.net
実務では文字列解析とデータベースからの検索程度で難しくは無いんだけど
適当に組んだせいか妙に遅いのが悩み
高速化するテクニックとかないかな
428:デフォルトの名無しさん
19/02/22 21:42:30.22 +/kCrfoP0.net
>>419
VBAを捨てる
429:デフォルトの名無しさん
19/02/22 22:11:55.73 moZ6n3ck0.net
>>419
早いpcに買い替える
430:デフォルトの名無しさん
19/02/22 22:45:12.67 Pvmgb/R80.net
二重Forループ
↓
VLOOKUP
↓
高速VLOOKUP
↓
SQL
これより速いのって、やっぱアセンブラ?
431:デフォルトの名無しさん
19/02/22 22:46:15.97 Pvmgb/R80.net
アドバンスフィルタが抜けてた。
432:デフォルトの名無しさん
19/02/22 23:22:12.68 Ig/cWVtXM.net
>>422
インデックスを張ってSQLでJOIN
オンデマンドなトランザクションじゃなくて単発の巨大なバッチならHiveとか使うのもいい
433:デフォルトの名無しさん
19/02/23 01:23:52.97 CTQXI+x50.net
エラーがわかりにくいのがいちばんのストレス
そのほかにも可変長引数とかジェネリクスとかwithの糞文法とか短絡評価未搭載とかインターフェイスが歪んだ設計になるとか色々遅れすぎ
所詮底辺が一発ツールで使う言語
434:デフォルトの名無しさん
19/02/23 01:28:03.84 M/apCBqcx.net
短絡評価がないせいでネストを深くせざるをえないときがあるんだよね
435:デフォルトの名無しさん
19/02/23 04:42:29.90 GIBqdFBY0.net
短絡的なVBerは多いのにな
436:デフォルトの名無しさん
19/02/23 07:16:01.49 F2VDrfwR0.net
>>425
その辺は仕方ない
C#やRubyやってる人がJavaは糞だって言ってるのと大差ない
437:デフォルトの名無しさん
19/02/23 09:04:33.17 Cm202fZQ0.net
>>425
エラーチェックは本当にな
これでforが無いって言われる。本当にないのはもちろｎendif
さすがにもう迷う事は無いけど、
初心者の頃は散々苦しめられた
Sub foo()
For i = 1 To 10
If True Then
Next
End Sub
438:デフォルトの名無しさん
19/02/23 09:20:01.07 CvvsLWYy0.net
エラーってコードのエラーのことか
実行時のことかと思った
439:デフォルトの名無しさん
19/02/23 09:21:13.09 Cm202fZQ0.net
あぁ、実行時エラーの可能性もあるか
あれはactiveにしてないsheetのcellをselectした時はハマったけどそれ以外は特に・・・
440:デフォルトの名無しさん
19/02/23 09:21:56.77 CvvsLWYy0.net
唯一（？）の短絡評価である Select Case のリストはクソだと思いながらたまに使う
441:デフォルトの名無しさん
19/02/23 10:29:43.91 AFk0uxx90.net
短絡評価ってなんですか？
442:デフォルトの名無しさん
19/02/23 10:35:04.36 sW0ZRaO0a.net
>>433
お前がGoogleの採用選考を受けても学歴で足切りされて職務経歴の中身すら見てもらえないだろ？
結果が決まってるのに余計な評価をするのはリソースの無駄だからだ
そのように、評価が確定した時点で残りの評価を省いて結果を出す戦略を短絡評価という
443:デフォルトの名無しさん
19/02/23 10:49:47.77 CvvsLWYy0.net
>>434
GoogleはOr評価かもしれないよ
444:デフォルトの名無しさん
19/02/23 11:44:31.84 AFk0uxx90.net
>>434
お前バカだな
Googleは学歴より経歴重視だよ
445:デフォルトの名無しさん
19/02/23 12:14:20.39 yEreZVJRM.net
>>436
低学歴にも凄い経歴の奴はいるが、高学歴の中にはもっと沢山いるんやで
採用のための人的リソース最適化問題に対する戦略として、学歴フィルタが有効であることは十分に証明されている
446:デフォルトの名無しさん
19/02/23 13:07:59.71 AFk0uxx90.net
>>437
履歴書と職務経歴書って同封して送られてくるんだから同時に見ればいいじゃん
それとも30秒くらいの時間を惜しんで職務経歴書読まずにお祈りするの？
大した戦略だねw
447:デフォルトの名無しさん
19/02/23 15:21:22.50 yEreZVJRM.net
>>438
学歴なら人が見る必要すらないでしょ
書類選考のコストは一桁違うかと
448:デフォルトの名無しさん
19/02/23 16:24:43.18 UPmGtBeI0.net
>>438
たかが30秒と言う奴は10,000件あったら何時間かかるかを考えてからレスしろ
449:デフォルトの名無しさん
19/02/23 18:43:00.90 AFk0uxx90.net
Googleはそもそも学位が必要ない時点でお前らズレてんだよ
450:デフォルトの名無しさん
19/02/23 19:03:21.30 FI/m1MnA0.net
うんむ
451:デフォルトの名無しさん
19/02/23 19:33:38.12 to9UN42C0.net
ただの例にここまで突っ込むか?
452:デフォルトの名無しさん
19/02/23 20:37:03.99 CvvsLWYy0.net
短絡評価の例としてはわかりやすかった
453:デフォルトの名無しさん
19/02/23 22:13:21.58 CTQXI+x50.net
配列をインラインで生成する方法でもあればいいのに
454:デフォルトの名無しさん
19/02/23 23:20:45.04 E54ZDPfM0.net
>>400
ブレイクは >>401
Continueは、Nextの前に例えば CONTINUE:とラベル付けて、Goto CONTINUE で代替可。
これで何も過不足ないし、意図を読めないやつは（周りに）いないので、しょっちゅう使ってる。
455:デフォルトの名無しさん
19/02/24 04:42:51.56 ZjoVn9Sx0.net
goto使うと負けた気分になるけどネスト深くなるくらいなら使う
456:デフォルトの名無しさん
19/02/24 10:14:59.06 PMakJCH00.net
>>445
そういう関数を作れば解決する話では？