Excel VBA 質問スレ Part51

Excel VBA 質問スレ P ..

858:デフォルトの名無しさん
18/01/04 08:01:11.56 5mprgbRzp.net
>>830
すみません説明不足でした。
キー項目が1000種類以上あり、毎回CSVから読み込んでから処理をする為、事前にWorkSheet関数を作っておくのが難しい状況です。
何か手はありますか？

859:デフォルトの名無しさん
18/01/04 10:15:47.38 fF+rBx/60.net
データベース系のデータは素直にデータベースソフトで管理しようよ・・・。
アクセスでやればマウス

860:操作だけで終わる様な問題だよ。

861:デフォルトの名無しさん
18/01/04 10:22:48.62 d1LyNdol0.net
>>834
ADOでcsvファイルをデータベースとして接続して >>831 に挙げられた
SELECT文を実行する、という手段がとれる

862:デフォルトの名無しさん
18/01/04 10:31:44.20 no6Ylxj0a.net
sqlならselectとorder byだけですむ案件だな
愚直にプログラム組むと厄介だけどね

863:デフォルトの名無しさん
18/01/04 10:38:07.48 7zx5w2nrd.net
ピボットでいいんじゃね

864:デフォルトの名無しさん
18/01/04 11:56:10.93 iFN99ve4d.net
LINQって使えないんだっけ？

865:デフォルトの名無しさん
18/01/04 13:22:48.32 Gj6t78kg0.net
>>829
嘔吐フィルターかけてソートしてから
一致を

866:上からみて加算と消去フィルター解除忘れずに(多分ソート直後にすぐ)

867:デフォルトの名無しさん
18/01/04 13:42:37.28 hO93+Igl0.net
>>829
↑
上級者じゃない俺なんかこういうのみると
全部2次元配列にぶちこんでif多用して無理矢理やっちゃうんだけど
そういうのはだめなの？

868:デフォルトの名無しさん
18/01/04 13:47:48.60 cJgHrV+ta.net
>>841
だめじゃないし、初心者なら無理やりVBAで組むのも勉強になるよ
重複の無いリスト作るのがやや面倒というか、煩雑になりがちなところだな
エクセルの機能使えばいいっちゃいいけど、好みじゃないな

869:デフォルトの名無しさん
18/01/04 13:55:27.88 hO93+Igl0.net
>>842
おれこういうの無理矢理やっちゃうの大好きで完成すると充実感半端ない
俺が組むマクロってそんなのばかりだ
基本初心者レベルの知識しか使わないでやっちゃうんで、
こういう質問をする人は、無理矢理やると遅くなるとか別の理由があって聞いてるのかな？
とか思っちゃう

870:デフォルトの名無しさん
18/01/04 15:19:59.75 kPmYITG+0.net
ファーム1の中に、オプションボタンが18個あり、オブジェクト名を『OP_1』～『OP_18』としてボタン1を押してフォーム2に切り替える時に選択されてるオプションボタンのキャプションを取得して変数TUR1に入れたいんですけどどうしたらいいですか？

871:デフォルトの名無しさん
18/01/04 16:20:08.23 pGh8JphK0.net
>>844
For i = 1 To 18
With Me.Controls("OP_" & CStr(i))
If .Value = True Then
TUR1 = .Caption
Exit For
End If
End With
Next

872:デフォルトの名無しさん
18/01/04 17:41:48.62 uhyB+DSmd.net
初心者なんだけど以下のような表から特定のセルに入力された場合だけ、特定のセルをカウントする方法ってありますか？
Aは全て
Bは選ばれたものだけ、みたいな
Aの全てをカウントするのはわけないんだけど、Bの選ばれたものだけをカウントする方法がわからない
IF使うにしても何を指定すればいいのでしょう？
わかりにくかてすいません
URLﾘﾝｸ(o.8ch.net)

873:デフォルトの名無しさん
18/01/04 17:54:54.38 IwnGnNnba.net
>>843
普通にやり方がわからないんじゃないの
>>846
cがキーになるなら重複しないcの一覧をつくって二次元配列でも構造体でもいいけどbがtrueならカウントするっていう風にすればいいと思う
件数多いならDBの領分だと思うけどね、この手の集計は

874:デフォルトの名無しさん
18/01/04 18:02:17.19 HiTEnEcXd.net
>>845
ありがとうございます！

875:デフォルトの名無しさん
18/01/04 18:13:43.61 uhyB+DSmd.net
>>847
Bがtrueなら、というのはどうやって指定すればいいですか？
範囲指定で

876:デフォルトの名無しさん
18/01/04 18:23:20.07 uhyB+DSmd.net
すいません、間違えて書き込んでしまいました
>>847
Bがtrueなら、というのはどうやって指定すればいいですか？
範囲指定でがっつりやると、指定した範囲に一つでもtrueがあるとカウントしてしまって結局全部をカウントしてしまうんです

877:デフォルトの名無しさん
18/01/04 18:27:59.94 iMxAIJokM.net
>>829
何も難しく考えなくても、E列に=A&B&Cを入れて、E列を行ラベルにしてピボットテーブルで集計するだけで出来るよ。
ABC列をもどしたいならINDEX,MATCHで引っ張って来ないといけないけども、日々エクセル使ってる人なら手慣れたものだと思う。と言うか慣れておくと色々便利。
詳しい解説いるならする

878:デフォルトの名無しさん
18/01/04 18:58:58.92 IwnGnNnba.net
>>850
一行ずつループしてるんだよね？
フラグ用に変数用意してるなら一ループごとに初期化し直さないとだめよ
ってか、今どんなコードで動かしてるか書いてくれるとやり易いんだけど

879:デフォルトの名無しさん
18/01/05 02:37:52.28 Uixpo

880:pG00.net

881:デフォルトの名無しさん
18/01/05 17:45:28.92 Kfn/8I4m0.net
HTMLソースで
<a href = URL1</a>
<br />****　←　4桁の特定の数字が入る
<a href = URL2>予約中</a>
<a href = URL3>[取消]</a><br /><a href = URL4>[訂正]</a>
上記の4桁の数字とURL以外同様のソースが全部で10個あるページがあり、C5セルに4桁の数字を入れ、それに対応したURL3のリンクをクリックしたいのですが、どうすれば可能でしょうか？
IEでそのページまで飛ぶのは問題ないのですが、aタグのインナーテキストが4桁の数字以外共通なためForとGetElementsByTagNameとの組み合わせでクリックできないので何か手段があれば教えて頂きたいです。

882:デフォルトの名無しさん
18/01/05 21:06:25.46 UyFZaUswa.net
>>829
そういう処理だったらソートしても問題無さそうだからソートしてループで良いんじゃね?
>>854
4桁の数字以外共通だとどうしてForとGetElementsByTagnameとの組み合わせでクリック出来ないのかが分からん。

883:851
18/01/05 21:25:01.57 Kfn/8I4m0.net
>>855
あ、確かに。書き間違えました。下記のコードだと10個のリンクのうち、一番上にあるやつをクリックすると思うのですが、
C5セルに入力した特定の4桁の数字の下にあるリンクをクリックしたいのです。
For Each obj In objIE.Document.getElementsByTagName("a")
If InStr(obj.innertext, "取消") > 0 Then
obj.Click
Exit For
End If
Next

884:デフォルトの名無しさん
18/01/05 22:16:41.06 vO88ak3C0.net
DOMに親要素とか隣の要素を見ていくのあったよね
あれで必要なだけ移動させればいいんじゃね

885:デフォルトの名無しさん
18/01/05 22:20:08.87 vO88ak3C0.net
>>829を
>>836の方法で頑張ってコードにしたのを書き込みたいんだけど
403になっちゃうのよね
禁断のコードが含まれているのかしら

886:デフォルトの名無しさん
18/01/07 08:20:46.08 .net
>>846
VBAを使わずにExcelの計算式で書くとこうだよね。
・C列が「10」、B列が「○」の行を数えるなら
=COUNTIFS($C$2:$C$6,10,$B$2:$B$6,"○")
・C列が「10」、B列が空以外の行を数えるなら
=COUNTIF($C$2:$C$6,10)-COUNTIFS($A$2:$A$6,10,$B$2:$B$6,"")
これをVBAで書きたいなら、そのままワークシート関数を呼び出せばいい。
・C列が「10」、B列が「○」の行を数えるなら
With Worksheets("Sheet1")
dblCnt = WorksheetFunction.CountIfs(.Range("C2:C6"), 10, .Range("B2:B6"), "○")
End With
・C列が「10」、B列が空以外の行を数えるなら
With Worksheets("Sheet1")
dblCnt = WorksheetFunction.CountIf(.Range("C2:C6"), 10) - WorksheetFunction.CountIfs(.Range("C2:C6"), 10, .Range("B2:B6"), "")
End With
注：COUNTIFS関数はOffice 2007で追加されたので、2003とかでも動くようにするには
　計算式なら配列数式を使うかダミーの結合列 (例: F列に =B2&”:”&C2)を使う必要があるし、
　VBAなら自前で1行ずつループするFor文を書く必要がある。

887:デフォルトの名無しさん
18/01/08 01:12:41.23 bgHHDE53D
>>856
すごい　お馬鹿な返信で申し訳ないけど
イメージとしてまず、

<a href = URL1</a>
<br />****　←　4桁の特定の数字が入る
<a href = URL2>予約中</a>
<a href = URL3>[取消]</a><br /><a href = URL4>[訂正]</a>

の部分がページ内で繰り返して複数あるなら、この部分だけを取り出す処理を繰り返して　splitなりで個数を数えて　処理するとか。（取り出す位置は、InStrで取って、終わり位置を　次の開始位置にして）

その上で、この部分にC5と同じ値があるならクリックするとか。
C5の値を変数aにして、InStr(取り出した部分, a) > 0で良いような。

すいません。曖昧な返信で。

888:sage
18/01/11 23:28:08.34 kwmxLljDv
教えていただきたいです。

あるセルの数字に関して
o以下と12以上はA
6以上12未満はB
それ以外はなしという式を作るとしたら

=if(or(セル<0,セル>=12),"A",if(6<セル=<12,"B"," "))
という式ではちゃんと返ってきません。

正しい式をご教授願います。

889:デフォルトの名無しさん
18/01/11 12:40:04.91 eKl5cJvJd.net
コンボboxを使ってサジェスト機能みたいなことをしたくて作ってみたんだけど、1文字目はうまくいくんだけど2文字目以降打つとリストの一番上が乗ってきて使い心地が良くないんだけど、どうしたらいいですか？
コンボboxのリストのみをクリアするやり方もいまいちわかりません。

j=2
Tname.rist=array()
set MstSht=worksheets(″マスター″)
str_word=controls(″Tname″&j).value
for i=2toMstSht.cells(rows.count,6).end(xlup).row
if instr(ucase(MstSht.cells(i,6).value),ucase(str_word))=1 then
controls(″Tname″&j).additem MstSht.cells(i,6).value
end if
next

890:デフォルトの名無しさん
18/01/11 19:23:41.06 WJjCr32Q0.net
エクセルの2003ですが、
並べて比較を使用した際にペアになっているブックと、
そのブックで表示されているシートを取得するには
どのように記述すればいいでしょうか。

891:デフォルトの名無しさん
18/01/11 21:16:23.66 JbTpKTF6M.net
>>863
何を言っているのでしょうか？

892:デフォルトの名無しさん
18/01/11 21:25:37.65 a2sLbYI50.net
世界教師マイトＬーヤ「大暴落は日本からスタート」
ｽﾚﾘﾝｸ(2chse板)
【マイトＬーヤ】　米国債を売れ　【１２００兆円】
ｽﾚﾘﾝｸ(eco板)

893:デフォルトの名無しさん
18/01/12 01:30:55.27 GWvM9lig0.net
>>863
Excel2003はサポート切れてますので
Excel2007にのりかえましょう

894:デフォルトの名無しさん
18/01/12 01:41:04.62 .net
>>866
Excel2007なら>>863できるん？(´・ω・`)

895:デフォルトの名無しさん
18/01/12 15:56:41.55 kdQVxAch0.net
0回目って何？

896:デフォルトの名無しさん
18/01/12 19:59:42.26 8L8z7qJh0.net
vbModelessで開いたUserForm上のTextBoxにSetFocusするようInitializeに記述しても効きません
これって無理なんですかね？
vbModelessを切るとフォーカスがちゃんとTextBoxに移るんですけどね

897:デフォルトの名無しさん
18/01/12 23:20:03.95 Ln5WwMFr0.net
初期状態でフォーカスを当てたいなら
UserForm.Show vbModeless
UserForm.TextBox.SetFocus
とフォームを呼んでいるプロシージャ側に書く
フォームのイベントならActivateでどうでしょう
毎回フォームがアクティブになるたびフォーカスしちゃうけど
Initializeがなぜはしらないのかは知らない

898:デフォルトの名無しさん
18/01/12 23:44:10.99 Ln5WwMFr0.net
実験してみたらInitializeは呼ばれてるけど
SetFocusだけがだめみたい
他のことは普通にできる
なんでしょうね

899:デフォルトの名無しさん
18/01/12 23:46:18.93 WKndAwKhM.net
いやExsel 2007もサポート切れてますが

900:デフォルトの名無しさん
18/01/13 03:26:50.74 0Hr8k8ED0.net
>>871
自分でもいろいろやってみたんですけどやっぱりダメみたいですね
ありがとうございました

901:デフォルトの名無しさん
18/01/13 09:26:06.50 60QkmGs40.net
試してないけど、プロパティのTabIndexも駄目だったの？

902:デフォルトの名無しさん
18/01/13 10:05:22.76 8yN0Kzpj0.net
ThisWorkbook.Application.Hwndでブックのハンドルを取得して、
SetLayeredWindowAttributesで透過処理をする時、
LWA_ALPHAでは問題ないのに、
LWA_COLORKEYに変えると、なぜかブック全体ではなく、
シート上に最初に配置したコマンドボタンの方に誤爆します。
しかも、自分のPCでは問題ないのに、他人のPCだと誤爆するという意味不明さ。
ハンドルがずれる的なバグでもあるのでしょうか?

903:デフォルトの名無しさん
18/01/13 10:12:39.30 .net
ウィンドウ表示時にフォーカス当てたいんならTabIndex=0にすればいいんだと思うけど、
あとはフラグを使ってInitialize直後のActivateイベントでフォーカスを当てればいいんじゃね？
Private mblnInitFlag As Boolean
Private Sub UserForm_Activate()
If mblnInitFlag Then
TextBox2.SetFocus
mblnInitFlag = False
End If
End Sub
Private Sub UserForm_Initialize()
mblnInitFlag = True
End Sub

904:デフォルトの名無しさん
18/01/13 10:19:25.53 WLDq+ue70.net
一つ目の表
A,B,C,D,E
aaa,bb,cc,00,20
bbb,cc,dd,11,30
二つ目の表
G,H,I,J,K
aaa,bb,cc,00,10
bbb,cc,dd,11,10
上の様な表があり、一つ目のABC列と二つ目のGHI列の値が一致すれば、二つ目の表の横にE列からK列の数値を引いた値を表示したい。
一致するデータが無ければ、一致データ無しと表示。
上の表だと2つ目の表の右列に、それぞれ10,20と表示。
データ量は300~800程です。
出来る方、よろしくお願いします。

905:デフォルトの名無しさん
18/01/13 10:29:13.82 .net
>>875
LWA_COLORKEYは指定した色を透明にするんだから、
その他人のPCでExcelのウィンドウの色が違うんじゃね？
知らんけど

906:デフォルトの名無しさん
18/01/13 10:31:29.99 uYJANG/vd.net
既存プログラムで引数が多いやつを減らしたいんだけどどうすればいい？
ただグローバル変数使うと他のアプリケーションに影響出るから使えない。
今から構造化やクラスにするのは名前変更が大変そうだし、同じ型でも同じ動作でもないからまとめにくい。

907:デフォルトの名無しさん
18/01/13 10:39:42.82 8yN0Kzpj0.net
>>878
それが、コマンドボタンとシートの色を同じにしても、
コマンドボタンの方だけ透過されるんです。
しかも最初に配置したコマンドボタンだけ。
2個目以降は変わらず。
透過の前後で、ハンドルの値をデバッグプリントしても変化ないですし。

908:デフォルトの名無しさん
18/01/13 10:49:24.82 .net
>>877
2007以降限定でよければL列に計算式埋め込んじゃうけどね
=IF(COUNTIFS($A:$A,$G1,$B:$B,$H1,$C:$C,$I1)>0,SUMIFS($E:$E,$A:$A,$G1,$B:$B,$H1,$C:$C,$I1)-$K1,"一致データ無し")

909:デフォルトの名無しさん
18/01/13 11:20:55.87 8yN0Kzpj0.net
ちなみに、こんなのです。
Sub test(ByVal Flg As Boolean)
Dim Hwnd As Long: Hwnd = ThisWorkbook.Application.Hwnd
Call SetWindowLong(Hwnd, -20, &H80000)
If Flg Then
Call SetLayeredWindowAttributes(Hwnd, 0, 200, 1)　'←成功
Else
Call SetLayeredWindowAttributes(Hwnd, 0, 200, 2)　'←コマンドボタンに誤爆
End If
End Sub
変えているのは最後の引数だけなんですが。

910:デフォルトの名無しさん
18/01/13 11:27:43.02 .net
>>879
Sub test1()
Dim args(5) As Variant
Dim arg1 As String
Dim arg2 As Long
Dim arg3 As Variant
Dim arg4 As Workbook
Dim arg5 As Collection
arg1 = "test"
arg2 = 123
arg3 = ActiveSheet.Cells(1, 1)
Set arg4 = ActiveWorkbook
Set arg5 = New Collection
arg5.Add New DataObject
arg5.Item(1).SetText "sample"
args(1) = arg1
args(2) = arg2
args(3) = arg3
Set args(4) = arg4
Set args(5) = arg5
Call test2(args)
End Sub
‘ ―
Sub test2(ByRef args As Variant)
Dim arg1 As String
Dim arg2 As Long
Dim arg3 As Variant
Dim arg4 As Workbook
Dim arg5 As Collection
arg1 = args(1)
arg2 = args(2)
arg3 = args(3)
Set arg4 = args(4)
Set arg5 = args(5)
Debug.Print arg1
Debug.Print arg2
Debug.Print arg3
Debug.Print arg4.Name
Debug.Print arg5.Item(1).GetText
End Sub

911:デフォルトの名無しさん
18/01/13 13:04:46.60 WLDq+ue70.net
>>881
列の挿入や削除の処理があるので、数式だと参照ズレなどが起こってしまうので出来たらVBAで処理したいと考えています。

912:858
18/01/13 13:29:13.07 eGapce6A0.net
>>866
Excel2010を用意しました。
>>864
エクセルで「Book1」「Book2」「Book3」を開いた状態で、
「Book1」「Book2」を並べて比較している時に、
ペアになっている「Book1」「Book2」を特定する方法、
もしくは「Book1」がActiveWorkbookの時に「Book2」を特定する方法が知りたいのです。

913:デフォルトの名無しさん
18/01/13 13:42:21.62 .net
>>885
計算式でできればVBAでもそのままできるやん
>>859参照

914:デフォルトの名無しさん
18/01/13 13:47:55.56 fyAvIt7m0.net
並べて比較って
人間が何かを見比べて確認しているわけだから
その作業は人間がやる必要ないとおもうので
全部VBAでバックグランドで処理すればいいのではないかと単純に思ってしまう
最後に比較した結果だけ表示してあげる

915:デフォルトの名無しさん
18/01/13 15:21:57.51 eGapce6A0.net
>>886
比較自体は計算式でできますが、
比較する対象を特定する事は計算式でできない気がします。
>>887
挿入等によって比較したい箇所がBook１と２で異なる可能性がある為、
事前に比較の起点となる箇所を選択する必要があります。

916:デフォルトの名無しさん
18/01/13 16:53:07.70 .net
>>888
> 比較する対象を特定する事は計算式でできない
意味分からん
=IF(COUNTIFS($A:$A,$G1,$B:$B,$H1,$C:$C,$I1)>0,SUMIFS($E:$E,$A:$A,$G1,$B:$B,$H1,$C:$C,$I1)-$K1,"一致データ無し")
この計算式を単純にVBAに置き換えて
With Worksheets("Sheet1")
If WorksheetFunction.CountIfs(.Range(“A:A”), .Range(“G1”), .Range(“B:B”), .Range(“H1”), .Range(“C:C”), .Range(“I1”)) Then
.Range(“L1”) = WorksheetFunction.SumIfs(.Range(“E:E”), .Range(“A:A”), .Range(“G1”), .Range(“B:B”), .Range(“H1”), .Range(“C:C”), .Range(“I1”)) - .Range(“K1”)
Else
.Range(“L1”) = “一致データ無し”
EndIf
End With
行列を変数で指定できるように.Rangeを.Columnsや.Cellsに置き換えて数値で指定できるようにして
With Worksheets("Sheet1")
If WorksheetFunction.CountIfs(.Columns(1), .Cells(1,7), .Columns(2), .Cells(1,8), .Columns(3), .Cells(1,9)) Then
.Cells(1,12) = WorksheetFunction.SumIfs(.Columns(5), .Columns(1), .Cells(1,7), .Columns(2), .Cells(1,8), .Columns(3), .Cells(1,9)) - .Cells(1,11)
Else
.Cells(1,12) = “一致データ無し”
EndIf
End With
あとは必要なところを変数化してループを回せばいいじゃん
Dim rngCell As Range
Dim lngRow As Long ‘ ループを回すため行番号を変数化
With Worksheets("Sheet1")
Set rngCell = .Cells(1, 12)
‘ 表の詳細仕様が分からないのでとりあえずK列が空じゃない限りループ続行
While rngCell.Offset(0, -1) <> “”
lngRow = rngCell.Row
If WorksheetFunction.CountIfs(.Columns(1), .Cells(lngRow,7), .Columns(2), .Cells(lngRow,8), .Columns(3), .Cells(lngRow,9)) Then
rngCell = WorksheetFunction.SumIfs(.Columns(5), .Columns(1), .Cells(lngRow,7), .Columns(2), .Cells(lngRow,8), .Columns(3), .Cells(lngRow,9)) - .Cells(lngRow,11)
Else
rngCell = “一致データ無し”
EndIf
Set rngCell = rngCell.Offset(1, 0) ‘ 次の行
Wend
End With
列の追加削除があるということだったら列番号も変数化すればいい

917:デフォルトの名無しさん
18/01/13 17:00:25.96 zzyV/8sb0.net
初心者で申し訳ありません
セルに入力した選手コードを選手名に置換するような動きをさせたいのですがどうするとよいでしょうか
別のシートに選手名簿は用意してありA列に選手コードB列に選手名があります

918:デフォルトの名無しさん
18/01/13 17:42:32.57 8qhapkmN0.net
>>890
VBA要らん
VLOOKUPでググれ

919:デフォルトの名無しさん
18/01/13 17:48:09.64 8qhapkmN0.net
すまん「置換」を見落とした
VBAは要るな
WorksheetFunction.VLookup でやるなり、ループで検索するなりやればいい

920:デフォルトの名無しさん
18/01/13 17:50:29.11 gLbKwyK9x.net
>>890
普通はセルに入力された選手コードをわざわざVBA置換するなんてことはしないで、VLOOKUP等のワークシート関数を書くけどね
置換操作をVBAで書かなきゃいけない理由はあるの？

921:デフォルトの名無しさん
18/01/13 17:58:56.84 .net
>>890
>セルに入力した選手コードを選手名に置換するような動きをさせたい
セルに選手コードを入力して、Enterを押した途端に選手名に置き換わるような動きをさせたいんだな？そうなんだな？

922:デフォルトの名無しさん
18/01/13 18:00:41.47 gLbKwyK9x.net
>>892
検索置換のダイアログでシート内の選手コードを一括変換する、みたいな手作業の業務手順をそのままマクロ化しようとしているのかもしれないし、そういう場合はそもそもシートの設計や業務手順に問題がある場合が多い。
最初にVLOOKUP使えと指摘したあんたの感覚は基本的には正しいと思うぞ。

923:デフォルトの名無しさん
18/01/13 18:06:27.84 fyAvIt7m0.net
>>890
単発ならワークシート関数でやった方が簡単
VLOOKUPで変換したのを用意しといてそれをごそっと上書きする
何回もやるなら、上記をマクロにする
このくらいならマクロの記録でもいけそう
全部VBA上でやる方法もあるけどビギナーには大変でしょう
こんな感じでいいんじゃなかろうか
Dim i
i = スタートする行
Do While Not Worksheets(1).Cells(i, 1) = ""
Worksheets(1).Cells(i, 1) = WorksheetFunction.VLookup _
(Worksheets(1).Cells(i, 1), Worksheets(2).Range("名簿範囲"), 2, 0)
i = i + 1
Loop
シートのインデックスとかは書き換えてね
意味不明ならマクロ記録かさらなる修行をオススメする

924:デフォルトの名無しさん
18/01/13 18:07:34.63 gLbKwyK9x.net
>>894
VBAに慣れてる人ならセル値の置換と聞いただけでワークシート更新イベントを使いたいのかなって思いがちだよな
俺も最初はそう思ったわ
でも質問者の質問内容を推測抜きで素直に読むとそうとは限らないんだよな

925:デフォルトの名無しさん
18/01/13 18:19:24.76 zzyV/8sb0.net
>>893
トーナメントの結果を入力するようになっているのですが既に報告用ワークシートはあるのですが入力件数が多くなりすぎて最終的にはバーコードによる入力を試みようとしています
また、その報告用ワークシートは書式が決まっており並べ替えエラーチェックのマクロが既にあるので行を入れたりして関数をいれる対応ができないという状態です
>>894
入力後にマクロ実行用のボタンを押して置換するような想定でした
エンターを押した瞬間変わるものでも大丈夫です

926:デフォルトの名無しさん
18/01/13 18:35:21.45 zzyV/8sb0.net
>>892
>>896
ありがとうございます
家に帰り次第試してみます
>>895
今まではワークシート内から対戦選手の名前を探してきてコピーアンドペーストで対応していたのですが参加者が年々増えてきて（今年の見込みは約千人位）追い付かなくなってきたために速度向上を目的としています

927:858
18/01/13 18:44:45.15 eGapce6A0.net
>>889
VBAに記述のあるWorksheets("Sheet1") の箇所を、
並べて比較でペアにしているシートに特定する方法が思いつかないのです。

928:デフォルトの名無しさん
18/01/13 19:03:27.44 rZTV+Qsta.net
>>900
ファイル名とかシート名がランダムでないなら
固定値じゃないの？
どんなファイル名か分からない、シート名か分からないってなら都度入力するしかないな。
データ形式で特定することもできるけど、
無駄な作業にしか思えない。

929:デフォルトの名無しさん
18/01/13 19:18:42.64 gLbKwyK9x.net
>>898
こんな感じならどうかな
以下は、実行すると報告用シート内に含まれる選手コード全てを一気に置換する
複数の選手コードを含む場合も一発で置換できるはず
名簿にはコードの欄が空白の行がなく、名簿シートのA2セル以下に選手コードが入力されているものと仮定してる(A1は表見出し)
セル値の一部が選手コードと一致する場合も置換されてしまうので、コードのみが入力されているセルの値だけを確実に置換したい場合、Replaceメソッドの引数のLookAt:=xlPart をLookAt:=xlWholeに変更してくれ

Sub ReplaceCode
Dim sh_list As WorkSheet '選手名簿シート
Dim sh_report As WorkSheet '報告用シート
Dim i As Long
Set sh_list = WorkSheets("選手名簿シート")
Set sh_report = WorkSheets("報告用シート")
For i = 2 To sh_list.Range("A2").End("xlDown").Row
sh_report.Cells.Replace What:=sh_list.Cells(i, 1).Value, Replacement:=sh_list.Cells(i, 2).Value, LookAt:=xlPart
Next i
End Sub

930:858
18/01/13 19:32:04.47 eGapce6A0.net
>>901
ファイルのフォーマットが複数あるので、
事前にファイル名とシート名を規定できないのです。
なので、せめてペアにしたファイル同士が特定できれば、
ファイルとシートを選択する手間が省けると思ったのですが・・・
３つ以上開けなくなるけど、workbooksからマクロブックを除外した先頭２つを比較する方法で考えてみます。

931:デフォルトの名無しさん
18/01/13 19:36:48.93 6HVsHBKb0.net
>>903
それは運用を変えよう。機械的に処理するなら人間側が合わせる必要がある。
手動で命名規則に沿うか、命名自体を自動的にして人間が意識しないようにするか。

932:デフォルトの名無しさん
18/01/13 23:03:28.12 aJN0Dby50.net
エクセル2010でCSVファイルを開いた場合、
UTF8やshiftjisを自動で判定して表示してくれますが、
この時に判定された文字コードを取得する方法はありますか。
用途は、外部データの取り込みでCSVを開きなおすための文字コードの特定です。

933:デフォルトの名無しさん
18/01/13 23:14:29.83 odSwvUdp0.net
>>905
application.nkf

934:デフォルトの名無しさん
18/01/13 23:28:32.80 aJN0Dby50.net
>>906
ありがとうございます。
試してみます。

935:デフォルトの名無しさん
18/01/14 06:58:25.18 UVUQYwWb0.net
>>907
いいってことよ(´・ω・｀)b

936:デフォルトの名無しさん
18/01/15 01:08:16.65 Zqan8uZj0.net
>>902
実行時エラー13
型が一致しませんとなっていて
For~の行でエラーを出していて止まるみたいです
あと報告シートが選手の強さ別に複数に分かれているのですが今選手コードの入力したシート（つまりいま開いているマクロ実行用のボタンを押したシート）を処理したいという場合どうするとよいのか教えていただけると助かります

937:897
18/01/15 01:48:08.96 ubg4QImpx.net
>>909
エラーの出たコードを転載して見せてもらえませんか？こちらの環境ではうまく動いているんですが、私がコードを転載したときにミスをしたかもしれないので
それから、コードはボタンマクロ(ボタン名_Clickのような名前のプロシージャ)として各シートのシートモジュールに書いているんでしょうか？

938:デフォルトの名無しさん
18/01/15 11:28:57.27 thpu0oBS0.net
>>910
Sub ReplaceCode()
Dim sh_list As Worksheet '選手名簿シート
Dim sh_report As Worksheet '報告用シート
Dim i As Long
Set sh_list = Worksheets("選手名簿")
Set sh_report = Worksheets("対戦結果表_A級")
For i = 2 To sh_list.Range("A2").End("xlDown").Row
sh_report.Cells.Replace What:=sh_list.Cells(i, 1).Value, Replacement:=sh_list.Cells(i, 2).Value, LookAt:=xlPart
Next i
End Sub
シート作成用のコードが既にあるのですがその中のコードを流用して各シートに実行用のボタンを置く計画でした
ActiveSheet.Buttons.Add(2, 1.5, 125, 18.75).Select
Selection.OnAction = "CSV_SAVE"
Selection.Characters.Text = Worksheets(2).Cells(1, 1).Text & "級のCSVファイル作成"
With Selection.Characters(Start:=1, Length:=15).Font
.Name = "ＭＳＰゴシック"
.FontStyle = "標準"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
これのCSV_SAVEをReplaceCodeにしてボタンの名前と場所をかえるつもりでしたがあまりよくない方法なのでしょうか
必要であれば既にあるコードを出しますので教えてください

939:デフォルトの名無しさん
18/01/15 11:58:16.00 Vljo7f2q0.net
>>908
application.nkf オブジェクトが見つかりませんでした。
下記のapplicationオブジェクト内にも、nkfプロパティが見つかりません。
URLﾘﾝｸ(msdn.microsoft.com)
オブジェクトの参照方法が違うのでしょうか。

940:897
18/01/15 23:02:33.00 JvjYqsKWx.net
>>911
申し訳ない、For�

941:ﾌ行でEnd("xlDown")となってるの、自分の転記ミスでしたエラーの原因もこれでしょう二重引用符なしでEnd(xlDown)と書き直して動かしてみてください

942:デフォルトの名無しさん
18/01/16 12:17:16.43 SelV7zwId.net
質問です。
ソルバーで普通は目的セルをrangeなどで指定しますが、シートのセルにアクセスせず、vba内の変数を直接ソルバーにかけてvba内だけで完結したいのですが、方法あるでしょうか？

943:デフォルトの名無しさん
18/01/17 02:18:24.01 x8yvrTsd0.net
>>913
うまくいきました
ありがとうごさいます

944:デフォルトの名無しさん
18/01/20 12:24:27.92 sSjH/Vu40.net
セルのA列にある文字列をコンボboxにaddですべて入れた後に、一文字入力する度に候補が絞られてくって出来ます？
コード教えてもらえないですか？

945:デフォルトの名無しさん
18/01/20 12:31:05.83 TVDu7Qf0r.net
一文字入力する度にコンボボックスの候補を絞ればいいんとちゃうか？
知らんけど

946:デフォルトの名無しさん
18/01/20 13:28:17.12 uuergXrf0.net
社内に部品表があって、重複している名前を省いて部品種類一覧の表を作ろうと思ってます。
・ネジM5
・ネジM5
・ナットM5
・ナットM5
↓
・ネジM5
・ナットM5
というイメージです。
自分なりに下記のマクロを組んでみました。
Dim row As Long, col As Long, D As Range
col = 1
row = 1
Do Until Cells(row, col) = ""
If Not Cells(row, col) = Cells(row + 1, col) Then
If D Is Nothing Then
Set D = Cells(row, col)
Else
Set D = Union(D, Cells(row, col))
End If
End If
row = row + 1
Loop
この後レンジDをコピペするマクロです。
部品の種類が100とか200なら動いてくれますが、本来20,000件超の部品の種類があり、こちらを処理するとフリーズします。
デバックのウィンドウはユニオンのところを指定してきてるんですが、ユニオンにはまとめられる量の限界などがあるのでしょうか？

947:デフォルトの名無しさん
18/01/20 13:33:34.73 wJgnfOTG0.net
>>918
Accessでやれ。

948:デフォルトの名無しさん
18/01/20 13:41:46.63 CFAgCrzx0.net
>>918
ソートして重複を削除じゃダメなのか？

949:デフォルトの名無しさん
18/01/20 15:03:19.74 Fb/tMd6M0.net
>>918
Excel VBAでやってもいいけど、RANGEオブジェクトに溜め込むやり方よりは、素直に別シートに値をコピー、さらにそれを検索して別の値が出てきたら別シートにコピーでいいんじゃないのか？
そもそもExcelのフィルタ関連の機能でもできるからVBAを使う理由がわからない。

950:デフォルトの名無しさん
18/01/20 15:06:48.01 iefRLv2cp.net
>>918
dictionaryとかでだめかな？

951:デフォルトの名無しさん
18/01/20 17:40:00.19 91x3kJT10.net
DBMSがコンソールなんかに返した結果を
Excelセルに上手く貼り付ける方法ってある?

952:デフォルトの名無しさん
18/01/20 19:41:33.47 wJgnfOTG0.net
>>923
詳細忘れたけど代入する事で、そのまま貼り付けられるメソッドがあったはず。

953:デフォルトの名無しさん
18/01/20 20:44:55.78 Y9eKqT4m0.net
多くは語らんけどある意味エスパーと言っておこうw

954:デフォルトの名無しさん
18/01/21 13:18:30.88 +2jqUeqC0.net
>>918
ADOなら一瞬で終わる
いろいろ突っ込まれているように、別の方法のが簡単だと思うけど
シート名やら列名は読みかえてね
Dim adocon As Object, adors As Object
Set adocon = CreateObject("ADODB.Connection")
Set adors = CreateObject("ADODB.Recordset")
With adocon
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Extended Properties") = "Excel 12.0"
.Open ThisWorkbook.Path & "\" & ThisWorkbook.Name
End With
Set adors = adocon.Execute("SELECT DISTINCT 部品名 FROM [部品表$]")
Worksheets("部品種類一覧").Range("a1").CopyFromRecordset adors
adocon.Close

955:デフォルトの名無しさん
18/01/21 15:03:53.81 pRI5Eg/X0.net
>>862
だれかこれわかる人いません？

956:デフォルトの名無しさん
18/01/21 16:45:39.61 WhYlNzfJM.net
>>918
下手にマクロ組むよりExcelの標準機能の重複削除を使え。
VBAとは違って並列処理できるから速度が段違い

957:デフォルトの名無しさん
18/01/21 18:35:28.14 7nwc0luUa.net
重複なしリストはいろいろやり方あるけど、標準機能使うかadoでやるかがスマートだろうね
dictionaryもありだけど、fsoのやつはなんか取り回しがいまいちじゃね

958:デフォルトの名無しさん
18/01/21 18:40:31.69 nVuQLEta0.net
ここ初心者スレかと思ってスレタイ見なおしてしまったわw
オレ以外初心者しかおらんやんw

959:デフォルトの名無しさん
18/01/21 18:41:57.84 EcNkRoqM0.net
メゾット君また寂しくなって来ちゃったのか

960:デフォルトの名無しさん
18/01/21 18:57:02.81 7nwc0luUa.net
.netframeworkのlistって重複削除機能なかったっけ？

961:デフォルトの名無しさん
18/01/21 20:07:47.89 +2jqUeqC0.net
>>932
リストにあるかないかはわかるみたい
これなら配列に突っ込んで総当たりしていくのと変わらなそう
読みやすくはなるけど
Dim partsList As Object
Set partsList = CreateObject("System.Collections.ArrayList")
Dim partsData
Set partsData = Range("データの列")
Dim parts
For Each parts In partsData
　If Not partsList.Contains(parts.Value) Then
　　partsList.Add parts.Value
　End If
Next
出力処理省略

962:デフォルトの名無しさん
18/01/21 20:16:12.20 rQmHQ7OM0.net
>>929
> dictionaryもありだけど、fsoのやつはなんか取り回しがいまいちじゃね
意味不明
Dictionaryとfsoになんの関係があるんだ？

963:デフォルトの名無しさん
18/01/21 21:00:25.33 xouI7cQH0.net
>>918
とりま、Union関数は遅いから絶対に使うな、それだけ
セル数がちょっと増えると簡単にフリーズする
普通に配列とかに入れてった方がいい

964:デフォルトの名無しさん
18/01/21 21:12:55.02 nVuQLEta0.net
>>935
とりま、なんでいきなりそれを言いだしたのかよく分からんが
遅いのはお前のプログラムが下手糞なだけ
脈絡のない下手糞自慢ごくろうさん

965:デフォルトの名無しさん
18/01/21 21:38:18.50 Ycn/1JW20.net
require 'set'
File.readlines("ファイル名").to_set.map { |item| puts item }
Ruby の集合を使うと、以下のような行区切りのファイルを、
あ
い
あ
あ
う
い
以下のような結果にできる。
ただし、集合にはデフォルトで、順番は無いので、
順番が必要なら、お好みの基準でソートする
あ
い
う

966:デフォルトの名無しさん
18/01/21 21:51:29.18 EcNkRoqM0.net
毎度思うんだが、Rubyって他言語のスレにまで布教しに来なきゃならないほど不人気なのか？

967:デフォルトの名無しさん
18/01/21 22:19:18.53 Ycn/1JW20.net
Ruby だと、テキスト処理が、めちゃめちゃ簡単に作れる
他の言語のように、悪戦苦闘しない

968:デフォルトの名無しさん
18/01/21 22:23:07.58 +2jqUeqC0.net
どうせなら引っ越し準備も兼ねてPythonにしようゼ

969:デフォルトの名無しさん
18/01/21 23:23:35.81 ppfN03med.net
単純に2万個のセルをUnionするだけで1時間かかる
Sub aaa()
　Debug.Print Time
　Dim u As Range
　Set u = Cells(1, 1)
　For r = 3 To 40000 Step 2
　　Set u = Union(u, Cells(r, 1))
　Next
　Debug.Print Time
End Sub

970:デフォルトの名無しさん
18/01/21 23:45:19.36 Ycn/1JW20.net
2万個のデータは、テキストデータだけなら、1MB ぐらいだろ
>>937
のRuby でのテキスト処理なら、1秒ぐらいじゃないか？

971:デフォルトの名無しさん
18/01/22 00:04:49.43 R+7srG110.net
>>942
空気読んでね
�

972:ｱこはテキスト処理の質問スレじゃなくて Excel VBAの質問スレだから

973:デフォルトの名無しさん
18/01/22 01:20:01.78 pYe1Cwj70.net
そんなに時間が掛かるのなら、一旦データをエクスポートして、
データをテキスト処理してから、インポートして戻せば？
たかが、2万個のデータで、1時間は現実的ではない
そんなに時間が掛かっても、どうしても、VBA でやりたいのか？

974:デフォルトの名無しさん
18/01/22 01:43:29.00 zmIcszTc0.net
あくまでUnionを使った場合であって高速に処理する方法はいくらでもあるからなぁ。
それに仕事でVBA使う環境だと他社との協調も考えなきゃいけないからRubyインストールする方がよっぽど非現実的だし。
まぁ、たぶんおちょくってるつもりなんだろうけど、そもそもVBA以外の環境がないって前提のスレだから、
Rubyマンの煽りが煽りになっていないっていう・・・。

975:デフォルトの名無しさん
18/01/22 04:08:31.22 Xp9Ai2fT0.net
重複の削除はワークシートでやった方がてっとり早いと思う

976:デフォルトの名無しさん
18/01/22 04:38:17.99 AE7SVx7N0.net
>>945
> そもそもVBA以外の環境がないって前提のスレだから
そんな前提で質問に来る人もいるだろうけど、
「最適解」を求めている人が、とりあえずVBAだとどうなるか、と思って質問する場合もあるでしょ
だから、質問者が「全体にＶＢＡ以外はダメ」って制限をかけていない限りは、
上でも、ACCESSを進めている人もいたけど、実用面から考えた回答も質問者の利益になると思うんだけど
（質問者がそう思っていても、何も知らないからそう思ってるってパターンすらあり得るかな）

977:デフォルトの名無しさん
18/01/22 05:56:27.49 zmIcszTc0.net
>>947
Excel VBA質問スレでの「実用面」は、一般的な企業向けWindows PC(Office製品入り)で出来る事に制限されると思うけど。
それに質問者が明言した事以外は「出来ない」と考えておくのが常識だと思うね。
だいたい他の言語に興味があるなら、その言語のスレで質問すりゃいいわけだし、
どんな自己弁護をしたところで特定言語のスレで他言語の話をする理由にはならないよ。
せめて質問者に対してVBA以外の開発環境は無いか訊ね、Rubyが使えるという自発的な回答が得られた時に初めて、
Rubyスレに誘導して、そちらで話を展開すべきだね。

978:デフォルトの名無しさん
18/01/22 08:37:35.39 AE7SVx7N0.net
>>948
> それに質問者が明言した事以外は「出来ない」と考えておくのが常識だと思うね。
リアルでも、相手に聞きもせずに勝手にそんな縛りをかけて要件定義する人はいないと思うよ
> せめて質問者に対してVBA以外の開発環境は無いか訊ね、Rubyが使えるという自発的な回答が得られた時に初めて、
> Rubyスレに誘導して、そちらで話を展開すべきだね。
環境を聞くのは勿論ありだが、「○○だとより簡単にできるよ」ってこちらから言う事に何の問題があるのか？
今ある環境内で必ず実現する必要があるなら別だが、そうでない場合もよくあることでしょ
ま、いずれにせよ、何も聞かないうちに勝手に「○○に違いない」って決めつけるのは、
要件定義では一番しちゃいけないことだよ

979:デフォルトの名無しさん
18/01/22 10:06:54.55 zmIcszTc0.net
>>949
仕事している風を装いたいんだろうけど、明らかに経験が無いの丸出しなんだよな・・・。
そもそもVBAスレでRubyの話を出してくる事自体が問題なんだよ。
君が問題になっているのは要件定義の話ではなく開発環境の話だ。
明確な線引きをするなら、このスレではxlsmに記録し、特別な準備なしに実行できるものでなければ、何であれ許容範囲外だ。

980:デフォルトの名無しさん
18/01/22 10:12:50.46 JFwvghX1M.net
またそうやって明文化されてもいない自分ルールを展開していくー

981:デフォルトの名無しさん
18/01/22 10:23:32.81 zmIcszTc0.net
明文化されてはいないけど、過去から今までのスレでの反応を見る限りは、
だいたいxlsmファイル単体でマクロの実行が補完できるかどうかが拒絶反応の出る出ないを分けてるよ。
ただ個別にマクロが記録された二つ以上のファイルを連携させる場合の話もあるから「xlsmに記録し、準備なしに実行可能な」と定義しただけ。
押しつけるつもりはないけど、この定義で問題が無ければテンプレに加えてキチ避けしてほしいくらい。

982:デフォルトの名無しさん
18/01/22 11:30:49.09 r0T2WJT6a.net
>>934
ごめんscriptingRuntimeのやつ、の間違いだ

983:デフォルトの名無しさん
18/01/22 11:33:07.33 y0jssaARd.net
VBAをメインとして他言語も補助的に使う。
それなりにあると思う

984:デフォルトの名無しさん
18/01/22 15:12:56.07 EwN8a0pa0.net
同じ現象が起きるようにできるだけ簡単なコードを用意しました
まっさらなxlsmにUserForm1を挿入し、TextBox1とTextBox2を横に並べます
UserForm1モジュールに下記のようにコードを記述します
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 39 Then
With TextBox2
.SetFocus
.SelStart = 0
End With
End If
End Sub
UserForm1を呼んだ後、TextBox2にabと記入します
このとき、TextBox1からTextBox2に矢印キー右でうつろうとするとaの前ではなくaとbの間にカーソルが来てしまいます。
どうすればaの前にカーソルが来るようになりますか？もちろんabは例示にすぎずいろんな文字列が入ります
よろしくお願いします

985:デフォルトの名無しさん
18/01/22 15:25:33.05 EwN8a0pa0.net
>>955ですけど、KeyCode=40、つまり矢印キー下にセッティングして
TextBox1から2に移ると頭にカーソルきますね
ということは、入力した矢印キー右がTextBox2に移ったあとも生きててその影響が出てるってことですかね
まぁ原因分かっても解決方法が分からないのですが

986:デフォルトの名無しさん
18/01/22 16:37:43.27 DgxtyBXU0.net
試していないけれど
With TextBox2 の前に
KeyCode = 0 を入れたらどう

987:デフォルトの名無しさん
18/01/22 17:07:09.72 +/nnDvsjM.net
>>954
VBAでは書きにくい or 実行速度がめちゃ遅い
かつ
その言語なら簡単に書ける or 実行速度が速い
ならありうると思う
なのでAccessとかADOならまだわかるけどRubyはないな

988:デフォルトの名無しさん
18/01/22 22:49:33.42 EwN8a0pa0.net
>>957
しゅごい・・・できました
ありがとうございました

989:デフォルトの名無しさん
18/01/24 10:46:16.37 QE61Ho6h0.net
。と。の間に入ってる文字を全部同じ文字に置換したい場合ってどうすればいいでしょうか？
。。　　　　　　　→。ccc。
。akok。　　　　→。ccc。
。3293i9ia。　　→。ccc。
みたいな感じです

990:デフォルトの名無しさん
18/01/24 11:16:56.30 QE61Ho6h0.net
すいません数式の中の。と。の間の文字を置換でした

991:デフォルトの名無しさん
18/01/24 12:30:55.33 4OtF4psx0.net
数式の中のってのがよくわかんないから実際の数式を書いてくれ

992:デフォルトの名無しさん
18/01/24 13:09:34.71 QE61Ho6h0.net
こういう事がやりたいって感じです
わかりづらくてすいません
=123456789(この9桁の数字はランダム)　→　=123ccc789
=123456789(この9桁の数字はランダム)　→　=12ccc3456789

993:デフォルトの名無しさん
18/01/24 13:24:33.86 96uZKYcfd.net
>>963
。の話はどこへいったんだ？

994:デフォルトの名無しさん
18/01/24 13:52:49.81 QE61Ho6h0.net
いやこっちの方がわかりやすいかなとｗ

995:デフォルトの名無しさん
18/01/24 14:37:17.59 626EYBnb0.net
2週間くらい前から、
フォームコントロールのボタンを配置すると
エクセルファイルの起動が
いつもの起動時間の5倍くらいかかる様になり困っています。
ちなみに、新規のファイルでも同じ現象になり、
他のパソコンでも同じ現象になっています。
どなたか、解決方法を知らないでしょうか？
今使っている環境は
Windows 10、バージョン 1709
Excel2016 バージョン 1712
です。

996:デフォルトの名無しさん
18/01/24 14:47:11.88 LHEOU22dM.net
>>965
草生やしてんじゃねえよ真面目に質問しろ

997:デフォルトの名無しさん
18/01/24 16:00:42.34 eVK1iV6m0.net
ｗ

998:デフォルトの名無しさん
18/01/24 17:24:26.92 QE61Ho6h0.net
なんでｗなんて打ったのか・・・反省してます

999:デフォルトの名無しさん
18/01/24 17:48:11.23 cTEKAhE2M.net
>>969
VBA 正規表現置換
でググれ

1000:デフォルトの名無しさん
18/01/24 19:49:39.94 4OtF4psx0.net
>>963
みんなこれでわかるの？
上と下に規則性があるように見えないんだが
上は値を置き換えてて、下は挿入してるよね

1001:デフォルトの名無しさん
18/01/24 20:02:49.35 XHxrtrwiM.net
わかりません

1002:デフォルトの名無しさん
18/01/24 21:10:53.71 6b5evSsja.net
>>918
そのテキストファイルがCSVファイルみたいにカンマ区切りで
ヘッダとして項目名が付いてて項目名に重複が無ければ
そのファイルにSQLぶん投げて結果セット取ってこれるんだけどなぁ

1003:デフォルトの名無しさん
18/01/24 21:14:29.60 .net
地道にループぶん回してFomulaLocalとInStrとMidしてちょ

1004:デフォルトの名無しさん
18/01/24 21:29:25.29 l13g0WQj0.net
いや、ループするにしても
VbScriptingDictionary使うかCollection使って
値をキーとして登録して
同じキーがあれば無視、無ければ登録追加で
最後にその取っておいた内容を
展開するようにすればそこそこのレスポンスで
行けるんじゃないかな。
SQLで行けるならそれが最速だとは思うけど。

1005:デフォルトの名無しさん
18/01/25 19:41:38.87 x0ph6Erf0.net
ちゃんとしたDBMSならともかく、エクセル表にSQL投げて実行速度が速いとか考えられんけど

1006:デフォルトの名無しさん
18/01/25 21:14:11.87 xVw6nJl50.net
ADOだとそれなりに早いイメージなんだけど
実際はどうなのかね
誰か検証していてもよさそうだが

1007:デフォルトの名無しさん
18/01/25 22:04:13.28 BYFi0PM80.net
一項目だけの比較なんかだとVBAでやるのと変わらないけど、色々と条件が増えていくとSQLの方が速度が落ちにくい。
あと他の誰かが見ることも考慮すると、SQLで見えるようにしておいた方が分かりやすい。
ただExcelでSQLというのは絶望的に使いづらい。

次ページ