Excel VBA 質問スレ Part77

■ このスレッドは過去ログ倉庫に格納されています
2022/07/17(日) 07:07:35.59ID:tS4zKdphH
!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

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

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

※前スレ
Excel VBA 質問スレ Part76
https://mevius.5ch.net/test/read.cgi/tech/1651339421/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2022/10/01(土) 13:10:34.86ID:PSWCeSJW0
キーボードで打ち込め
2022/10/01(土) 13:17:44.94ID:GEkLNCKa0
>>768
入門書買って自分で勉強したらどうかな
あ、EXCELが入っているPCを持ってないと無理かも
771デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sd1f-z20m)
垢版 |
2022/10/01(土) 13:31:32.89ID:sQwPc1U3d
テキストボックスにセルの値を参照するとか、繰り返しの処理とかlookup関数とかindexとmatch関数はわかります
あとはこのリストが欲しいです
2022/10/01(土) 13:34:23.97ID:mp76wcbAa
MSのサイトを見ればいいだけじゃね？
2022/10/01(土) 14:11:06.32ID:m6/aGG23M
>>771
漠然としすぎていて適切に回答できない
書式設定のこと？ファイル出力？
どこにそれを表示したいの？
2022/10/01(土) 14:50:47.98ID:ozHkf13K0
もう自分で勉強してくれって。
775デフォルトの名無しさん (ﾜｯﾁｮｲ ff4f-PeWp)
垢版 |
2022/10/01(土) 15:38:51.00ID:66c8QTBM0
>>768
そもそもそのログの日付とやらはどこから持ってくるつもりなのか
776デフォルトの名無しさん (ﾜｯﾁｮｲ ff3e-z20m)
垢版 |
2022/10/01(土) 15:39:00.83ID:05rfSfda0
>>773
すみません
VBAのユーザーフォームで検索用のテキストボックスを作り、
検索結果に該当したレコード（行）を選択（抽出）？して
それをテキストボックス2やリストボックスに表示したいです

〜番（ID）

名前
テキストボックス（リストボックス）
〜月〜日　何をした

みたいな表示画面が作りたいです
777デフォルトの名無しさん (ﾜｯﾁｮｲ ff3e-z20m)
垢版 |
2022/10/01(土) 15:40:48.76ID:05rfSfda0
>>775
〜番号　名前　〜 〜 〜
の様な感じで列に追加していくやり方で作ろうかなと考えています
778デフォルトの名無しさん (ﾌﾞｰｲﾓ MM7f-FQI2)
垢版 |
2022/10/01(土) 16:48:39.94ID:vnBH5ihbM
>>776
まずワークシート上でlookup,index,matchで検索、表示できるものを作る。
それからフォームのテキストボックスに入れた値をワークシートの検索用のセルに書き込み、結果をフォーム上のテキストボックス、リストボックスに書き込むVBAを作る。
779デフォルトの名無しさん (ﾜｯﾁｮｲ ff3e-z20m)
垢版 |
2022/10/01(土) 16:50:40.38ID:05rfSfda0
>>778
ありがとうございます
まずはそこからですよね
2022/10/01(土) 16:52:55.19ID:GEkLNCKa0
どこでつまずいているかを書かないで答えだけほしいとか言われてもね
2022/10/01(土) 16:55:41.93ID:HuJ3UkiEd
>>768
こんなんVBAでもなんでもなくシステムを作りたいっていってるようなもんでしょ
金払って作ってもらえよ
2022/10/01(土) 17:09:04.65ID:AX86MJ2c0
>>768
なぜそれをエクセルでやりたいと思ったのか

今のレベルだと一から勉強レベルだと思えるが
c#かせめてVB.Net覚えたほうがいいんじゃない
2022/10/01(土) 18:15:10.78ID:BiebxrBw0
セルの内容（日付のところは文字列型（頭にアポストロフィ）で入れてる）
ID 名前 日付 イベント
1 名前1 2012年3月14日 Ａをした
2 名前2 2012年3月15日 Ｂをした
3 名前3 2012年3月16日 Ｃをした
4 名前4 2012年3月17日 Ｄをした
5 名前5 2012年3月18日 Ｅをした
6 名前6 2012年3月19日 Ｆをした

※Sheet1のマクロ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With UserForm1
y = ActiveCell.Row
.TextBox1 = Cells(y, 1)
.TextBox2 = Cells(y, 2)
.TextBox3 = Cells(y, 3) + vbNewLine + Cells(y, 4)
End With
End Sub

フォーム(UserForm1)を作って下記コントロールを配置
TextBox,TextBox1,TextBox2,TextBox3(Multiline=true),CommandButton1

UserForm1のマクロ
Private Sub CommandButton1_Click()
Sheets(1).Range("A1").AutoFilter 2, "*" & UserForm1.TextBox.Text & "*"
End Sub

ファイル開くイベントとかボタン作って下記マクロでフォームを表示
UserForm1.Show vbModeless
聞いた限りではこんなのしか思い浮かばない
2022/10/01(土) 18:31:08.84ID:oCrNNmAI0
VBAのPicture.Insertでリンク貼付けさせないようにクリップボード利用でPasteで貼り付けてみたら画像が異常に重くなりすぎて使い物にならない…。
おとなしくShapes.addPicture使うしかない？
2022/10/01(土) 18:49:59.64ID:PeKIyBQF0
>>768
Listobject作ってListrowsを都度登録する仕組みを作って目的のListrows()を呼び出すユーザーフォームを作ればいいんじゃないっすかね。
2022/10/01(土) 18:55:31.78ID:HuJ3UkiEd
まず質問者は何ができて何ができないのか気になるが何もできないんだろうなと推測してる
なのでここで丸投げしてバカなお人よしに作ってもらおうとしてるんだろ
2022/10/01(土) 23:20:55.43ID:BiebxrBw0
猪木が死んだ、時代が流れていく
思えばPCとの付き合いももう40年か
戦時中はと口癖のように言っていたジジイ共も消えてアマチュア無線なみにニッチな趣味だったPCが主流になるとは不思議なものだ
2022/10/02(日) 07:27:45.20ID:ySn/5a2I0
>>784
もとの画像が大きいんじゃね、表示用の画像を別途つくってから貼り付けてみ
789デフォルトの名無しさん (ﾜｯﾁｮｲ ff3e-z20m)
垢版 |
2022/10/02(日) 13:27:44.47ID:TlawqFoR0
>>783
わざわざありがとうございます
助かりました
790デフォルトの名無しさん (ﾜｯﾁｮｲ c3cd-vqPj)
垢版 |
2022/10/02(日) 15:47:28.98ID:DdgukWIZ0
>>787
おいおいいつだよって思ったら昨日かよ

>>786
それでいいと思うんだよな
それが社会の基本だし、暇な元事務のNEETはそれで快楽を得つつ勉強になり、
転職への自信になるだろう
791デフォルトの名無しさん (ﾜｯﾁｮｲ ff3e-z20m)
垢版 |
2022/10/02(日) 20:54:31.26ID:TlawqFoR0
VBAは作業を登録して自動化するくらいで覚えておいた方がいいですよね
2022/10/03(月) 06:16:19.93ID:S2WAje4f0
>>788
800kの画像でやってみたけど15Mぐらいまで巨大化してしまう
やはりAddPictureで代用してみる
2022/10/03(月) 07:27:24.16ID:4wRZXMmm0
VBEに書いたコードの整列っていうかコードを整えるっていうか自動インデントっていうかそんなショートカットキーがあったと思うけどなんだっけ？
2022/10/03(月) 17:56:19.40ID:M1bZx+HZ0
タブ
795デフォルトの名無しさん (ﾜｯﾁｮｲ ff4f-PeWp)
垢版 |
2022/10/03(月) 20:58:11.99ID:FDmFS1zQ0
>>791
変な枷付けること考えんと
好きに作っていいんやで
2022/10/04(火) 15:00:55.06ID:pLalriKq0
イベントで質問

余所で作ったエクセルにVBAで改造加えてるんだけど
1マス入力だけするSheetにActiveXのコマンドボタン付けたら
Worksheet_SelectionChange
が発生しなくなった

コマンドボタン押したイベントは拾ってるので
EnableEventsがFalseってわけじゃない（イミディエイトで確認済み）

デザインモードを解除してもWorksheet_SelectionChangeイベントが起きないので
しょうが無いからまた一から作り直したんだが
この現象って頻発するもの？
ググってもOfficeの修復かEnableEventsしか解決策が出てこない
2022/10/04(火) 15:54:59.32ID:TDYI1fTGd
>>792
Sub Macro1()
ActiveSheet.Pictures.Insert "C:\Work\Sample1.jpg"
End Sub



これで400KBのpngで試してみたけど
なぜかxlsmファイルのサイズは15KB
何か別の要因とか
2022/10/04(火) 19:28:07.31ID:uOFwOuxi0
>>796
そりゃエクセルを改造したら駄目だろ
2022/10/04(火) 19:47:41.77ID:o+JurUyd0
>>792
オプションの詳細設定-イメージのサイズと画質　ってどうなってる？
800デフォルトの名無しさん (ﾜｯﾁｮｲ 6f66-vqPj)
垢版 |
2022/10/04(火) 21:08:36.46ID:vyetwO+c0
Dim ar(2) As Variant
ar(0) = 1
ar(1) = 2
ar(2) = Split("1,2,3,4,5", ",")
Dim i
For i = 0 To UBound(ar(2))
ar(2)(i) = CLng(ar(2)(i))
Next i

splitで作ったジャグ配列の中身をlong型に変換したいです。
variant変数に一度入ったらもう無理ですか？
一応他の変数に入れる事で型変換には成功するのですが。
余計な変数を二つも用意してstringで作成されたのを一時的なvariant型ノーマル配列に
おさめてｍそのあとで本当に使いたい配列のジャグ配列に入れていくというのが
どうも汚い感じで腑におちません。
アドバイスもらえると助かります。
801デフォルトの名無しさん (ﾜｯﾁｮｲ ff4f-PeWp)
垢版 |
2022/10/04(火) 22:26:54.77ID:cce3s7590
>>800
出来ません
諦めてください
802800 (ﾜｯﾁｮｲ 6f66-vqPj)
垢版 |
2022/10/04(火) 22:43:48.69ID:vyetwO+c0
>>801
ありがとうございます。
ジャグ配列はRedim出来ないのがデメリットですね。
動的な配列の中にジャグ配列なのですが、なんとか先に不確定な親配列の中にある
不確定な数のジャグ配列を一時的なLong型配列に作って
そこからさらにsplitなしでなんとか作ろうとあれこれしてたら
よっぽど>>800の方法の方が処理がわかりやすくなってしまい徒労に終わりました。

諦めます。踏ん切りつきました。
2022/10/04(火) 23:35:06.72ID:o+JurUyd0
>splitで作ったジャグ配列
>動的な配列の中にジャグ配列
ジャグ配列って用語の使い方が微妙に間違ってる気がするが...

そもそも文字列を分割して配列作ってるんだから文字列の配列になるのが当然で
Variant上等でやるなら、それを使う側がVariantで受ければいいだけでは？

まあ俺ならどうしても文字列をSplitしてLongにしたいなら
Longの配列返すSplitのラップ関数作るけど
804デフォルトの名無しさん (ﾜｯﾁｮｲ e301-vqPj)
垢版 |
2022/10/05(水) 04:48:52.00ID:b9GTOuH90
sqliteで作ったジャグ配列。
2022/10/05(水) 07:10:06.74ID:8YZU4Hq7a
>>797
それでいくとうまくいくんだけどね、
通常のPictures.Insertだとリンク貼付けなのよ。他人に送付したら見れない。

だから一旦クリップボード経由でPaste使ってやってるんだがそれだと容量がヤバくなる。
806デフォルトの名無しさん (ﾜｯﾁｮｲ ff4f-PeWp)
垢版 |
2022/10/05(水) 08:07:32.65ID:hw4y4dFR0
そもそも何でもかんでも配列で処理しようとするのがちょっとねぇ。
例えば列に当たる要素毎に違う型を使いたいなら
ちょっと仕組みは大きくなるけどADODBのRecordsetを使うことや
1行の列データ単位の値を格納するクラスを作ってそれを行単位としてディクショナリやコレクションに追加して行くことも検討することを視野に入れると
結局後で読みやすく汎用性の高いロジックが組めたりする。

処理速度優先なら配列一択だからそのときのシュチュエーションに合わせて使い分けだね。
2022/10/05(水) 08:19:21.40ID:SsR8S72r0
構造体ではできんの？
ジャグ使う機会無いからなんとも言えんが
2022/10/05(水) 10:50:57.71ID:HrKgxVhUd
すぐDBとか持ち出す奴いるけどコスト考えたらそう簡単にDBなんか使わんと思うけどね
普通に配列処理用の関数のみのモジュールでコード管理すればいいだけと思うわ
809デフォルトの名無しさん (ｽｯﾌﾟ Sd1f-rSe5)
垢版 |
2022/10/05(水) 13:20:52.03ID:7KiNZ4t1d
>>808
何のコスト？
2022/10/05(水) 14:41:00.50ID:bxBPBLxH0
やっぱ好きなように作るのが１番ね
2022/10/05(水) 15:47:13.70ID:DsSYxIFi0
ワークシートがDBみたいなもんだしね
2022/10/05(水) 15:53:15.41ID:tZ9pwx2fM
学習コスト
2022/10/05(水) 21:19:11.66ID:/BrWnOTx0
コストコ
2022/10/05(水) 23:35:05.88ID:bxBPBLxH0
コスパ良い
815デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sd1f-zUcf)
垢版 |
2022/10/06(木) 16:49:22.22ID:wENRazb+d
例えば、誕生石を取得するGetBirthStone関数を作ろうとすれば引数は「日付 as Variant」と「月 as Integer(Long)」のどちらがいいでしょうか？
2022/10/06(木) 16:54:16.04ID:lmEPcDvIM
Dateではあかんのか？
2022/10/06(木) 16:55:37.45ID:1FPDwTBGM
そんなもんVLOOKUPで誕生石シートを検索すれば十分
VBAを正しく使うコツはVBAを可能な限り書かないことだよ
818デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sd1f-zUcf)
垢版 |
2022/10/06(木) 17:19:15.50ID:wENRazb+d
>>816
Date型でも大丈夫ですか？

一応、最初の部分はこう書いてみました
If Not IsDate(日付) then
GetBirthStone ＝ CVErr(xlErrValue)
Exit Function
819デフォルトの名無しさん (ﾜｯﾁｮｲ 238e-rSe5)
垢版 |
2022/10/06(木) 17:48:34.71ID:KR9VbeXw0
>>817
いや、むしろVBAだけの方がメンテしやすい
データとロジックは分ける方がいい
2022/10/06(木) 19:10:02.45ID:YSVEcn1gd
>>815
元のデータが何によるかで違うけど「月 as Integer(Long)」でいいのではと思う
仮に元のデータが日付でもGetBirthStone(Month(日付))で済む
月を渡すようなケースがありえないなら日付を渡して関数内でMonthを使うでもいい
821デフォルトの名無しさん (ﾜｯﾁｮｲ 435f-pIDl)
垢版 |
2022/10/06(木) 19:39:53.74ID:sUmENiPE0
月だけでいい
特定の日付に依らずある月の誕生石を知りたい場合に
意味のないDate値用意しなきゃいけなくなるから可読性が落ちる

>>817
誕生石みたいに改訂されたことがニュースになるくらい固定されてる内容ならコードにベタ打ちでいいと思う
祝日みたいに毎年変動するものとか、組合せの数が多すぎる要素ならシート管理の方が扱いやすいと思うけど
2022/10/06(木) 19:46:56.80ID:bktrTE7O0
>>815
その程度のこと自分で決められんようでは時間かかってしょうがないだろ
2022/10/06(木) 19:49:13.70ID:gOgPUvPm0
>>815
Function getBirthStone(日付 As Date)
Application.Volatile True
getBirthStone = WorksheetFunction.Choose(Month(日付), "ガーネット", "アメシスト", "アクアマリン", "ダイヤモンド", "エメラルド", "ムーンストーン、真珠", "ルビー", "ペリドット", "サファイア", "オパール、トルマリン", "トパーズ", "トルコ石、タンザナイト")
End Function

こんなかんじ？
824デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sd1f-zUcf)
垢版 |
2022/10/06(木) 22:32:10.00ID:wENRazb+d
>>823
ありがとうございます。
2022/10/06(木) 22:47:25.99ID:HCQdlFdq0
>>823
わざわざワークシート関数を呼ばなくてもVBAにもChoose関数あるよ
https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/choose-function
2022/10/06(木) 23:06:53.10ID:gOgPUvPm0
ほんとだｗ　てへ
2022/10/09(日) 17:09:18.30ID:Kilq6kjS0
>>803
ラップ関数作る解決方法最高です。
頭固かったです。
他にも導入できそうなところが見つかり助かりました。
感謝です。
2022/10/10(月) 21:48:05.32ID:P58+Ol8v0
>誕生石みたいに改訂されたことがニュースになるくらい固定されてる内容ならコードにベタ打ちでいいと思う
>>823を見ての通りこの手は表記ゆれが問題になる事が多いから
可能な限り外部データにした方がいい
2022/10/11(火) 13:53:54.44ID:uAPvvwer0
インプットボックスで入力される値が数字かどうか判断するコードってどう書けばいい？
2022/10/11(火) 14:15:03.61ID:fEDU7G4fd
・符号(+-)を許すか
・ドット(小数点)を許すか
・カンマ(桁区切り)
を踏まえて文字の妥当性チェックすればいいんじゃないの
2022/10/11(火) 14:17:40.55ID:fEDU7G4fd
あと自分はWorksheetFunction使うの好きじゃないけど
WorksheetFunction.IsNumber
でもいいかもね
2022/10/11(火) 14:26:37.29ID:H84z/pNR0
全角は？漢数字は？ローマ数字は？欧米式の桁区切りは？
入力検査は考え始めるとキリがない分野の一つだぜ
833デフォルトの名無しさん (ﾜｯﾁｮｲ ca4f-R5DV)
垢版 |
2022/10/11(火) 15:13:10.17ID:DoWcBI1l0
>>829
IsNumericじゃダメなの？
2022/10/11(火) 17:02:04.45ID:uAPvvwer0
>>833
さんきゅーそれだ
てかVariant型が数値かどうか調べられるんだな～
書き方解ったらvartypeとかtypenameでも行けそうな気がする
ちょい試してみよ
835デフォルトの名無しさん (ﾜｯﾁｮｲ ca4f-R5DV)
垢版 |
2022/10/11(火) 18:13:13.59ID:DoWcBI1l0
>>834
語弊があるといけないから言っておくと、
IsNumericはあくまで数値として扱える値(数値に変換出来る値)かどうかを判定するよ。
だからString型でも”123”みたいのはTrueを返すからそこは注意してね。
2022/10/11(火) 20:16:52.08ID:hb9m45MO0
考慮点はまだあるぞ
IsNumericって
"\3"とか"3e3"とか"&habc"とかもTrueだぜ
2022/10/12(水) 08:33:18.55ID:FAaW2+wFd
じゃ足し算する関数を別に作ってﾉｰｴﾗｰで戻ってきたら数値

Sub Main()
　'全角数字も数字と見なす
　If Suujikana(StrConv(InputBox("入力せぇ"), vbNarrow)) Then
　　MsgBox "数字だよ"
　Else
　　MsgBox "数字じゃないよ"
　End If
End Sub


Function Suujikana(moji As Long) As Boolean
　On Error GoTo er
　moji = moji + moji
　Suujikana = True
　Exit Function
er:
　Suujikana = False
End Function
2022/10/12(水) 08:35:48.26ID:FAaW2+wFd
あ、これじゃだめかえらーでるあ
2022/10/12(水) 08:38:00.09ID:FAaW2+wFd
このやろ、variantにしたら＋で文字列つくりやがって
こんのやろぉ
2022/10/12(水) 08:39:59.19ID:FAaW2+wFd
これでいい？らめ？

Sub Main()
　'全角数字も数字と見なす
　If Suujikana(StrConv(InputBox("入力せぇ"), vbNarrow)) Then
　　MsgBox "数字だよ"
　Else
　　MsgBox "数字じゃないよ"
　End If
End Sub


Function Suujikana(moji As Variant) As Boolean
　On Error GoTo er
　moji = moji * moji
　Suujikana = True
　Exit Function
er:
　Suujikana = False
End Function
841デフォルトの名無しさん (ﾜｯﾁｮｲ ca4f-R5DV)
垢版 |
2022/10/12(水) 09:33:08.65ID:JFXNmWRt0
>>836
まぁその辺は数値として受け取れるとも言えるからね。
その辺除外したいなら最初に“¥”や“e”や“&h”が含まれていたら数値ではないって分岐入れとけばいいだけじゃないの？
2022/10/12(水) 09:45:17.75ID:05zETGAlM
>>840
自分も同じこと考えたけど型の制約が緩いと面倒くさそうなので思考を放棄した、よく頑張ったな
2022/10/12(水) 10:05:45.44ID:05zETGAlM
そういえば昔型はあるのとないのではどっちが良いのかって記事を見たことあるな
結局型がないと論理エラーが出ないように型をちゃんと理解する必要があるって書いてた
2022/10/12(水) 10:15:23.77ID:FnwlmZOz0
kgとkmは単純に足し算しても意味ないからな
2022/10/13(木) 04:03:11.23ID:j3UF+2500
別にVBA使わなくてもワークシート関数でできるじゃんって意見どう思う？
846デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2f-UxA0)
垢版 |
2022/10/13(木) 04:08:37.62ID:QthptHxba
やりたいようにやれ
2022/10/13(木) 05:43:31.20ID:l6HSpiwg0
>>845
内容によるけどまあワークシート関数でできるならその方がいいだろうな
848デフォルトの名無しさん (ﾜｯﾁｮｲ 03ba-1XYb)
垢版 |
2022/10/13(木) 06:51:28.60ID:R3JkkIAh0
A1に入力されているものが消えたらB1以降の入力セルデータが右から左に自動で繰り上がってくるようにしたいのですがこれで大丈夫ですか？

これをA20くらいまで適用したいんですけど教えて貰えませんか...？

Private Sub Worksheet_Change(ByVal
Target As Range)
If Target.Address = Range("A1").Address
And IsEmpty(Target) Then
Application.EnableEvents = False
lastrow = Cells (Rows.Count,
"A").End(xIUp).Row
Range("B1:F1"&lastrow).Copy
Range("A1").PasteSpecial xIPasteValues
Range ("A"&lastrow).ClearContents
Application.EnableEvents = True
End If
End Sub
2022/10/13(木) 11:53:03.67ID:Ue05WQwm0
キーボード操作でマクロ作って呼べばいいんじゃね
2022/10/13(木) 13:03:11.83ID:8suwpN2kr
"B1:F"&lastrow
下から4行目は何の処理かな
g列以降にデータがないなら、a列削除でもいけそう
2022/10/13(木) 13:57:54.49ID:UFLyO0SD0
xIUp >> xlUp >> xlLeft
xIPaste >> xlPaste

excel だから　xl だよ
本から手入力したのかな
2022/10/13(木) 15:04:44.40ID:xeSsgHCJ0
文字列にしてTrimして
右から一文字づつAscでコード調べて数字判別してる
2022/10/13(木) 18:35:01.73ID:ya6JFJPp0
>>845
関数なんか使ったことない
全部マクロでできるし
2022/10/13(木) 19:55:20.65ID:oYcLbXFh0
ワークシート関数も便利なものは便利で、
パフォーマンスについてVBAより良い場合があるものもあった記憶がある
まあ使い分けだな
2022/10/13(木) 20:16:02.23ID:l6HSpiwg0
あたりまえだかパフォーマンスはワークシート関数の方が高いよ
そもそもマルチスレッドで動くし
2022/10/13(木) 21:52:09.43ID:h4dbAy9A0
問題はたくさんのセルに関数を入れまくると超遅くなることだ
2022/10/13(木) 22:26:40.06ID:QRzYIXmy0
>>845
できるだけ関数に寄せる方が良いと思う
あまりに複雑になりすぎるなら、vbaでも良いって感じ
2022/10/13(木) 22:36:14.16ID:l6HSpiwg0
>>856
それVBAでやったらそのセルの分ループで回すことになるからますます遅くなるわけで...
2022/10/13(木) 23:31:54.00ID:bK0Z5PO+0
カスタム関数は使い捨て
860デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2f-UxA0)
垢版 |
2022/10/14(金) 02:09:11.91ID:CZenHna/a
ワークシート関数は自動計算で実行する
マクロ(vba)はイベントで実行する
2022/10/14(金) 12:43:43.74ID:Ad8SzhkB0
>>845
ワークシート関数で済むならそれに越したことはない
複雑になりすぎてVBA使うのと変わらんレベルになるくらいなら、状況次第でVBA使うこともある
よく検討してみてExcel仲介する必要ないならVBSなんかも視野に入ってくる
他のより良い手段があるならそっちにする
2022/10/14(金) 13:06:50.25ID:fje2pDJC0
ケースバイケースという当たり前の結論
だがそれが大事
863デフォルトの名無しさん (ﾜｯﾁｮｲ 9f4f-wXMq)
垢版 |
2022/10/15(土) 01:10:39.87ID:zmWNo0nm0
そういや何気にVBAの中でCallByName使うとJavaScript 使えるらしいね。
使ったことないけど。
2022/10/15(土) 01:25:23.69ID:eU4yePu40
>>863
どういうこと？　どうやるの？
2022/10/15(土) 07:21:27.16ID:tw/asOzR0
>>863
文字列で言語書いて実行するのってどうも好きじゃないな
そもそも有効な場面ってあるんだろうか
http://bougyuusonnin.seesaa.net/article/191171013.html

>>864
調べなよ・・・
866デフォルトの名無しさん (ﾜｯﾁｮｲ 9f4f-wXMq)
垢版 |
2022/10/15(土) 09:05:24.46ID:zmWNo0nm0
>>865
さあ？
メソッドチェーンが使えるくらい？
まぁ無理して使うもんでもないような。
現にJavascript知っててもVBAに混ぜて
使うような状況なんてなったことないし、
大体記述がめんどいし。
2022/10/15(土) 09:07:30.39ID:tw/asOzR0
>>866
ありがとう
やっぱりほとんど無いよね。
2022/10/16(日) 03:31:09.39ID:IoSf1xr/0
メリットはネイティブの手段でJSONがパースできるようになる事なんだけどVBAで必要になることはほとんどないか
ちなみに似たような方法でHtmlFileからIEのjavascriptを呼ぶ方法もある
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況