22/02/25 21:30:18.25 Wier9kYf0.net
関数式でif文書くだけでExcel詳しい人扱いされる国
201:デフォルトの名無しさん
22/02/25 22:44:14.64 DoxyywZF0.net
シートに写真をおいて，そこにマクロを登録するのですが，
クリックしている間は処理を継続させるようにするにはどうしたら良いでしょうか？
202:デフォルトの名無しさん
22/02/25 22:51:14.84 a/ksSb5+0.net
アルミ箔とリード線使うといいんじゃないか？
203:デフォルトの名無しさん
22/02/25 23:08:55.89 sygyzO5g0.net
イベント時で MouseOver とかか クリックし続けって無かったような MouseMove だっけ なんかその辺
204:デフォルトの名無しさん
22/02/25 23:33:04.48 O9IDWaUh0.net
Excelはマニアで済むけれど
Rubyなんて宗教だもんな
205:デフォルトの名無しさん
22/02/26 00:20:17.83 SY5M7+S/a.net
単なるあだ名だろw
206:デフォルトの名無しさん
22/02/26 03:20:22.62 T7kJgkW90.net
お前はカルメンか
207:デフォルトの名無しさん
22/02/26 07:13:12.65 S41FQOKr0.net
>>200
rubyが宗教って言われるのはrubyの製作者が熱心なクリスチャンだからだよ
まさかガチの狂信者が出てくるとは思わなかったが・・・ｗ
208:デフォルトの名無しさん
22/02/26 10:24:59.15 jtqt4mXJ0.net
>>199
ありがとうございます！
209:デフォルトの名無しさん
22/02/26 18:17:50.12 duMrqy+m0.net
Excelマニアとデータ分析マニアは違うみたいね
210:デフォルトの名無しさん
22/02/26 18:30:22.44 ZAxvZ+Mc0.net
>>205
「分析」が「統計」だとすると、
最終的に中間処理やアウトプットはExcelでなくてRなんかに行っちゃうかも。
Excelは統計関係の関数がアレだし。
211:デフォルトの名無しさん
22/02/26 19:53:05.77 duMrqy+m0.net
それでも昔からみんなExcelで無理してきた感
212:デフォルトの名無しさん
22/02/26 20:05:05.05 JqjjL3aFa.net
そこでPython
213:デフォルトの名無しさん
22/02/26 20:10:28.10 bGmpH7iw0.net
言語ならRやPython
パッケージならSPSSやSAS
214:デフォルトの名無しさん
22/02/26 20:19:26.32 S41FQOKr0.net
今思えば256列の60000行でよくやってこれたなと思う
215:デフォルトの名無しさん
22/02/26 20:43:17.30 joT9B4PU0.net
今でも256列や60,000行を超える処理ならDBMSにするわ
216:デフォルトの名無しさん
22/02/26 21:51:16.00 ZAxvZ+Mc0.net
ワークシートに読込ませず、
Power Queryの「接続」(他所からクエリー)だけにしておくと
行数最大：1,048,576行
列数最大：16,384列
まで扱えるみたいだけど、なんか別の入れ物は必要・・・
Accessを入れ物にしようとすると
テーブルはフィールド数最大255、
行数はファイル全体で2GBまでということか。
217:デフォルトの名無しさん
22/02/26 22:05:30.45 8Bo34rLG0.net
Pythonは途中から
数学で出てくる数式が分からないとキツくなるからちょっと保留してRust
218:デフォルトの名無しさん
22/02/26 22:10:39.56 duMrqy+m0.net
理系向きなのね？
219:デフォルトの名無しさん
22/02/26 22:16:53.94 ZAxvZ+Mc0.net
営業でも重回帰分析だの相関係数だのやってるところもあるから・・・
統計に使う数学は
もはや文系/理系に関係ない時代の模様
220:デフォルトの名無しさん
22/02/26 22:23:53.97 XZXEjFci0.net
ID:ZAxvZ+Mc0
また知ったか馬鹿か
221:デフォルトの名無しさん
22/02/26 22:31:17.36 e5W/1zqv0.net
平均とグラフが作れればうちの所は余裕だ…
222:デフォルトの名無しさん
22/02/26 22:35:46.73 ZAxvZ+Mc0.net
>>216
知ったか？
そうかね？
デカいデータを四則演算だけで済ませられるのは
財務会計くらいやん。
223:デフォルトの名無しさん
22/02/26 23:12:20.49 S41FQOKr0.net
ダントツで扱い易いのは偏差値かな
相対的な指標としては良く使う
224:デフォルトの名無しさん
22/02/26 23:12:53.14 S41FQOKr0.net
って営業は作らんやろ
さすがにそこは営業事務が作ってあげると思う
225:デフォルトの名無しさん
22/02/26 23:51:35.28 XZXEjFci0.net
>>218
言い訳すればするほど馬鹿さらけ出し
226:デフォルトの名無しさん
22/02/27 00:09:08.97 XQfZTF0E0.net
うちの営業はExcelの使い方すら知らん
Excelなんて使わないよなー、Wordの方が使うわって会話聞いて戦慄した
227:デフォルトの名無しさん
22/02/27 03:40:18.89 vE3gjDOr0.net
Executeexcel4macroでwindowsapiを使う場合、
戻りがオブジェクトだったらどうするの?
228:デフォルトの名無しさん
22/02/27 03:54:20.37 eD286Vb90.net
祈る
229:デフォルトの名無しさん
22/02/27 06:03:46.97 So6tXBwD0.net
>>223
どうするもこうするも、setして使うしかないじゃろ
以下だってsheets関数に引数1入れて、sheetオブジェクトが返ってきてるわけだし、同じです
Set ws = Sheets(1)
230:デフォルトの名無しさん
22/02/27 06:07:27.75 a0+qdDh70.net
>>223
おまえが作ったコードは見たくないな
231:デフォルトの名無しさん
22/02/27 06:10:51.70 So6tXBwD0.net
>>226
まぁまぁ・・・
setは最初はとっつきにくいので・・・
232:デフォルトの名無しさん
22/02/27 07:03:43.76 vE3gjDOr0.net
そうじゃなくて2JNとか指定するやつ。
オブジェクトが無くて絶望的なんだけど。
233:デフォルトの名無しさん
22/02/27 07:22:28.14 So6tXBwD0.net
>>228
あぁHWNDとかの奴か。ごめん、これは昔諦めた。他の人お願い。
やりたいことを先に書けば、それっぽいコード書いてくれる人がでてくるかも
234:デフォルトの名無しさん
22/02/27 11:02:51.91 F9ScTckVM.net
すみません。 半日つぶしてもできない。ダメ男です
なんとか協力してもらえませんか？
単純に「特定文字」のある行を削除したい（その行をその下の行の二行削除したい）
'まず、獲得ポイントを削除
Dim row_po As Long
row_po = Range("A14:D150").Find("[ 獲得ポイント ]").Row
Range(Rows(row_po), Rows(row_po + 1)).Delete
この書き方でとりあえず消えるのですが、[ 獲得ポイント ]が無かった時にエラーになり止まってしまいます。
で、スルーしてほしいのですが、なにをやってもスルーしてもらえません。
なにもしないことがこんなに難しいとは思いませんでした。
ほっといて欲しいだけなのに
どうするとアホでもわかりますかね？
235:デフォルトの名無しさん
22/02/27 11:09:42.41 amhd0I0YM.net
On Error Resume Nextを頭に入れるだけ
236:デフォルトの名無しさん
22/02/27 11:27:49.32 So6tXBwD0.net
>>230
Sub foo()
'先に見つけておく
Set p = Range("A14:D150").Find("獲得ポイント")
If Not (p Is Nothing) Then
'見つかったときの処理
row_po = p.Row
Rows(row_po & ":" & row_po + 1).Delete Shift:=xlUp
Else
'ここに見つからんかったときの処理
MsgBox "見つからんかった"
End If
End Sub
>231
それやると今度はrow_po でエラーが起きる可能性絶大
237:デフォルトの名無しさん
22/02/27 11:30:41.33 F9ScTckVM.net
>>231
おおお神よ
なぜあなたは神なのか
私は知恵熱っぽくまでなったのに
ちなみに検索するとエラーが全部キャンセルされるみたいなんですが、一応範囲を決めるとして
'まず、獲得ポイントを削除
On Error Resume Next
Dim row_po As Long
row_po = Range("A14:D150").Find("[ 獲得ポイント ]").Row
Range(Rows(row_po), Rows(row_po + 1)).Delete
On Error GoTo 0
で大丈夫な感じですか
動作はしました。（他の命令のエラーはちゃんと出るかな？と）
238:デフォルトの名無しさん
22/02/27 11:31:51.84 F9ScTckVM.net
>>232
あれ？ まじですか
ちょっとわからない
ちなみにMsgBox を出したくないんです。
そのままスルーしてほしいのです
239:デフォルトの名無しさん
22/02/27 11:40:19.04 So6tXBwD0.net
>>233
onerrorはなるだけ使わない方が良いと思う。俺は使わずに書いてるよ
>>233でもいいけど、なるだけ少ない方が後々の変更が楽になる
Sub foo()
'先に見つけておく
Set p = Range("A14:D150").Find("獲得ポイント")
If Not (p Is Nothing) Then
'見つかったときの処理
row_po = p.Row
Rows(row_po & ":" & row_po + 1).Delete Shift:=xlUp
End If
End Sub
240:デフォルトの名無しさん
22/02/27 11:42:39.74 amhd0I0YM.net
>>234
動いたんならまず一旦良しとしていいと思う
良いやり方が他にもあるから今後更に知識が付いたその時に改良していけば良いさ
241:デフォルトの名無しさん
22/02/27 11:53:19.82 F9ScTckVM.net
どうもありがとう
ただ、なんかわからないのだが、ほかの所がエラー吐いてしまっています。
ちょっと死にそうですが、悩んでみます。
多分、また来ますw
242:デフォルトの名無しさん
22/02/27 12:19:45.80 So6tXBwD0.net
どうぞ～がんばって～
243:デフォルトの名無しさん
22/02/27 14:32:58.22 F9ScTckVM.net
>>235
おま、これすごい
これにしてみたら他に出たエラーもピシっと消えた
On Error は動いたけど、イレギュラーなパターンだとなぜか他でエラーになった
これも試したらイレギュラーでもバッチり
つーか、俺が昨日の夜中からずううとやっていてもこんなの作れないありがとう
ホント君らすげーよ
これ作るのに寿命を迎えるレベルだわ
244:デフォルトの名無しさん
22/02/27 14:49:32.88 So6tXBwD0.net
>>239
笑った
影響が最小限になるように、ちゃんと書く方が楽なんだよ
onerrorとかですっ飛ばすと、後で余計に大変になる
245:デフォルトの名無しさん
22/02/27 17:57:55.85 JWEArlQD0.net
関数て約500種類弱あるけど、全部マスターする必要あるのかな？？
知人が、「Excelができる人材の定義は関数を全部マスターしているヤツの事だ！」とか言い出しているから
246:デフォルトの名無しさん
22/02/27 18:04:55.19 ZPGXXCGc0.net
VBAなら関数って自作が基本じゃないの？知らんけど
247:デフォルトの名無しさん
22/02/27 18:06:25.05 So6tXBwD0.net
>>241
＞関数て約500種類弱あるけど、全部マスターする必要あるのかな？？
ないよ
248:デフォルトの名無しさん
22/02/27 18:28:40.28 CUu39Gd8M.net
URLﾘﾝｸ(forest.watch.impress.co.jp)
249:デフォルトの名無しさん
22/02/27 18:34:38.78 a0+qdDh70.net
そら作れば無限に出来るわいな
250:デフォルトの名無しさん
22/02/27 18:39:37.90 tDC5899T0.net
>>241
EXCELが（凄く）できる人かEXCELが（初心者だけど）できる人では違うんじゃね
251:デフォルトの名無しさん
22/02/27 18:47:42.24 NFpbXNxz0.net
>>241
その知人に認めたくない人がいてExcelできる人で通ってるけど
関数はマスターしてないから言ってるだけ説
252:デフォルトの名無しさん
22/02/27 18:50:42.59 AJPusFVK0.net
知ってる関数の数なんて誇る奴がいたら失笑もんだわ
253:デフォルトの名無しさん
22/02/27 18:55:10.53 a0+qdDh70.net
標準の関数は少ないよな
俺はSUM CONCATENATE IFくらいしか覚えてない（ヘルプが必要）がその知人よりは多分出来ると思う
254:デフォルトの名無しさん
22/02/27 18:58:34.59 WwuIS/YcM.net
>>247
多分合ってるんだろうけどメッチャ理解し難いぐちゃぐちゃ関数式の様な日本語
255:デフォルトの名無しさん
22/02/27 19:18:55.52 Jrkr8SKF0.net
>>241
その知人が馬鹿なだけだぞ
256:デフォルトの名無しさん
22/02/27 19:50:11.71 So6tXBwD0.net
知人ぼろかすで草
257:デフォルトの名無しさん
22/02/27 19:54:03.00 XX45AiX5d.net
Excelにどんな機能がある＝関数
ってしかいえない人の戯言では
258:デフォルトの名無しさん
22/02/27 20:40:55.89 D3HmGJ+n0.net
>>241
If 友人が「Excelができる人材の定義は関数を全部マスターしているヤツの事だ！」と言った then
throw 友人 どこか
End If
以下正常処理
259:デフォルトの名無しさん
22/02/27 20:51:03.99 nGlHhzSe0.net
If 友人が Then
Yo! Yo! ﾁｪｹﾗYO!
Go To YoYo
End If
YoYo:
Oh! Oh! 皆で楽しくﾁｪｹﾗYo!
260:デフォルトの名無しさん
22/02/27 21:11:45.66 JrRqc3Naa.net
If 友人.Count > 0 Then
のチェックをしておかないと例外が発生しかねんぞ
261:デフォルトの名無しさん
22/02/27 21:18:59.32 f8g0XzTm0.net
>>254
そこはRaiseだろ
262:デフォルトの名無しさん
22/02/27 21:27:51.88 So6tXBwD0.net
?友人 is nothing
true
263:デフォルトの名無しさん
22/02/27 21:34:07.20 nGlHhzSe0.net
確認事項
・友人はいますか
・親友はいますか
・彼女はいますか
・配偶者はいますか
・家族はいますか
・老後の心配はありませんか
264:デフォルトの名無しさん
22/02/27 21:42:34.72 NFpbXNxz0.net
>>250
知人A, 知人が認めたくない人B
Bは皆にできる人って思われてる
Aはそれが気に食わない
だから関数をマスターしていない事を理由に言ってるだけ説
ごめん頼んだ
265:デフォルトの名無しさん
22/02/27 21:46:20.69 pkdB1ort0.net
人生の大抵の困難はon erorr resume nextで解決可能である
266:デフォルトの名無しさん
22/02/27 21:52:09.54 nGlHhzSe0.net
On Error Shutdown And Reboot With Next Life
267:デフォルトの名無しさん
22/02/27 22:13:39.17 amhd0I0YM.net
>>262
例外処理が抜けてる
If You = カーズ Then
Do Until 地球からの距離 = 0
地球からの距離 = 地球からの距離 + 1
Loop
Elseif You = ディアブロ Then
死ぬ前:
死にそう
Goto:死ぬ前
死んだ
End if
268:デフォルトの名無しさん
22/02/27 22:37:19.46 oWne56vR0.net
Dim tmp As String
tmp = "どんまい"
MsgBox tmp
269:デフォルトの名無しさん
22/02/27 23:16:15.15 JWEArlQD0.net
関数そこまで必要かな？
マクロできるなら全部マクロでやれば良いじゃんね
270:デフォルトの名無しさん
22/02/27 23:42:12.81 Jrkr8SKF0.net
>>265
類は友を呼ぶ
お前もどうしようもない馬鹿だ
271:デフォルトの名無しさん
22/02/28 03:06:37.96 kykjWS4h0.net
いやだなぁ～先輩、冗談すよ冗談
職場になんでもVBA、VBAといってマジでVBAで片付けていた偉い人がいたもんでw
272:デフォルトの名無しさん
22/02/28 08:14:19.86 9UyyIrQV0.net
知人が、偉い人が、全て他人の話
ほんとうは・・・？
273:デフォルトの名無しさん
22/02/28 08:33:28.33 o5ZgQ4pV0.net
>>268
これ以上はやめて差し上げろ
274:デフォルトの名無しさん
22/02/28 18:59:30.44 h1aqAX/2M.net
すいません。 こういうのはできますか？
セルの中に改行を見つけてから止める（修正）するVBAをつくりました。
改行が見つかったら、マクロを止めて手修正をして又マクロを走らせてを繰り返します。
ここで、問題なのが改行ならいいのですが、文字が多くて折り返しになっているのがたまにあります。
それも見つけたいのですが、知恵がみつかりません。
折り返し判定みたいなのはあまりなさそうです。 それとも行の高さを判定できるなら高さ2２以上とか方法があるのかな？と
すいませんが、こんなのは？ってありましたら、お願いします。
Sub test()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
Dim row_shou As Long
row_shou = Range("A14:D150").Find("小 計").Row
Dim Target As Range
Set Target = Range(Rows(14), Rows(row_shou - 1)).Find(What:=vbLf)
If Not Target Is Nothing Then
End
End If
Next Ws
End Sub
275:デフォルトの名無しさん
22/02/28 19:29:28.20 o5ZgQ4pV0.net
>>270
一行以外を全て検出したいなら、行の高さを検出するだけで終わると思う
改行は調べなくてもいいような
Sub foo()
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
基本の行の高さ = Cells(1, 1).RowHeight
For i = 1 To 最終行
If Cells(i, 1).RowHeight <> 基本の行の高さ Then
MsgBox i & "行目の高さがおかしいので、終了します。修正お願いします"
Exit Sub
End If
Next
End Sub
276:デフォルトの名無しさん
22/02/28 20:20:02.79 h1aqAX/2M.net
>>271
あ、あ、ありがとう
正直解読するのに一時間くらいかかって自分のに書き直せました。
一応動いていけそうです！ 高さチェックでいけますね
こんなチンケな感じになりました。
神々に感謝します。
Sub test()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
Dim row_shou As Long
row_shou = Range("A14:D150").Find("小 計").Row
'行の高さ15以上を検索
h = 15
For i = 14 To row_shou - 1
If Cells(i, 1).RowHeight > h Then
Exit Sub
End If
Next
Next Ws
End Sub
277:デフォルトの名無しさん
22/02/28 21:56:13.38 1x7bPtTEd.net
ぶっちゃけFindは滅多やたら使わん方が良いけどまあ良かったじゃん
278:デフォルトの名無しさん
22/03/01 18:55:07.17 gFYHZAxx0.net
なんでもスレだと更新が少なく答えがもらえなさそうなので、こちらにも書き込んですみません。
Excel VBAで質問です。
現在開いているシートにマクロボタンを作り、実行させると…
現在シートのB列に検索値
別のシート(ABC)のB列の5行目～400行目までを検索して一致したセル番号が欲しいのですが
For cnt=1 To 10 samsu(cnt)=WorksheetFunction.Match(Cells(cnt,1),Worksheets(”ABC”).Range(Cells(5,1),Cells(400,1)),0)
…
next
このMatch関数の正しい書き方を教えてもらいたいのですが。
279:デフォルトの名無しさん
22/03/01 22:29:13.54 Nv0Sds8Bd.net
ちゃんと見ていないが、とりあえず.cellsの前にも全部ワークシートを指定しよう
280:デフォルトの名無しさん
22/03/02 07:23:43.88 bacADaAbd.net
どっちでも好きな方をどうぞ
samsu(cnt) = WorksheetFunction.Match(Cells(cnt, 1), Worksheets("ABC").Range(Worksheets("ABC").Cells(5, 2), Worksheets("ABC").Cells(400, 2)), 0)
samsu(cnt) = WorksheetFunction.Match(Cells(cnt, 1), Worksheets("ABC").Range("B5:B400"), 0)
281:デフォルトの名無しさん
22/03/02 18:02:30.94 Dpz5qFA70.net
質問です
社員毎に月々の残業時間の合計プログラムを作っています
合計した数値に対して、30分で切り上げ切り捨てしています（会社の残業規定に則り）
（例えば、月4:10の残業であれば4:00として出力、月4:35であるば5:00として出力）
合計した数値に対してFloor関数を使って切り上げ切り捨てをしているのですが、
月23:30の残業をした社員がいた場合、出力された値が0になってしまいます
表示形式を[h]にしてみましたが、結果は変わりません
デバックでFloor関数の中の変数の値を確認しましたら、23:30のシリアル値はきちんと入っています
そうするとFloor関数で切り上げしているのが原因なのでしょうか？
どなたかご教示いただきたいです…
282:デフォルトの名無しさん
22/03/02 18:09:09.52 Dpz5qFA70.net
簡潔ですが、以下のようなコードで書いています
.cells（1,1）.NumberFormatLocal = "[h]"
a = "23:30"
.cells（1,1） = Application.Floor（a + TimeValue（"0:30"）,TimeValue（"1:00"））
283:デフォルトの名無しさん
22/03/02 18:13:22.97 ydQ1ic0a0.net
>>277
mroundで1:00単位でいいんじゃない
URLﾘﾝｸ(i.imgur.com)
>>278
24と表示されたよ。そのままだとエラーになるので、2行目はtimevalueにいれた
URLﾘﾝｸ(i.imgur.com)
284:デフォルトの名無しさん
22/03/02 18:43:03.81 Dpz5qFA70.net
>>279
MRoundにしてみたらできました！
ありがとうございます！
TimeValueについて書き損じ失礼しました
本来は"23:30"ではなく変数が入っていて、変数には23:30のシリアル値が入っています
なぜ0になってしまうのか謎ですが解決してよかったです
285:デフォルトの名無しさん
22/03/02 19:19:22.93 n7HPCvTSa.net
23時の次は24時ではなく0時だからだわな
286:デフォルトの名無しさん
22/03/02 19:25:50.55 ydQ1ic0a0.net
>>281
いや、書式設定が[h]なら24と表示されるはず
287:デフォルトの名無しさん
22/03/03 07:42:09.33 LvEeINitr.net
>>276
無事に動きました。
ありがとうございました。
288:デフォルトの名無しさん
22/03/03 13:47:21.71 KJVc8U50M.net
質問をさせていただきます。 理解ができないことがあります。
まず、加工BOOK と マクロ保存BOOK の二種類を使用しています。
加工BOOKにある複数のシートを連続して加工するときにネット情報で下記書き方を拾いました。
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
～色々な動作～
Next Ws
この「色々な動作」の中で
ThisWorkbook.Activate ’マクロ保存BOOKをアクティブ（シート指定セル指定してコピーを取ってます）
その後、Ws.Activate と書き 上記保存した文字を指定したセルにペースト
これは問題なくペーストできています。
ただ、なぜうまくペーストできるのか理解ができていません。
理由はではこれをシート毎に連続ではなく一枚だけペーストにした場合
最初の For Each Ws In Worksheets と Next Ws を削除すればいいか？と思いやってみたのですが、エラーしか出ません。
てっきりWSという関数に加工BOOKの場所データが格納されていてWs.Activateを書けば加工BOOKに戻ってきていると思ったのですが、エラーとなると違っていたのか？と理解ができなくなりました。
加工BOOKのBOOK名とかが書ければいいのでしょう�
289:ｪ、BOOK名（ファイル名）は不特定でやりたい。他人に渡すので環境が読めない。 最初にアクティブになっていたブックシート情報を関数に入れておけばよいと想像しているのですが、どうすればいいかとかわかっていません。 グダグダな質問でわかりにくいと思いますが、二つのＢＯＯＫを行き来して片方はマクロを作動させた時にアクティブだったシートって条件にしたいのです。
290:デフォルトの名無しさん
22/03/03 14:00:06.45 rCo9Fm7Z0.net
AvtIVeやらしてる時点で作者も大した事なさそう
291:デフォルトの名無しさん
22/03/03 14:13:34.66 9O05M6/x0.net
>>284
For Each Ws In Worksheets
Ws.Activate
～色々な動作～
Next Ws
↓
sheets("ワークシート名").Activate
WSをWorksheet("ワークシート名")
に変える
あと、Ws.Activateはなるべくやめたほうがいい
PCが重くてアクティブなシートやブックが変わると、大惨事になる可能性がある
本当にやるならopenなどで対象ファイルを開き、戻り値をsetするのが理想
>>285
？？
292:デフォルトの名無しさん
22/03/03 14:19:57.38 KJVc8U50M.net
>>286
ありがとうございます。
この”ワークシート名”が分からなくても動かしたいのです。
つまり、hogehoge.xlsx だったり zukozuko.xlsxだったりするので
最初にアクティブだったファイル（シート）に戻ってくる汎用性がほしい。
293:デフォルトの名無しさん
22/03/03 14:22:48.58 9O05M6/x0.net
>>287
あぁ、じゃあ
ActiveSheet
でいいよ
ActiveSheet.Cells(1, 1) = 1
みたいな感じで使える
294:デフォルトの名無しさん
22/03/03 14:24:24.97 9O05M6/x0.net
そういやブックを指定する時はopenでいいけど、
シート名が不定な時、シートを指定する方法ってないのか
一旦開いてinputboxにインデックスかシート名入れるぐらいしかないのだろうか
295:デフォルトの名無しさん
22/03/03 14:32:22.98 jSBR5AQpd.net
まずワークシートもワークブックもわかってない事から勉強したほうがよいのではないか
それとよくわからず何となく動いたものを他人に渡して大丈夫なのかと不安になるわ
296:デフォルトの名無しさん
22/03/03 14:43:43.44 9O05M6/x0.net
あんまり大丈夫じゃないけど、そこまで言うのもねぇ
297:デフォルトの名無しさん
22/03/03 15:56:08.71 KJVc8U50M.net
心配かけます
とりあえず、データは何回でもダウンロードできるのでいくら壊れても大丈夫です。
内輪の事務ですし
やはり、どんなファイル名（シート名）でもＯＫとなると難しいですかね
当然フルパスみたいに書くのが良いのはわかります。
298:デフォルトの名無しさん
22/03/03 16:16:41.04 jSBR5AQpd.net
加工されるワークブックにはワークシートは複数なの？それとも1つなの？
仮に先頭にあるワークシートであれば
Set Ws = Worksheets(1)
のような指定をすればいいだけだぞ
ワークシート名が決まった名前であれば
Set Ws = Worksheets("○○")
のような指定でもOK
どのシートが加工していいのかを判断できるなら当初のFor文で回しながらシートを特定してもいいかと思うが
ある程度のルールが決まった質問じゃないと漠然としすぎて回答する側もとまどうと思うぞ
299:デフォルトの名無しさん
22/03/03 17:11:57.48 AMDtBRAN0.net
>>284
>てっきりWSという関数に加工BOOKの場所データが格納されていて
Wsは関数じゃなくて変数
その変数に値をセットしていたのがFor文
>最初にアクティブになっていたブックシート情報を関数に入れておけばよいと想像しているのですが、どうすればいいかとかわかっていません。
Set Ws=ActiveSheet
かな。試してないけど
とりあえずForの代わりにこれで動くんじゃね
あまりにも基本がわかってない感があるなぁ
300:デフォルトの名無しさん
22/03/03 17:21:03.63 Vn+IwdQAd.net
コピペしかしない人なんでしょ
301:デフォルトの名無しさん
22/03/03 18:46:16.06 KJVc8U50M.net
>>294
はいすいません
関数は書き間違いです。変数ですよねｗ
ちょっと、脳が
Set Ws=ActiveSheet
で辻褄があいました。
最初の For Nextで全シートした場合も１シートだけやった場合もエラーが出ずに自分の脳みそも合致がいきました。
これを書いていないのに Forで動かしたときに問題なかったので？？？状態になっておりました。
ありがとうございます。
302:デフォルトの名無しさん
22/03/03 19:43:39.19 5R1CCyAZd.net
何ていうかVBAの言語より先にちゃんとした構文の日本語を学ぶ事をおすすめします
303:デフォルトの名無しさん
22/03/03 21:25:56.68 pVJYfbHP0.net
いやでも回答者さんの言うとおりだと思う。理屈や仕組み分からないまま使ったりしていたらいつかは大事故に繋がる。
過去にそういう事が身近であった。
304:デフォルトの名無しさん
22/03/03 21:46:06.24 jSBR5AQpd.net
何がきっかけで作ることになったか知らないけど
どうして動いてるかもわからずに作って少ししておかしいことに気づいてもすぐ直せなかったら評価悪くなると思うんだよね
自分の周りの出来事でなければ知ったことではないんだけどその辺は踏まえて作った方がいいよ
305:デフォルトの名無しさん
22/03/03 22:33:01.31 yer8R1MmM.net
ID:KJVc8U50M の言い回しが技術サイトでありがちな英語かロシア語の機械翻訳文に似てて草
306:デフォルトの名無しさん
22/03/05 11:35:29.63 lcqTf7BDd.net
！！Private Sub Worksheet_Change（ByVal Target As Range）
Dim i As Long
For i ＝1 to 5
cells（i，4）＝DateValue（Cells（i，1）&" 年"&" 月"&Cells（i，2）&Cells（i，3）&"日"）
Next i
End Sub
上記記述して実際にｼーﾄに数字を入力すると型が一致しませんとｴﾗーになってしまいます
どうしていいのかわからずご教授していただければと
素人みたいな質問すいません
307:デフォルトの名無しさん
22/03/05 12:01:15.53 tG3yIb4ia.net
月の位置がおかしいから？w
308:デフォルトの名無しさん
22/03/05 12:21:43.22 RMBcHsBod.net
こういうひとってデバッグの仕方とか知らないのかね？
Debug.Print(Cells（i，1）&" 年"&" 月"&Cells（i，2）&Cells（i，3）&"日")
のようなことをすればどんな値が指定されているかわかるんだからみればいいのに
＞素人みたいな質問すいません
素人でもこんな質問するかなという内容
309:デフォルトの名無しさん
22/03/05 12:21:43.61 6K6JgexZM.net
>>301
とりあえず止まったときにイミディエイトウィンドウで
Debug.Print Cells（i，1）&" 年"&" 月"&Cells（i，2）&Cells（i，3）&"日"
ってやってみな
310:デフォルトの名無しさん
22/03/05 12:22:36.15 6K6JgexZM.net
被ったわ…
311:デフォルトの名無しさん
22/03/05 12:39:47.23 /JtJWIIA0.net
そもそもVBAにする必要あるのかこれ？
312:デフォルトの名無しさん
22/03/05 12:51:19.12 lcqTf7BDd.net
>>301
Private Sub Worksheet_Change（ByVal Target As Range）
Dim i As Long
For i ＝1 to 5
cells（i，4）＝DateValue（Cells（i，1）&" 年"& Cells（i，2）&"月"&Cells（i，3）&"日"）
Next i
End Sub
すいません!
月の位置が違いました
上記の記述でも型が一致しませんとエラーになってしまいます
313:デフォルトの名無しさん
22/03/05 13:08:57.00 GCjMsc400.net
=Date(A2, B2, ... え？それ以上はやめとけって？ はーい
314:デフォルトの名無しさん
22/03/05 13:15:31.27 RMBcHsBod.net
その書き方だと少なくとも変更された際のイベントでDateValueを正しく動作させるには
1から5行目までの1から3列目までにそれぞれ年月日の値が保証されないと型が一致しないとでるけど
そういう状態が担保できてるの？
1行目の入力中でもその書き方だと2行目以降が空欄だと単なる「年月日」という値でDateValue実行してしまいますよ
315:デフォルトの名無しさん
22/03/05 13:43:03.37 9H2YJJUDd.net
セルの中身が実はシリアル値でしたに一票
316:デフォルトの名無しさん
22/03/05 14:24:04.55 lcqTf7BDd.net
>>309
おっしゃるとおりだと
なんとなくわかっていたのですが
回避方法ありますか？
317:デフォルトの名無しさん
22/03/05 14:46:06.75 RMBcHsBod.net
>>311
いずれかのセルが空欄や数字以外だったら4列目に空を設定
それ以外の場合のみDateValueとかでいいんじゃないの
ただ結果的に月日が不正な値(99月など)ならどうするとかそういうのも含めて自分で考えないとこの先やっていけないのでは
318:デフォルトの名無しさん
22/03/05 14:57:28.77 lcqTf7BDd.net
>>313
なるほど
参考になります
ググって見ます！
ありがとうございます！
319:デフォルトの名無しさん
22/03/08 11:28:41.82 VC
320:o1qiqP0.net
321:デフォルトの名無しさん
22/03/08 11:33:03.86 e+QnjkryM.net
If Range("A1").Fomula = "" Then
322:デフォルトの名無しさん
22/03/08 11:33:45.29 e+QnjkryM.net
あ、嘘。ごめん。間違えた。忘れて。
323:デフォルトの名無しさん
22/03/08 11:39:20.91 VCo1qiqP0.net
>>315
ありがとうございます
Formulaを設定すると関数をそのまま取得してしまいました
なので空白の時の分岐ができませんでした
324:デフォルトの名無しさん
22/03/08 11:41:01.62 VCo1qiqP0.net
大丈夫です！
ありがとうございますm(_ _)m
ご存じの方いらっしゃいましたらよろしくお願いします
325:デフォルトの名無しさん
22/03/08 12:20:48.22 vjLwCjzB0.net
普通にセルのValueなりTextなりを見ればいいんじゃないの？
326:デフォルトの名無しさん
22/03/08 12:37:16.79 YxxaCHXb0.net
>>318
If Range("A1").value = "" Then
>>319
その普通を学習前の段階ぽい
327:デフォルトの名無しさん
22/03/08 13:18:52.50 +eE97yRCa.net
空なのか空白なのか
328:デフォルトの名無しさん
22/03/08 13:28:01.68 ez1E04nZd.net
Trim(.Text)じゃないか？
>>321
数式が入ってたらEmptyにはならん
329:デフォルトの名無しさん
22/03/08 14:12:30.12 vjLwCjzB0.net
Empty と空文字列と空白は違うって話かと
330:デフォルトの名無しさん
22/03/08 19:12:34.37 IBMOg+Z/0.net
前任者のシートで0を書式で空白にしてるのには参ったね
textプロパティを覚えるきっかけにはなったけど
331:デフォルトの名無しさん
22/03/08 19:25:23.65 fxoU/Jgx0.net
文字列枠だけど 書式は #
よくやるw
332:デフォルトの名無しさん
22/03/11 06:05:40.07 a7Y3SJRd0.net
すみません、質問させてください。
VBAで自作したクラスのメソッドやプロパティの一覧を列挙するにはどうすれば宜しいでしょうか？
どのような自作したクラスでも使える汎用的なものを作成したいです。
333:デフォルトの名無しさん
22/03/11 07:32:33.79 mh6S44cma.net
すみません。
特定のセル内に有るリンクを抽出する方法は有りますか？
334:デフォルトの名無しさん
22/03/11 08:32:32.67 vHBnGMWOd.net
>>326
VBAでは無理
ソースをエクスポートしてテキストファイルを処理するぐらいしかないと思う
VB.netならGetMembersってのがあるんだけど
335:デフォルトの名無しさん
22/03/11 08:33:31.79 vHBnGMWOd.net
>>327
Hyperlink
336:デフォルトの名無しさん
22/03/12 01:24:13.27 7NvJtuE10.net
>>328
なるほど、VBAでは無理なんですね。
以前、VB.Netの命令をVBAで走らせることが出来る場合があることをこのスレで聞いたことがあるような気がしましたので、
そちらとAPIで実装出来ないかを模索してみます。ありがとうございました。
337:デフォルトの名無しさん
22/03/12 03:38:02.55 pgjQzAZm0.net
オブジェクトブラウザがやってるけど、どうやってるんだろうな
>>328
エクスポートとかしなくても、VBEオブジェクト使えばコードのスキャンはできる
プロシジャ名の列挙だけでよければここの実行結果３がそうじゃね
URLﾘﾝｸ(excelwork.info)
338:デフォルトの名無しさん
22/03/12 08:17:43.49 7NvJtuE10.net
>>331
後出しになってしまい申し訳ありません。
実は、実際にやりたかったことは
自作したEntityクラスのプロパティを
片っ端からGetして配列に入れ込み、
それをシートに展開すると言うことでした。
名前の列挙さえ取得できれば
後はリフレクションで呼び出せば可能と
考えていました。
おかげで実装の目処がつきました。
ありがとうございます。
339:デフォルトの名無しさん
22/03/13 02:21:31.96 YEneWsYd0.net
どういう状況で使うんだろう
自分で作ったのに数が多すぎて覚えてないとか?
340:デフォルトの名無しさん
22/03/13 02:43:05.91 B1jPEMw70.net
素人ですが質問させて下さい。
画像のような、1つのシートに20行単位の表で、連番と日付を上の表から取得するようなブックを作成しています。
表の順番を変えても、常に1つ上の表の番号+1、同じ日付としたいため、直接セルを参照せずこのような関数を使用しています。
式は、↓としています。
=INDIRECT(ADDRESS(ROW()-20,COLUMN()))
起動中は問題なく動作するのですが、ブックを閉じて再起動すると、起動時に必ず落ちてしまいます。(手動計算にすると開ける)
コピーを作成して、上記の式の部分だけ消すと問題なく起動します。
この場合、何が悪いのでしょうか。或いは代替手段があれば教えて頂けると助かります。
URLﾘﾝｸ(i.imgur.com)
341:デフォルトの名無しさん
22/03/13 02:49:45.62 B1jPEMw70.net
普段VBAを触っているためVBAスレで質問してしまいました。
スレ違いであればスルーして下さい。
342:デフォルトの名無しさん
22/03/13 03:12:17.58 JfJkUCau0.net
>>335
多分Excel板なら親切な人が回答してくれすよ
343:デフォルトの名無しさん
22/03/13 05:18:44.42 JG4Baegn0.net
>>336
回答者は被ってるからどっちでもいいよ
344:デフォルトの名無しさん
22/03/13 11:02:15.36 B1jPEMw70.net
レスありがとうございます。
こいつ自体難のあるものなんですね。
offsetで狙った動きができました。ありがとうございます。
345:デフォルトの名無しさん
22/03/13 14:32:38.85 UXs3pJFgd.net
普通に「＝R[-20]C+1」じゃダメなのかね（R1C1形式
346:デフォルトの名無しさん
22/03/14 05:49:07.49 3S2IFgLOM.net
>>339
これだと移動させたとき式の値も変動してしまいました。
347:デフォルトの名無しさん
22/03/14 07:57:10.59 727wXMaZd.net
>>340
失礼、移動後も保証しないとだめだからこれではだめですね
348:デフォルトの名無しさん
22/03/14 17:48:06.77 yx1wpkrnM.net
>>334ですが、当初安定していたもののまた同じ現象になりました。
端末を変えるなり新しいブックにして作り直したり色々試すも改善せず、T列の参照だけがこの現象を引き起こしている(参照先が文字列だと発生しないが数値は発生)ことが分かったため他の列を経由して参照する形で概ね落ち着きました。
エクセル自体のバグなのか分かりませんが同種の状況の方の参考まで。
349:デフォルトの名無しさん
22/03/15 13:19:58.65 cMhtDWKy0.net
>>342
多分ブックが壊れている
新しいブックを作り、1シートずつコピーすれば直る可能性がある
その状態で使い続けると完全に壊れて、開けなくなる可能性があると思う
350:デフォルトの名無しさん
22/03/16 04:32:35.42 3pfuXf5y0.net
ブックがブックわれている
351:デフォルトの名無しさん
22/03/16 07:48:40.55 /fL7/vIcd.net
セル「 ちくしょーちくしょー！ 完全体に…… 完全体にさえなればー！ 」
352:デフォルトの名無しさん
22/03/16 07:55:37.71 tVfnjSl40.net
エクセル「私の行数は 1048576です」
353:デフォルトの名無しさん
22/03/16 10:32:53.21 EfOqqAli0.net
質問させて下さい。
EXCELの自ブックのシートにVBAにてADO接続でSQLを投げてRecordSetに値を取得していますが、
あまりに遅いのでINDEXを対象のシートに設定したいのですが、可能でしょうか？
可能であれば実装方法を教えて頂けるとありがたいです。
CREATE INDEXのSQLを投げると
「この操作は、このタイプのオブジェクトには実行できません。」というエラーが返って来ます。
EXCEL VBA上でのADO接続だったのでこちらのスレで質問させて頂きました。
もしスレ違いで有れば誘導して頂けるとありがたいです。
354:デフォルトの名無しさん
22/03/16 20:05:55.54 E9jeVJ9d0.net
エクセルの開発、挿入、フォームコントロールでリストボックスを作って操作するのですが
sheet.ListBoxes("List").AddItem "A" だったかな？で追加できるんですが
sheet.ListBoxes("List").Clear で全て消去したくてもエラーになります。
sheet.ListBoxes("List").RemoveItem 1 で消せるので .ListCountが0になるまで
消していくとやりたいことはできるのですがClearのような1行で消す方法が知りたいです。
あと選択している内容を取得したいのですが.Valueだと内容ではなくインデックス番号？が返ってきます
選択している内容を文字列で取得できないのでしょうか。検索してもユーザーフォームのページばかり
出てきてわかりません。どなたか知っていたら教えてください。
355:デフォルトの名無しさん
22/03/17 04:53:04.06 2UkhCjLQ0.net
>>348
全消しはRemoveAllItemsかな？
内容の取得はItem(インデックス番号)かな？
マニュアル見てそれっぽい単語を見つけただけだから違ってるかも
356:デフォルトの名無しさん
22/03/17 05:57:03.26 RdQIwXxN0.net
最近のExcelってヘルプもついていないの？
357:デフォルトの名無しさん
22/03/17 06:07:57.47 UlLj9IGM0.net
ネットがあるからねぇ
358:デフォルトの名無しさん
22/03/17 11:46:40.93 mL7eqXCg0.net
それでなくなったのか、知らんかった
359:デフォルトの名無しさん
22/03/17 12:31:38.84 9VjLQzax0.net
F1押すだけでヘルプ出てくるの便利だったのにね
360:デフォルトの名無しさん
22/03/17 12:35:28.43 ++LfIShu0.net
F1ヘルプ起動大嫌い
起動遅いから誤爆した時ストレス
361:デフォルトの名無しさん
22/03/17 12:48:39.33 Rh0i5fdo0.net
まあ市販ソフトとかゲームとかおしゃんな小物とかもネット参照多くなったしね
362:デフォルトの名無しさん
22/03/17 15:59:04.45 2UkhCjLQ0.net
2010のあたりでヘルプがオンラインになって、旧バージョンのヘルプファイルを無理矢理インストールして使ってた記憶がある
あれってどのバージョンの話だっけ
363:デフォルトの名無しさん
22/03/17 16:00:36.21 2UkhCjLQ0.net
>>348
VBAから操作するんなら、たぶんフォームコントロールよりActiveXコントロールのが簡単だと思うよ
MSは推奨してないみたいだけど
364:デフォルトの名無しさん
22/03/17 18:51:23.33 NNC6CjWiM.net
やたら重かった無能なイルカよりはマシだろう
365:デフォルトの名無しさん
22/03/17 19:51:28.31 hQEb7r5k0.net
お前を消す方法なつい
366:デフォルトの名無しさん
22/03/17 20:00:50.39 +xJma3Ej0.net
>>348
URLﾘﾝｸ(www.sejuku.net) ここ読んでがんがれ
367:デフォルトの名無しさん
22/03/17 22:15:36.31 UYkpbTrn0.net
>>349
全消しはRemoveAllItemsでできました。Itmeで内容はとれずエラーになりました。
マニュアルはマイクロソフトのExcel VBA リファレンスかな？そこで検索かけてもよくわからないのであきらめます。
Valueでもやりたいことはできそうなので
>>357
ActiveXでのやり方はわかるんですけどできればActiveXより新しいの使いたいんですよね。
別件でActiveXが大量に使われているブックが物凄く重くなっているのを見たことあってあまり使いたくない。てのもあります。
>>360
ユーザーフォームのことじゃないです。
368:デフォルトの名無しさん
22/03/18 09:26:17.20 yuFF0zGe0.net
じゃあこれ
URLﾘﾝｸ(officetanaka.net)
369:デフォルトの名無しさん
22/03/18 10:46:32.32 GvFVeYD4d.net
>>361
List(参照したい位置)でいけるんじゃないか
参照したい位置はListIndexでとれるかと
複数選択ならSelected(位置)でTrueになるところかな
370:デフォルトの名無しさん
22/03/18 19:57:18.31 hw4UnylL0.net
シート上で任意に選択した範囲を set myRange = 選択範囲 のように代入した後、
For Each buf In myRange.Value
処理A
Next
という処理をしようとすると、
・選択範囲が複数ある場合：正常に動作する
・選択範囲が1つの場合：「型が一致しません」のエラーになる
「For each ○ IN ●」の●には複数セルが指定されていないといけないということでしょうか？
371:デフォルトの名無しさん
22/03/18 23:38:51.84 q1DQLrxB0.net
>>364
そうです
set buf as range
For Each buf In myRange
debug.print buf.value
Next
こんな感じじゃだめですか？
372:デフォルトの名無しさん
22/03/18 23:53:01.28 q1DQLrxB0.net
おっと間違えた
dim buf as range
For Each buf In myRange
debug.print buf.value
Next
373:デフォルトの名無しさん
22/03/19 00:50:36.99 OOddD3UI0.net
myRange.Value の Value がおかしかったのか。
ありがとうございます。
374:デフォルトの名無しさん
22/03/19 02:03:56.48 yYNieGSo0.net
>>364
myRangeの何をbufとしてとりたいの？各セル、連続した複数のセル、myRange全体によつて正しいこーどは異なる
375:364
22/03/19 10:45:02.08 OOddD3UI0.net
>368
任意のドラッグ操作で選択したセルと同じ行のL列(左から12番目)に入っている文字列を結合して表示させようとしました。
Dim cnt As Integer
Dim myRange As Range
Dim buf As Range
Dim target As String
cnt = Selection.Rows.Count
Set myRange = Range(Cells(Selection.Rows(1).Row, 12), Cells(Selection.Rows(1).Row + cnt - 1, 12))
For Each buf In myRange
target = target & buf & vbCrLf
Next
Debug.Print target
376:デフォルトの名無しさん
22/03/19 10:48:26.22 kJy21FG50.net
>>347で質問させて頂いたものです。
色々調べましたがシートにINDEXを設定するのは実現可能か分からなかったのと、
出来ない場合、代替案を考えたいのですが、
ひとつのシートに20万行、100列の一覧が有ったとして
そのとき、ひとつの項目(項目1とします)はある値とイコール、更に別の項目(項目2とします)は
項目1で抽出したレコードの内の最大値を求めたいです。
どのような方法が一番速く処理出来ると思いますか？
377:364
22/03/19 10:48:43.76 OOddD3UI0.net
>>369は正常に動作したコードです。
最初は下記のようなコードでエラーとなっていました。
Dim buf As Variant ←Variant型にしていた。
For Each buf In myRange.Value ←.Valueを付けていた。
target = target & buf & vbCrLf
Next
Debug.Print target
378:デフォルトの名無しさん
22/03/19 10:51:21.24 CvJNM5+IM.net
範囲検索するのにfindとworksheetfunction.matchとではどちらが速いですか？
379:デフォルトの名無しさん
22/03/19 10:52:04.86 CvJNM5+IM.net
ちなみに完全一致の場合です
380:デフォルトの名無しさん
22/03/19 11:51:46.09 /t3SgnSXa.net
自分で試せばいいだろw
381:デフォルトの名無しさん
22/03/19 11:51:57.89 i9OMIEsk0.net
試したほうが早いよ
382:デフォルトの名無しさん
22/03/19 12:52:21.15 UXt2lmR80.net
は？試してたらこんな所で聞きませんけど？
383:デフォルトの名無しさん
22/03/19 12:52:58.71 4DGoWoBi0.net
>>369
＞cnt = Selection.Rows.Count
＞Set myRange = Range(Cells(Selection.Rows(1).Row, 12), Cells(Selection.Rows(1).Row + cnt - 1, 12))
Set myRange = Cells(Selection.Row, "L").Resize(Selection.Rows.Count)
もっと簡単に書けそうな気もするがこんなもんかな
384:デフォルトの名無しさん
22/03/19 13:47:10.61 zEPprvQva.net
>>376
試してなくても、こんなところで聞かないでくださいw
385:デフォルトの名無しさん
22/03/19 14:44:42.82 qNoriQBK0.net
>>377
ちゅんちゅんさん推奨の書き方か
resize真似して使ってたんだけど間違えやすかった
386:デフォルトの名無しさん
22/03/19 15:12:32.83 OOddD3UI0.net
>>377
ありがとうございます。.Resizeを使うとスマートに書けるんですね。使ってみます。
387:デフォルトの名無しさん
22/03/19 15:57:19.25 rhR/rlzyd.net
autofilterで表示されたものだけで、列をautofitすることは出来ますか？
388:デフォルトの名無しさん
22/03/19 16:36:01.13 4DGoWoBi0.net
SpecialCells(xlCellTypeVisible)でできんじゃねーかな
389:デフォルトの名無しさん
22/03/19 16:40:58.85 AuBNrAzT0.net
コードは
390:スマートなのに…って言われろ
391:デフォルトの名無しさん
22/03/19 18:04:38.19 4DGoWoBi0.net
Range("テーブル1[項目A]").SpecialCells(xlCellTypeVisible).Columns.AutoFit
出来ないのかと思ったらできるじゃん
392:デフォルトの名無しさん
22/03/19 18:22:46.82 qn2+ggVDa.net
VBA素人にご教示ください
PowerQueryで整形したテーブルのデータを
別ブックのVBAに引っ張ってきたい場合
・列データをユーザー定義型にまとめる
・ListObjectを使う
どちらがベターでしょうか？
393:デフォルトの名無しさん
22/03/19 18:48:13.74 XaCRBAWQM.net
引っ張ってきたい側でpowerquery使って整形したテーブルをソースに指定する
394:デフォルトの名無しさん
22/03/19 19:07:47.91 qn2+ggVDa.net
すいません、うまく説明できてませんでした
PowerQueryとVBAは別ブックでも同じブックでもいいです
やりたいことは
巨大なテーブルを参照してVBAで検索フォームを作りたい
です
その場合、テーブルデータを
・ユーザー定義型にまとめる
・ListObjectを使う
どちらがいいのか？が質問の意図です
改めてお願いします
395:デフォルトの名無しさん
22/03/19 20:45:24.46 ecCVM1RA0.net
全くの素人で申し訳ないんですけど、やりたい事
❶:B10からスタートしてボタンを押したら次の行に指定された文字を入力していく。
❷:Ifを使って、もしB29行まで埋まった状態でボタンを押したら
B2からB29までコピーしてB1からB28にペースト
→B29に指定された文字を入力
色々頑張ったけど自分で❶は出来たけど❷ハードルが高かった・・・
396:デフォルトの名無しさん
22/03/19 21:21:42.73 titlKmjCa.net
2のどの部分ができないのか
397:デフォルトの名無しさん
22/03/19 21:33:07.78 qNoriQBK0.net
If Range("B29")<>"" then Range("B1:B28").value = Range("B2:B29").value
こんな感じか？
398:デフォルトの名無しさん
22/03/19 22:17:04.40 hVJQeY+Td.net
>>389
IFで範囲内空白があった場合を出そうとしてたんだけどうまくいかなかったんや・・・
399:デフォルトの名無しさん
22/03/19 22:17:58.96 hVJQeY+Td.net
因みに入れたいのは勝利か負け。２つボタン作れば別々に行けるかな
400:デフォルトの名無しさん
22/03/19 22:56:32.21 hVJQeY+Td.net
>>389
ありがとう。認識できた。そしてなんとか検索して思うような結果になった！
401:デフォルトの名無しさん
22/03/20 00:13:30.21 ZUsPYd03M.net
>>382
>>384
ありがとうございます。
明日試してみます。
402:デフォルトの名無しさん
22/03/20 01:49:20.37 CEJcVsO40.net
>>387
巨大ならlistobjectかadoじゃないの、速度的に。
巨大じゃなきゃ何でもいいや。
403:デフォルトの名無しさん
22/03/20 06:37:24.28 Md+DYeh30.net
>>372
ちゃんとタイマー走らせて確認してるわけではないけど体感的には大して変わらない
でも完全一致で検索をかける場合matchは検索対象が存在しないとエラー停止するのに対してfindはset range変数=対象範囲.find(ryで検索をかけてやればrange変数がnothingか否かで判別可能だから個人的にはfindの方が好きかなぁ
404:デフォルトの名無しさん
22/03/20 08:33:55.10 Zh6y5r970.net
>>370
同じようなことを前考えたけど、恐らくEXCELのシートにインデックスを貼るのは無理っぽい。
ADOどころか拡張機能であるADOXでも無理だったはず。
代替案としてはSQLが使えないので、都度個別で考えるしかないけど、とある項目の最大値や最小値が入っているレコードの内容が欲しいなら基本、MATCH関数での検索となると思う。
405:デフォルトの名無しさん
22/03/20 10:22:27.56 HKRI5d8YM.net
>>370
> どのような方法が一番速く処理出来ると思いますか？
フィルターかけてSUBTOTAL(4, 範囲)
406:デフォルトの名無しさん
22/03/20 13:33:44.21 NjSblaend.net
>>382
>>384
うまくいきました。
ありがとうございます。
407:デフォルトの名無しさん
22/03/20 15:42:40.21 IQ9r07oYM.net
>>369
すまん、368だけどコード見てもやりたいことがまるでわからんので、回答書けない
408:デフォルトの名無しさん
22/03/20 19:07:32.87 fXpRWn260.net
初心者のため、ご存じでしたらご教授お願い致します。
エクセルから印刷する際、プリンタをカラー、モノクロをそれぞれ
自動印刷できませんでしょうか？
PageSetup.BlackAndWhite = True/Flase
以外で方法がありましたら、ご教授をお願い致します。
409:デフォルトの名無しさん
22/03/20 19:41:51.49 V5Xg0/PX0.net
>>401
その方法では成功しないのですか？
410:デフォルトの名無しさん
22/03/20 19:51:58.85 aHWtYUUu0.net
素人にご指導願います。
生年月日や所属等を含めた社員のリストを作ってまして、氏名等で検索できるようオートフィルターをvbaで作るところまではできました。
「チェックボックスにチェックを入れたら、指定した日付と同じ生年月日でフィルターをかける」という操作は可能でしょうか。
例えば、セルに1990/3/1を入れてるとして、チェックボックスにチェックを入れたらフィルターがかかって1990/3/1の生年月日だけ出てくる（それ以外は消える）というものです。
チェックボックスにチェックを入れるかどうかで指定した日でフィルターをかけるかどうかを判断したいです。
もし可能でしたら、ご教示いただけると幸いです。
よろしくお願いします。
411:デフォルトの名無しさん
22/03/20 19:56:19.87 fXpRWn260.net
>>402
PageSetup.BlackAndWhite = Falseで白黒印刷設定したのですが、
塗りつぶしの背景が白で印刷されてしまいます。
また、カラーの図が白黒で印刷できませんでした。
プリンタのプロパティにある印刷設定（両面、集約、カラー等）はＶＢＡでは制御できないでしょうか？
412:デフォルトの名無しさん
22/03/20 20:02:50.72 0CQh90gjM.net
>>401
> 以外で方法がありましたら
なぜこういう人は以外でないとダメな理由を書かないのか
413:デフォルトの名無しさん
22/03/20 20:15:26.37 KxZjhn5zM.net
>>404
すまん、リロードしてなかった
っていうか最初から書けよ…
> PageSetup.BlackAndWhite = Falseで白黒印刷設定したのですが
白黒設定は True じゃね？
> プリンタのプロパティにある印刷設定（両面、集約、カラー等）はＶＢＡでは制御できないでしょうか？
無理、
Application.Dialogs(xlDialogPrinterSetup).Show
で、ダイアログを表示させるのが精一杯
414:デフォルトの名無しくん
22/03/20 20:21:02.46 V5Xg0/PX0.net
>>404
プリンタドライバをもう一つ入れて、そのドライバの初期設定を白黒にして「白黒印刷専用」とする。
このプリンタ（ドライバ）をＶＢＡで選択して印刷する。
過去にやったことがあるけどちょっとめんどくさかった記憶
他にいい方法あるのかな
415:デフォルトの名無しさん
22/03/20 20:23:50.61 Md+DYeh30.net
>>403
チェックボックスにマクロを登録してフィルターのキーをその入力があるセルを参照すれば良いだけだと思う
例外処理があるならそれはどういう条件で省くのか分からないから自分で考えて
416:デフォルトの名無しさん
22/03/20 20:36:02.96 fXpRWn260.net
>>406
ご回答ありがとうございます。
理由も一緒に書けばよかったですね。大変失礼致しました。
以後気を付けます。
やはり無理なんですね。
他のかたがご指摘のように、白黒専用プリンタドライバを増やして
プリンタを切り替えてトライしてみます。
ご指摘の通り、PageSetup.BlackAndWhite = Trueが白黒です。失礼致しました。
417:デフォルトの名無しさん
22/03/20 20:41:31.10 fXpRWn260.net
>>407
ご回答ありがとうございます。
プリンタドライバを増やす方法、ご提案ありがとうございます。
早速トライしてみます。
ドライバーを入れた後、プリンタの基本設定で白黒を初期設定にすれば白黒専用でいけますね。
418:デフォルトの名無しさん
22/03/20 21:09:18.42 j6YhEUF6d.net
>>403
多分VBA要らない
スライサーで十分
419:デフォルトの名無しさん
22/03/21 02:46:04.32 HoitaytG0.net
スライサやタイムライン知らない人多いらしいね
マイナーなのかな？
420:デフォルトの名無しさん
22/03/21 06:08:07.49 8sRo6eoq0.net
マイナーはマイナーだと思う
MOS受けて初めて知ったわ
421:デフォルトの名無しさん
22/03/21 07:21:11.67 K7MjVs2M0.net
テーブルからしてまだマイナーだからかしら？
422:デフォルトの名無しさん
22/03/21 07:27:35.78 Od0FfcR
423:PM.net
424:デフォルトの名無しさん
22/03/21 08:06:13.98 S9+WMeZFH.net
誰か教えてください
各営業所から毎月送られてくる実績ファイルを一つのブックに集計するマクロを作りたい
一つのフォルダに全てのブックを入れてループ処理するマクロ自体はできたんだけど肝心の転記の仕方がわからない
具体的には各ファイルの指定のセルから集計表ファイルの指定のセルに営業所名ごとに転記したい
営業所ファイルには4〜3月まで縦に月毎に実績が並んでいて集計表のファイルは横に月毎になってるって感じ
どうしてもわからなくてどなたか助けてください
425:デフォルトの名無しさん
22/03/21 08:19:15.34 /kHY2rERM.net
powerqueryだな
426:デフォルトの名無しさん
22/03/21 08:24:32.18 S9+WMeZFH.net
>>417
ありがとうございます
パワークエリってやつですかね？
検索かけたら使い方分かりそうでしょうか？
427:デフォルトの名無しさん
22/03/21 08:52:49.57 K7MjVs2M0.net
>>418
ようつべのライブラリに放り込んでた中から
役に立ちそうなもの見繕ってみた。
PLをフォルダに放り込むだけで科目ごとの数値を比較できる【エクセル パワークエリ PowerQuery】
URLﾘﾝｸ(youtu.be)
大量のエクセルファイルを１つにまとめる方法【ファイル名活用】
URLﾘﾝｸ(youtu.be)
【マクロ無しで】大量ファイルを1つに統合。簡単にクリック操作で可能（Power Query、取得と変換）
URLﾘﾝｸ(youtu.be)
PowerQuery 複数のExcelファイルからデータを結合する方法
URLﾘﾝｸ(youtu.be)
428:デフォルトの名無しさん
22/03/21 09:00:07.15 8sRo6eoq0.net
>>416
Sub foo()
'開いてset
Set 転記先ブック = ThisWorkbook
Set 営業所ブック = Workbooks.Open( _
"C:\Users\81909\Desktop\eigyosyo.xlsx")
'転記
転記先ブック.Sheets("sheet1").Range("b2:d3").Value = _
営業所ブック.Sheets("sheet1").Range("b2:d3").Value
End Sub
保存ファイルのパスと転記セルの範囲変えたら使えると思う
429:デフォルトの名無しさん
22/03/21 09:06:14.38 Yo31hjL10.net
>>397
ありがとうございます。
やはりEXCELのシートにINDEXを設定するのは無理なんですね。
>>398
ありがとうございます。
残念ながら20万件100項目という量のせいか、
フィルターを掛けるとそのまま固まってしまい、いつ返ってくるか、そもそも返ってくるのかすら分からない状況になりました。
430:デフォルトの名無しさん
22/03/21 09:14:48.04 8sRo6eoq0.net
>>421
そもそもフィルター掛ける必要があるのかどうかってのもあるけど・・・
ぱっとおもいつくのは
・forで回して別シートに転記。量が少なければそこまでかからんはず。量が多いとかなり大変
・別シートにfilter関数。かなり軽いけど、その量に対してはやったことないな
・スプレッドシートでquery関数。軽さならこれが最強で、めちゃくちゃ軽い
431:デフォルトの名無しさん
22/03/21 16:06:54.19 YtFKrPKNa.net
>>419
ありがとうございます
見て参考にさせていただきます
432:デフォルトの名無しさん
22/03/21 16:10:10.41 YtFKrPKNa.net
>>420
ありがとうございますこの構文のでいける感じですか？
ホントど素人で申し訳ないんですけど転機の構文は何をしてる感じでしょうか？
433:デフォルトの名無しさん
22/03/21 16:14:49.98 ombAFbaLM.net
>>420は要点をコンパクトに上手に説明してる
これが理解できないなら自分で最終回答に辿り着くのは無理だよ
434:デフォルトの名無しさん
22/03/21 16:21:01.88 8sRo6eoq0.net
>424
転記の部分は値でコピーペーストだよ
試しに動かしてみたほうが早いと思う
435:デフォルトの名無しさん
22/03/21 16:38:45.50 YtFKrPKNa.net
>>425
>>426
ありがとうございます
まずは動かしてみます
436:デフォルトの名無しさん
22/03/21 16:43:02.21 HoitaytG0.net
テーブルってまだ普及していないねかな？
437:デフォルトの名無しさん
22/03/21 16:50:26.11 DBpwCepOM.net
永遠に普及しないでしょうね
列島猿はセル結合したり自分で色塗ったり線引いたりするのが大好きで、お仕着せのDBにデータだけ放り込むみたいなのは苦手なので
438:デフォルトの名無しさん
22/03/21 16:56:11.28 8sRo6eoq0.net
全面的に同意
テーブルで表作ったらテーブルを解除しろって言われるレベル
439:デフォルトの名無しさん
22/03/21 17:19:32.38 fDbYf0xJ0.net
>>424
転記する際に縦横を置換したいんじゃねえの？
420の例にはそれが入ってないかと
440:デフォルトの名無しさん
22/03/21 17:21:13.79 fDbYf0xJ0.net
テーブルでも椅子でもいいからさっさとやれと言われるわしら下っ端
441:デフォルトの名無しさん
22/03/21 17:57:58.00 bPJRBgFUM.net
>>416
マクロ記録開始してその転記の操作してみればいいかと
442:デフォルトの名無しさん
22/03/21 19:13:04.04 S9+WMeZFH.net
>>431
あーそうなんですね
そこ大事なところなもんで…
ありがとうございます
443:デフォルトの名無しさん
22/03/21 19:37:57.87 HoitaytG0.net
いつも思うのだけど、これだけExcel情報が世の中に溢れているのにセルご法度の結合だの色塗りまくるだの改行だのする人ばかりなのは何故なんだろうね？？
パソコン雑誌とか読んで勉強していないのかなと？
444:デフォルトの名無しさん
22/03/21 19:43:19.70 zSyDDKWUH.net
>>435
URLﾘﾝｸ(www2.odn.ne.jp)
445:デフォルトの名無しさん
22/03/21 19:53:51.30 8sRo6eoq0.net
>>435
業務改革を微塵も考えていないから
一日8時間で、最初に与えられたルーチンが回ればそれで良いと考えてる人がほとんど
なんでそうなってるかは、知らん
446:デフォルトの名無しさん
22/03/21 20:06:38.09 7hRN3rZ2M.net
>>435
別にExcelの達人になるわけじゃないし
そもそも結合するなと言うなら縦方向の「選択範囲内で中央」を実現しやがれ
447:デフォルトの名無しさん
22/03/21 20:11:42.48 S9+WMeZFH.net
>>433
それも思ったんですけどそれだと恐らく一つの営業所の実績を一つのセルにコピーする操作になってしまいそうで…
448:デフォルトの名無しさん
22/03/21 20:23:41.52 2j3OjuAE0.net
>>439
ここまでの説明で理解できてないようなので
とりあえず営業所毎ファイルと集計表ファイルをアップロードしないと話が進まない
449:デフォルトの名無しさん
22/03/21 20:42:56.54 S9+WMeZFH.net
>>440
オケ
さすがにそこまでは出来ないので色々試してみます
ありがとうございました
450:デフォルトの名無しさん
22/03/21 20:43:57.15 8sRo6eoq0.net
>>439
転記部分は好きなように変えたり増やしたりスレば良い
b2をd3に、a1をe5に、など、なんとでもなる。
'転記
転記先ブック.Sheets("sheet1").Range("b2").Value = _
営業所ブック.Sheets("sheet1").Range("d3").Value
転記先ブック.Sheets("sheet1").Range("a1").Value = _
営業所ブック.Sheets("sheet1").Range("e5").Value
451:デフォルトの名無しさん
22/03/21 21:18:25.50 8fSFwG7JM.net
>>439
思うだけで手を動かす気はないのね…
いち抜けた~っと
452:デフォルトの名無しさん
22/03/21 21:20:10.88 S9+WMeZFH.net
>>443
ごめんなさい会社のファイルなので今日できんのよ
明日行ったらやってみる
453:デフォルトの名無しさん
22/03/21 21:21:07.73 S9+WMeZFH.net
>>442
ありがとうございます！
やってみます！
454:デフォルトの名無しさん
22/03/21 21:49:42.78 HoitaytG0.net
日本のExcelのレベルが低いからExcel講師やパソコン教室が潤うと。
455:デフォルトの名無しさん
22/03/21 22:13:13.78 NuDNOSQMd.net
ループ文とか条件文とかユーザーフォームとかクラスとか使ってごちゃごちゃやってるけど結局のところファイルの開閉と転記作業しかしてない事に気づいた
転記があれば何でも出来る
456:デフォルトの名無しさん
22/03/21 23:00:27.32 Rbd9piL90.net
転記の子
457:デフォルトの名無しさん
22/03/22 00:36:53.70 000FKf5P0.net
始めたてのド素人ですがご教示頂けると幸いです。
表の列ごとにランダムに入っている異なるフォントの色で正負を判断して最終行に和と差の合計値を出力したいのですが可能でしょうか？
詳しく言うと赤色が負として、黒色が正としてセルに数値が手打ちされてます。
列の最終行を取得しsum関数を挿入することはできるのですが、フォントの色で正負を判断して合計値が出せるのか教えていただけないでしょうか。
458:デフォルトの名無しさん
22/03/22 00:49:54.42 kEBDDtio0.net
>>449
もともとエクセルにはマイナスの数字を自動的に赤くする機能がある
その機能で色を変えてるんだと集計の方法も変わってくるから、まずはそこを確認して
459:デフォルトの名無しさん
22/03/22 01:08:13.62 TibwPpTv0.net
書式に辿り着ければ
自ずと答えが見つかろうぞ
460:デフォルトの名無しさん
22/03/22 01:19:04.08 KVIRUNm3d.net
そもそもVBA不要
sumif関数で出来る
461:デフォルトの名無しくん
22/03/22 02:43:58.13 d3YPRjya0.net
きっとこれは黒色の負とか青色の正とかあって
あえて色で集計したいんだろうな
と、深読み
462:デフォルトの名無しさん
22/03/22 12:14:00.76 000FKf5P0.net
ご返信ありがとうございます。
表のシートが種類ごとにあって量が千を超えているので自動化したい所存です。
前任が手書きの台帳をエクセルに落してくれたまでは良かったのですが、他の社員が手書きのときと変わらず正の値で色のみ変えて入力するため、毎年年度末になると延々と手作業で何時間も単純作業を強いられるのでなんとかならないかと思案しておりました。
463:デフォルトの名無しさん
22/03/22 12:33:30.37 jGZXGfWV0.net
条件書式でゼロ以上は赤字にするとかでもダメなんか？
逆にVBA使った方が遅かったり不便にかりそうな案件だと思うんだが
464:デフォルトの名無しさん
22/03/22 13:33:25.27 MYdjPEb1M.net
>>421
> 残念ながら20万件100項目という量のせいか、
> フィルターを掛けるとそのまま固まってしまい、いつ返ってくるか、そもそも返ってくるのかすら分からない状況になりました。
PC買い替えろ
30万行x300列に数値データを埋めてやってみたけどフィルター処理なんてほぼ瞬時に終わるぞ
465:デフォルトの名無しさん
22/03/22 13:38:08.96 mA7AOTDM0.net
他の社員が入力してるものだからなあ
集計よりも入力用のシートを何とかできたら手っ取り早いんだがそれは無理なんかな
466:デフォルトの名無しさん
22/03/22 13:43:49.21 R4HxgmoiM.net
色付けるよりマイナス記号打つ方が速いだろうに……
ご苦労さまでした
467:デフォルトの名無しさん
22/03/22 13:48:33.03 C94PEu1/d.net
>>454
はっきり言えばこんなこともできないお前は手を出すな
468:デフォルトの名無しさん
22/03/22 14:03:10.79 l3SAD7eYM.net
>>455
元のデータが 1, -2 ってなってるところを 1, 2 (←赤文字) で入力されてるんだろ
>>454
if Cells(行,列).Font.Color = RGB(255,0,0) Then ...
で判断できるよ
データ書き換えていいなら（てか、個人的にはそうすべきと思うが）
For C In ActiveSheet.UsedRange
If C.Font.Color = XlRgbColor.rgbRed And IsNumeric(C.Value) Then
C.Value = -C.Value
C.Font.Color = XlRgbColor.rgbBlack
End If
Next
として、一気に書き換えちゃうのがいいかも
469:デフォルトの名無しさん
22/03/22 19:08:50.48 Gjrul4fP0.net
>>456
流石に仕事場のPCを勝手に買い替えるのは私には出来ませんし、
最終的にフィルター等の処理は使用せずにかなりの高速化をはかることが出来ました。
この方式が最速ではないかも知れませんが、
今までADO接続でSQLを実施して
2～3分掛かっていた処理が一瞬で終わるようになったので満足しています。
今まで質問に答えて頂いた方、色々参考にさせていたきました。
ありがとうございました。
470:デフォルトの名無しさん
22/03/22 20:15:28.30 WUXZwGEtd.net
>>454
やはりVBAは不要
オートフィルターのフォント色で絞り込み、subtotal関数で十分
471:デフォルトの名無しさん
22/03/22 23:22:39.90 VOPCLAbN0.net
本当にド素人なのでお許し下さい
ここに3枚の請求書（Excelデータ形式)があり、それぞれsheet1、sheet2、sheet3にあります
フォーマットはバラバラで文字や配置が異なります
これをsheet4で「支払日」「取引先名」「取引内容」「税込金額」を一覧表にしたいのです
こういうことはVBAでは可能でしょうか？
可能であれば、難易度はどの程度でしょうか？
＊実際には請求書は数百枚あります
472:デフォルトの名無しさん
22/03/22 23:26:23.97 b3mXLXMM0.net
>>463
フォーマットが統一されていれば、vbaでやる意味はある
フォーマットが統一されていない場合、vbaで書く意味がほとんどない。手作業でコピペするのと変わらん
473:デフォルトの名無しさん
22/03/22 23:26:42.94 b3mXLXMM0.net
かわらん、と言ったけど手作業でコピペする方が早いわ
474:デフォルトの名無しさん
22/03/22 23:43:05.71 6kcI/g5C0.net
>>461
そのフィルターが処理するために、
全データをメモリに載せようとするから、メモリ不足でフリーズする
20万件 * 100項目 = 2千万項目, 20,000,000
仮に、1つの項目が1KB とすると、
20,000,000 KB = 20,000 MB = 20 GB
メモリに載せられないから、フリーズする
ファイルの読み込みと同じ。
20GBのファイルを一度に全部読み込めない
部分的な読み込みにしないと無理
例えば、1MBずつ読み込んで処理して、そのデータを捨てるとか。
これなら、1MBしかメモリを使わない
でも、この方法では、全データをソートしたりできない。
自分で実装できないから、結局、データベースを使うしかない
475:デフォルトの名無しさん
22/03/23 00:15:35.00 HTP/aspP0.net
>>461
せめてどうやったかぐらい書けよ
つかエクセルからエクセルブックにADOでSQLとか、余計なオーバーヘッドで遅くなるイメージしかないんだがな
それで高速化できるようなケースがあるのか？
476:デフォルトの名無しさん
22/03/23 00:34:00.08 3vbjDh2k0.net
。。同志達は例の追加された新しい関数の情報つかんでいるよね？
なんだか凄そうな予感
477:デフォルトの名無しさん
22/03/23 01:05:25.56 MTKAae3e0.net
ワークシート関数の追加のニュースなら見たけどVBAにも何か追加されるん？
URLﾘﾝｸ(forest.watch.impress.co.jp)
478:デフォルトの名無しさん
22/03/23 05:27:44.59 kSdTSG5d0.net
>>466
なるほど、一度メモリに全て載せるようにするからフリーズするかのごとく重くなるのですね。
EXCELに割り当てられるメモリがどのくらいなのかは分かりませんが、納得です。
ありがとうございます。
479:デフォルトの名無しさん
22/03/23 05:59:20.73 kSdTSG5d0.net
>>467
最終的にはその重いシートを使用する場合にはADOを使用するのをやめました。
代わりに、>>397の人が教えてくれたような技法を使うようにしました。
正確には本来、プライマリキーが設定されるような最も検索後の件数が少なくなるような項目の列をFindで検索して、
その際に検索された値が入っている行の、別項目で最も値の大きい行を取得し、その行にある情報を取得するようにしました。
ADO接続ではSQLを投げられるのでかなり便利で、作成して扱う部品も統一化し易いのですが、
大量なデータを持つシートを扱う場合、或いは後に大量なデータを持つ可能性があると思われるシートを扱う場合は
都度個別にロジックを作成する必要があるという結論になりました。
480:デフォルトの名無しさん
22/03/23 06:08:26.57 +yWQsdmla.net
>>466
> 仮に、1つの項目が1KB とすると、
どんなデータだよw
481:デフォルトの名無しさん
22/03/23 06:19:06.78 kSdTSG5d0.net
今は完全に個別の処理としてロジックを作成していますが、Findで一番検索後の件数が少なくなる場所を検索する部分は共通部品化出来そうですね。
その内その中で更にどのように抽出するかの部分においては別関数化してリフレクションで呼び出すようにすればその部分だけ個別で行えるような気もするので、
当面の目標はそれになります。
482:466
22/03/23 09:27:45.30 znQ4kzdw0.net
>>466
>仮に、1つの項目が1KB とすると、
>20,000,000 KB = 20,000 MB = 20 GB
1つの項目が100バイトなら、2GB。
これでも、メモリ不足になる
1つのアプリは普通、100MB ぐらいまででしょ？
数百MBも使えるアプリは無いでしょ？
使用メモリの制限を外さないと無理じゃないの？
483:デフォルトの名無しさん
22/03/23 09:46:29.99 KFrQJBSS0.net
メモリの制限に達するとストレージ、仮想メモリ使うよ・・・何を言ってるんだ・・・
484:デフォルトの名無しさん
22/03/23 09:50:01.23 MR2jKSYA0.net
>>474は後で恥ずかしい思いするぞ
それとも過去の人か
485:466
22/03/23 11:39:32.08 znQ4kzdw0.net
Java とか、VM のメモリ不足で落ちるとか？
デフォルトのメモリ割り当て設定が少ないからとか、聞いたけど
各アプリには、そういう設定があるのでは？
486:デフォルトの名無しさん
22/03/23 11:43:25.55 KFrQJBSS0.net
テキトーすぎでは
487:466
22/03/23 11:45:19.28 znQ4kzdw0.net
例えば、2GB のメモリに、Windows 10 をインストールしたら、
1クリックの動作に、1分掛かるので、全く使えない
仮想メモリとか、ほぼ意味ない。
遅すぎる
ドンキの格安PC とかも、そう
488:デフォルトの名無しさん
22/03/23 11:49:59.54 KFrQJBSS0.net
質問者のPCの中身が分からないのになんでどうでもいい豆知識披露してるんだｗ
489:デフォルトの名無しさん
22/03/23 11:50:45.45 nUwfSeaH0.net
2Gでも1クリックに1分とかはかからないのでは？
win10とそっくりなwin 2019 serverが
2core メモリ1Gでも、
ああもっさりだけどまぁ普通にマウス操作できるなぁ、
ぐらいには動くし。
490:デフォルトの名無しさん
22/03/23 12:06:56.65 jxCik/Tkr.net
句読点の使い方とかからして関わっちゃいけない人だとわかる
491:466
22/03/23 12:22:53.98 znQ4kzdw0.net
CPU がセロリンだからかも
メモリ2GBぐらいのPC は、CPUも安物だから、1クリック1分ぐらい掛かる
492:デフォルトの名無しさん
22/03/23 12:52:02.64 bsuIYc5Za.net
>>474
よくわからないのでExcelでの検証方法と結果を出してくれないか？
493:デフォルトの名無しさん
22/03/23 14:41:23.04 3vbjDh2k0.net
同志達はケッコー上等なパソコン使っているイメージだがどうなの？？
494:デフォルトの名無しさん
22/03/23 15:29:25.74 TpwnHNL9M.net
パフォーマンスが必要ならDB使えばいいのよ
495:デフォルトの名無しさん
22/03/23 18:26:48.33 PWl/OlCpM.net
社用PCってのは基本10万未満に抑えないと固定資産化して面倒だからそこまでスペックが高くないんよ
それこそ自社でPC作ってる会社でも未だにメモリ4GB以下だのCore i3だのが当たり前なぐらい
496:デフォルトの名無しさん
22/03/23 18:30:41.97 TpwnHNL9M.net
i3なんて贅沢な
497:421
22/03/23 19:13:52.79 kSdTSG5d0.net
今更i5の1.6Gでメモリ8Gなんて言えない・・・ー
498:デフォルトの名無しさん
22/03/23 19:39:45.28 Jy3nut2I0.net
そのスペックでその程度のデータ処理でそんなに時間がかかるのは明らかに何かがおかしい
確実に変なことをしている
499:デフォルトの名無しさん
22/03/23 20:00:19.51 TpwnHNL9M.net
ADOのExcel Driverなんておもちゃに決まってんでしょ
上っ面の体裁整えただけ
500:デフォルトの名無しさん
22/03/23 21:28:40.17 nUwfSeaH0.net
今のPC平均てi8700 or Ryzen2600くらいじゃないんかいな？
2.4から3.5Ghz の6-12コアあたりが多いやろ。
3-4年前のマシン。
ややいいと4Ghz の12-16コアくらいでしょ。
501:デフォルトの名無しさん
22/03/23 22:55:53.13 KFrQJBSS0.net
SSDかHDDか
問題はここだけだ
変なエクセルファイル作る人は、どれだけPC性能よくてもいずれ詰む
502:デフォルトの名無しさん
22/03/24 01:29:04.78 y95b8UUh0.net
つかアーカイブドライブが大きな1-2T程度のSATASSDで、CやDの2つくらいが500-1TのNVMeなんじゃないの
HDDなんかは半年に一度みるかもなデータでもない限り使わないと思うけどな。
内蔵にHDDなんかあったら存在だけで使ってなくてもめっちゃ遅くなるし。
503:デフォルトの名無しさん
22/03/24 02:30:52.55 Rmqc3Mmn0.net
>>494
馬鹿は黙っていればいいのに
504:デフォルトの名無しさん
22/03/24 03:16:35.71 ECMUHWnp0.net
ゲーミングPCの恩恵受けたいです。
派でなキーボードで
505:デフォルトの名無しさん
22/03/24 12:17:51.66 vEIStuKr0.net
20万ｘ100の中から最大値求めたいなら
1万x100ずつ読みだして最大値20個比較するのが一番早いんでねーの？
506:デフォルトの名無しさん
22/03/24 13:05:59.63 5Ha8a+Lla.net
>>497
なぜそれで速くなると思った？
507:デフォルトの名無しくん
22/03/24 14:49:33.59 MIQ/3HwW0.net
分割処理は面倒なようで低スペックには限界を回避し優しい
508:デフォルトの名無しさん
22/03/24 15:52:30.97 Z1gVjOVJ0.net
>>492
事務用PCだとセレロンがせいぜい
そしてエクセルは事務用ソフトやで
データベース扱わせたら即固まる
509:デフォルトの名無しさん
22/03/24 16:05:22.00 0iDW3zlua.net
数年前、外出時にexcelを使うため
windowsタブレット(atom)を、最適化してた
そこそこ使えるんだけど、
たまにすごく遅くなるから原因探ったらmdbにアクセスしてるときだった
510:デフォルトの名無しさん
22/03/24 20:19:51.61 ECMUHWnp0.net
会社はケチだから高級スペッコのパソコンを購入してくれない。
職場の古いデスクよか私物のノーパソの方がサクサク(Ryzen積んだヤツ)
511:デフォルトの名無しさん
22/03/24 20:23:26.56 /oHcKJ7o0.net
うちは全部SSDに変えたよ
i5 2400もサクサク
1万投資するだけでPCが復活するというのに、なんでみんなやらないんだろうな
512:デフォルトの名無しさん
22/03/24 21:32:40.98 XNeV8CRo0.net
儲かっている会社だけじゃないことくらい想像つくだろ
513:デフォルトの名無しさん
22/03/24 23:51:54.91 3J8f/LKg0.net
7年前に買ったi7のLavie。
何かメチャクチャ重いので中見てみたら
メモリが4G。そして当たり前のようにHDD。
メモリは買い換えて16G積んだけど
それでも立ち上げはなぜか遅い。
それ以来もうYAMADA電気では絶対PCを
買わないことを心に誓った。
514:デフォルトの名無しさん
22/03/25 01:16:28.60 XVe+E9v/0.net
さすがに、HDD は遅いでしょ
515:デフォルトの名無しさん
22/03/25 01:24:52.38 x94dfbyJ0.net
>>505
ヤマダ電機は関係なくお前が馬鹿なだけだろ
516:デフォルトの名無しさん
22/03/25 01:25:53.93 jqc8A7wc0.net
事務員が職場でゲーミングノートなんか使っていたらカオスだね
遊びに見られる
517:デフォルトの名無しさん
22/03/25 01:28:11.57 jqc8A7wc0.net
つか立ち上がりってメモリよりSSDが大きく関係しているんじゃないの？
過去にウィンドウズスレで詳しい人に教えてもらった。
518:デフォルトの名無しさん
22/03/25 01:40:28.27 p3htVTGSa.net
どうしてVBAプログラマーって、
コードの内容だけ調べて、
「はい、こうなってこうなって、こうなっています。
なぜこうなっているのか、これ以上のことに関しては、こちらではわかりません。
詳しい人に聞いてねー」
となるんだろう。
自分で何も動こうとしないで、
ただ VBE 開いて、コードを日本語訳して、終わり。
それで仕事した気になってるんだから笑っちゃうよ。
519:デフォルトの名無しさん
22/03/25 01:48:43.98 FbSlRBsRa.net
そういう人はプログラマーとは言わないよ
520:デフォルトの名無しさん
22/03/25 02:37:31.54 F54TZ40q0.net
どういう状況でその回答に至ったかの前提条件がないとそれが妥当な返答である可能性を否定できない
521:デフォルトの名無しさん
22/03/25 05:36:38.48 cwXcdCWcd.net
>>510
ネットや書籍でも人に読ませる気のないコードやつぎはぎだらけでそもそもまともに動かないコード置いてはい終わり。ってのが多いし情報量は多いが質が悪いので質の悪い解釈が更に増えるという悪循環に陥ってる
522:デフォルトの名無しさん
22/03/25 06:16:41.66 XWaROYx+0.net
>>509
正解
>>510
「ルーチンに関しては」詳しい人に聞いてね、だよ
むしろそれ以上なんか答えてほしい事はあるのだろうか
523:デフォルトの名無しさん
22/03/25 08:31:08.17 o8BOLFr/r.net
そら「知らん」からよ
給料の範疇じゃないんだろ
524:デフォルトの名無しさん
22/03/25 10:34:06.30 1zyB+7jua.net
>>510
お前が自分で動けばいいんじゃね
525:デフォルトの名無しさん
22/03/25 11:22:36.46 ieGzCLlt0.net
>>437
民族性としか言いようがない。山本七平さんが生涯かけて取り組んだ、
「なぜ我が国はこうも組織づくりと運営ががダメダメで、暴力と数合わせによる実態のないものに陥っていくのか」っていうあれ
526:デフォルトの名無しさん
22/03/25 12:05:26.87 jqc8A7wc0.net
本当にできる人はネットとか何も見ないでスラスラとコード書ける人だと聞いた。
なかなかいないと思うけど。
527:デフォルトの名無しさん
22/03/25 12:13:20.83 gLxuAzS/r.net
VBAは大体ググるわ
普段いじらんし構文まで覚えてないし独特な部分も多いし
528:デフォルトの名無しさん
22/03/25 12:38:22.10 dRfv/AP1a.net
ググる人はできない人なのかw
529:デフォルトの名無しさん
22/03/25 12:55:56.28 378bs0UD0.net
>>510
それはVBAに限ったことじゃないよ。
VBA使う人だってモデリングしてクラスの構成やらインターフェースとかどう使って行くか考えてから作る人もいるし、
Javaや.Net使っている人でもその場凌ぎの平べったいコード書く人もいる。
むしろ何がどうなってそのような結果となるのかは、VBAやってる年寄り連中の方が
今ある便利な部品ばかり使うことじゃなく、もっとハードよりな理屈を知ってる人(ついでにCやC++、アセンブラ等も経験している人)が多いだろうから
一概にその理屈では片付くものでもないよ。
530:デフォルトの名無しさん
22/03/25 13:23:03.47 rDRC/qkL0.net
>>510
どう考えてもそれ以上は「プログラマー」の仕事じゃないわけですが
業務分担外の仕事まで無理やりやらせるブラック会社の人ですか？
責任範囲外のことを要請されても困るわけですが