◎正当な理由による書き込みの削除について： 生島英之 とみられる方へ:Excel VBA 質問スレ Part77 YouTube動画>1本 ->画像>6枚
動画、画像抽出 ｜｜
この掲示板へ
類似スレ
掲示板一覧 人気スレ 動画人気順
このスレへの固定リンク： http://5chb.net/r/tech/1658009255/ ヒント： http ://xxxx.5chb .net/xxxx のようにb を入れるだけでここでスレ保存、閲覧できます。
!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること
ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK
次スレは
>>980 が立てること
無理なら細かく安価指定
※前スレ
Excel VBA 質問スレ Part76
http://2chb.net/r/tech/1651339421/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
3行貼り付けても
効果があるのは1行だけど
Excelの使い方すらわからない馬鹿な人と例のあいつはお断りです
1行目は本物の呪文
マクロで比較して、無い項目だけを追記するという事をしたいんです。
細かい所はよくわからんが可能だと思う
コード数が多くなってfunctionを乱立しまくって、日を跨ぐと半日くらい前書いたコードの確認作業に取られるんだけど何か言い手はないですか？
関数名で表された仕事だけ副作用なくこなし
>>10 ・オブジェクトごとの操作／参照をクラスにまとめる
・テストを書いておく(Debug.Assert)
でも確認作業に半日もかかるのはそもそものやり方自体がおかしいと思う
>>10 わかりやすい名前を付ける
コメントをしっかり書く
プライドを捨てる
>>13 私はコメントを書かない
コメントは嘘をつく
コメントとコードが合致していることを保証する方法がない
そもそもコメントのメンテまで手がまわらない
コメントはコメントに過ぎないんだよ。
コメント書くのは基本中の基本て新入社員時代のVBA研修で教わったけどなぁ。
俺も小学生の時に自転車乗るとき信号無視するなって教わったけど
ついこの間の参院選で、維新の会が横断歩道に車を止めて演説してたな。
>>14 コメントはコードの内容書くんじゃなくて、なぜそうなのか、なぜそうしたのかを書いた方が役立つよ
なぜならなぜそうなのかってのは
書く人によってそれぞれクセが出やすいからコメントあると嬉しい
>>10 先にfunctoinとコメントだけ書いておく
実際のコードはコメントに合わせてのんびり書けば良い
私の質問にいくつかの答えを提示していただきありがとうございます。一応目的を記したコメントは書いてます。
>>12 さんの提示されている
・オブジェクトごとの操作／参照をクラスにまとめる
・テストを書いておく(Debug.Assert)
の意味が全くわからないのですが、どなたか分かる方はいらっしゃいませんか？クラスオブジェクトやデバッグの仕方くらいはわかります。
>>10 １日やっても完結しない巨大なジュールやプロジェクトの場合は
初めに全体の設計をやって仕様書つくるもんじゃね
必要なところはモジュールを分けてます
>>30 ミスというよりも、不慣れって感じ
functionの引数が妙に多くなったりすると、大体設計が変な事が多い
一旦散歩でもしてから見直すと吉
>>26 ごく当たり前のことを書いたつもりなんだけど…
> ・オブジェクトごとの操作／参照をクラスにまとめる
例えば、シート内の情報を照会して加工するマクロを考えた場合に、
加工対象の情報をモデル化したクラスやシートAを独立した状態で操作／参照するクラスを作れているか
（シート内のRangeやCellをそのまま操作したりしてないか）
みたいな話
> ・テストを書いておく(Debug.Assert)
いわゆるTDDです。thom先生の記事見た方が早い
https://thom.hateblo.jp/entry/2019/08/11/120027 多少不完全でもこの2つがそこそこちゃんと出来てたら
たとえ数ヶ月離れてたとしても全体像把握するのに時間はかからないはず
> クラスやシートA
>>33 概ね同意だけど
その辺キチンと考えて作れていたらVBA卒業だよ
クラスに限らずメソッド、関数なんかも
それが持つ役割毎に分けて作って
それなりの場所に格納しておけばあまり迷子に
なることもないよね。
ただ、VBAはモジュール毎にフォルダ作って
階層分けられないのがちょっとね。
それと1モジュール1クラスって制限が無ければ
かなり良い感じで作れるのに残念。
モジュール毎にexcelファイルを分けるとすっきり
皆さんありがとうございます。
不勉強な所でのつまづきのようですのでまた1から見直してみます。
>>33 わざわざ教えてくれてありがとうございます。参加にさせて貰います。
初心者で意味不明な質問で申し訳ありませんが
>>38 できるね
でも返却日でソートしたほうがはやくね
>>39 ごめんなさい
自分の知識だとソート云々のやり方が
分からないです
ちょっと検索して勉強してみます
>>41 失礼しました
Excelのソートはわかります
VBでソートして別シートに移せるのかと思いました
ワンクリックで
別シートに移すが1番重要視したいことなので
>>42 Excelの機能のほとんどはVBAでも使える
別シートに移してから、Excelのソート機能をVBAから呼び出すんよ
>>42 マクロの記録有効にした状態でExcelの操作をして、
記録したマクロをエディタで覗いてみれば良い
>>42 行操作はコストがかかる作業につながるから可能であればこういう方法でもいいかもね
１．返却日が入力されている行だけフィルタで表示する
２．選択行をコピーする
３．コピーした選択行を別のシートに貼り付けする
４．選択行を削除する
５．フィルタを外す
これを実行前にマクロの記録を実行しておくとサンプルとなるコードができるから
あとはそれをいつでも使えるように加工すればいいかと
マクロの記録で吐き出されるコードって
>>43-45 皆様ありがとうございます
昼過ぎまでモヤモヤしてたのですが
急にソートの活かし方が分かった途端目から鱗でした
お陰様で不恰好でしょうが無事完成できました
本当にありがとうございます！
新しいシート用意してソート用に使いたく無ければ
そもそもExcelの使い方すらろくにわからん頭で思い付いたことだからまともに相手をしても無駄
相手のレベルに合わせた回答ができないRuby厨と同じだな
>>50 ADO接続なんてネットでちょっと調べればすぐ出てくる。
SQLだってSELECT 〜FROM [シート名$] WHERE〜 程度の簡単なもの。
つまり初心者であってもちょっと調べればすぐに分かる範囲。
相手のレベルというよりお前さんのレベルが初心者以下なのでは？
VBAが消えるはユーザーが勝手に言ってるだけだが
>>54 知らなかった
軽く調べてみたら、2018年にOLE DBの非推奨が取り消しになったのね
初心者にありがちなやつ
質問
>>60 365だよね？
俺も画面が更新されず止まったままになってて挙動がおかしい
でも実際は動いてるので、保存して開き直し
自分はそれでなんとか凌いだ
>>61 そう、365です。
描画は止まってても実際は動いてるのも全く一緒ですね。
一度保存して開きなおすと治る？試してみます
>>59 思い付くのは、Next iとかをNextだけで終わらせるヤツ。
特に若いヤツに多い。
>>61 保存したり閉じたり開いたり再起動したり更新したり色々試したけど直らず。
結局はApplication.ScreenUpdating関連を全て削除して一時的に回避することにした。
どうやらマイクロソフト自体が障害発生してるみたいだから描画バグの修正もしばらくかかりそう・・・
>>63 いや、Nextだけのほうがよくない？
ループ変数を明示したい状況って
・多重ループになっていてどのNextかパッと見でわからない
・For(Each) とNextが遠い
あたりが理由だろうけど、それってコードとしてあんまり綺麗な状態じゃないよね
>>60 VBEのイミディエイトウインドウなりでApplication.ScreenUpdating = Trueを実行すれば良いだけでは
>>66 自分もつけない派だけど他人に押し付けることはしない
きれいかきれいじゃないかも人それぞれだから押し付けない
厳密な規約がないならマイルールで問題ないのでは
>>67 Trueにしても更新されないままなんだよね
MS障害で連携とれてないんか
いや、Next iとかきちんと書いた方が第三者も読みやすいはずよ。
>>68 に同意
自分も付けない派だけど
そもそもそんなデカいループ組むことは稀だし
せいぜい2階層ネストするくらいだし
それ以上ループをネストすることがあったら
まず作りがおかしくないか、
別関数に切り出すかとかの方を先に考える。
ただ、だからといってNextの後に変数名が
付いていたからといって
「律儀な人だなぁ」と思うだけ。
別に付いてても付いてなくても
困らないからどっちでもいい。
むしろ繰返しの変数名に「I」とか「j」とか付けてる方が
>>66 C言語とかで
for(int i=0; i<10; ++i){
hoge;
fuga;
}i;
とかだったら卒倒して死ぬな
Nextの後ろに変数書くかどうかで読みやすさが変わるようなプログラム組んでるなら
>>75 それな
Cに限らずJavaやC++やC#もみんなそんな書き方だし、自分はVB系のような書き方も明示的で良いとは思ってるけど、
その書き方でもあまり困らないから結局のところは慣れの範疇だよね。
i付けろとか、どうせ田中とかあの辺が言ってるだけだろ？
ついてようがついてまいがインデントさえ正しきゃ好きにしろで終わり
>>80 これな
みんな、そんなにループのネストが多いの？
functionに切り分けて配列を引数に持たせるのは無し？
>>64 これちょいと前からなってたけどおま環かと思ってfalseにしないで回避してたわ
Twitter見たら前からなってる人も居たみたいね
CreateObject(“Internetexplorer.Application“)が突然エラーを吐くようになった
それも365？
うへ、再起動したら治った
こないだのオフ会楽しかったな
>CreateObject(“Internetexplorer.Application“)
Next iってVisualじゃないBASICでインデント付けずにフラットに書くことが多かった時代の名残でしょ
その環境だとNEXT IのIを省略した方が省メモリーじゃなかったっけ？
確かコマンドごとにコードが決まっててそれでメモリを削ってた気がする
>>99 あのー
このレベルの懐古厨にマウントは無理だよ
>>100 環境に依ったような気がする
>>101 マウント厨かよw
？ が勝手にPRINTになるやつね
>>103 合ってるよ
？はPRINTの省略でセミコロンはマルチステートメント
マルチステートメントは改行(crlf)するより1バイト分お得
プログラムエリアが20kくらいしかなかったから可読性なんて贅沢の極みの状況だった
マルチステートメントはセミコロンじゃなくてコロンな
>>106 あーすまん、フォローありがとう
もうウロ覚えだわ～
>>103 のセミコロンはPRINTの改行抑止の話じゃねーの？
>>110 a = 1; のどこに関数が？
>>110 行末っていうか文末な
>>111 >>103 はそういう意味かもしれんとも思ったが、それに対する
>>105 は...
PRINT AよりPRINT A;が早いからPRINTはセミコロンつけろっていうのは太古の昔にはあったなあ
如何にこのスレがじじいばかりか
・高度IT人材、富士通は最大年収3500万円へ
高田純次はすごいよな
2016使っててVBAが複数エクセル開いてると干渉して困ってたけど
Windows 10 エクスプローラー [表示]-[列の追加]-[列の選択]
vba shell.application getdetailsof
エクスプローラーが突然アホになる健忘症を治す方法を教えてくれまいか
すまん．ワードVBA の質問すれどこにあるか知ってる人がいたら教えて．昔あったけど発見できない．かそってなくなったのかな．アクセスVBAとエクセルVBAしかないのかな．
>>123 ざっと見たところ、単純に文字列を検索して切り出してるだけだから、関数の使い方を工夫すればできそうに見える
ここよりその作者に直接聞け
エクスプローラーが突然ハゲになる症状を治す方法を教えてくれまいか
>>123 最近ウェブページ操作することが多くて参考にならないかと思ってちょいみてみた
情報取得だけならこういう方法も処理が軽いからありなのかと勉強になったわ
取得したHTMLからお目当ての文字列を切り出すのにGetText関数を重層的に用いるのな
GetText自体は簡単なもので、切り出したい文字列の前と後ろにある文字列を指定することで
その間に挟まれている文字列を取得するというもの
何度か繰り返しこの関数を使うことで、目的の文字列にたどり着く
うまいこと前後の文字列を指定してあげないと切り出しが狂ってしまって目標にたどり着けないので、その辺はHTMLをじっくり見ながらやってみるしかない
タグにクラス名とかIDとか細かく設定されてるから、その辺を前後の文字列にうまいこと含ませながらやるのかな
取得したい文字列が存在する複数ページに共通する部分を使っていかないとダメっていう難しさはありそう
（なんでHTMLDocument使わないんだろう…）
>>123 XPathを知ってるなら、そっちを使えばいいんじゃないの？
だいたいスクレイピングといえば、FindElementByCssとかFindElementByXPathをつかうもので、
なんでわざわざ別のやり方をやりたいのか意味がわからん。
VBAでシリアル通信を行う場合についての質問です。
回答ありがとうございます。
COMポート送受信なんて、普通はそれ用のコントロールつかうんじゃね
>>135 Windows10 64bit でも一応動くみたいだけど一手間（ファイルを移動させたりレジストリを書換えたり）が必要みたい
詳しくは mscomm32.ocx windows10 とかでググって
>>134 別に１バイトずつじゃなくても複数バイトを一気に送れるよ
まあ送信速度に対してCPUの方がアホほど速いから性能上はどっちでも変わらんけど
念のための確認だけど STX が &H53 &H54 &H58 って思ってないよね
最近のPCはシリアルポートがついてない方が多いよね
回答ありがとうございます
>>135 ,137
MSCOMMというものを使う方法もあるのですね
調べてみます
>>138 ASCIIコードの対応でSTXが&H2、ETXが&H3ですよね
一気に送るというのは配列で渡すような形ですか？
基礎的な部分から分かっていないのできつい予感が
つか通信する相手は何だよ？
>>141 相手はレコーダーと調節計で目的は現在値の読出しです
調節計のほうは専用のソフトがありますがレコーダーのほうはありません
PCで両方に接続して2つから同じタイミングで現在値を読んでExcelに記録していくものを作ろうとしています
何でExcelで直接入出力する必要があるのか
>>140 > MSCOMMというものを使う方法もあるのですね
可能ならmscomm32.ocx使った方が遥かに楽
Win32APIだとボーレートとかの指定はSetCommState()を呼ばないとダメだし
あと送信はWriteFile()で書き込めばいいだけだけど受信は何らかの要因で読めない時にキャンセルできるようにしないと使い勝手悪いのでSetCommTimeouts()でタイムアウト設定して制御を戻す必要あるけどmscomm32.ocxだと受信でイベントが発生するからそういう処理が楽
> ASCIIコードの対応でSTXが&H2、ETXが&H3ですよね
ああすまんそこは大丈夫なのね、失礼した
> 一気に送るというのは配列で渡すような形ですか？
そう Byte 型の配列を渡す
> 基礎的な部分から分かっていないのできつい予感が
脅かすようで申し訳ないけど結構ハードル高いよ
特にReadFile()の方はバッファサイズを間違えるとExcel自体が落ちたりするし
どうしても茨の道を進みたい/進まざるを得ないならまずはファイルに対してCreateFile/ReadFile/WriteFile/CloseHandleから練習した方がいいかも
>>144 回答ありがとうございます
制限があるわけではないのでmscomm32.ocxを使う方向で行こうと思います
先が長そうな感じはかなりありますね・・・
まずはCreateFile、ReadFile、WriteFile、CloseHandleでファイルを操作するところからやってみます
まずVBAでやるべきかどうか考えたほうが良いんじゃね
>>123 です。
レスいただいた方々ありがとうございます。
スプレッドシートの ImportXML でXPathは理解しました。
HTML/CSSは書けますがそれ以外はさっぱりで…。
HTMLDocument、FindElementByCss、FindElementByXPathなど
調べていて出てきましたがどう書き出してどうエクセルに書き込むか
一から十までのものが見当たらず挫折しました。
>>129 さん！書き込み、非常に参考になりました。
<td></td>
<td></td>
<td></td>
などは無理なようですが、どうにかclassなどが振ってあるサイトを探せました。
ありがとうございます。
>>123 if文で真偽値を二度判定するあたりなどは、もうさすがにやめてほしいわ。
>>147 Cells()だらけなのにExcelシートに値をセットしていないと思うのか？
というか簡単に取れるけど
kabu_kode = ThisWorkbook.Sheets("Sheet2").Cells(1, X).Value
If kabu_kode <> "" Then
driver.Get "
https://finance.yahoo.co.jp/quote/" ; & kabu_kode
Call Sleep(1000) '3秒待つ
ThisWorkbook.Sheets("Sheet2").Cells(2, X).Value = driver.FindElementsByCss("h1._6uDhA-ZV").Item(1).Text '社名
ThisWorkbook.Sheets("Sheet2").Cells(3, X).Value = driver.FindElementsByCss("span._3rXWJKZF").Item(1).Text '株価
Set o_elem1 = driver.FindElementsByCss("dt")
Set o_elem2 = driver.FindElementsByCss("dd")
For Y = 1 To o_elem1.Count
If X = 2 Then ThisWorkbook.Sheets("Sheet2").Cells(Y + 3, 1).Value = o_elem1.Item(Y).Text '凡例を書く
ThisWorkbook.Sheets("Sheet2").Cells(Y + 3, X).Value = o_elem2.Item(Y).Text
Next
End If
kodeが気持ち悪い
>>145 ARDUINO とかで遊んでるやつもいて
VBA シリアル通信
でググれば事例は出てくるからまずはここら辺を参考にすればいいかと
https://kats-eye.net/info/2020/03/23/excel-arduino/ >>146 ,151-152 みたいな何の参考にもならないレスは無視していい
ローマ字と英語が混ざってる時点で頭悪そうだなとは思う
盛り上がってるところ低レベルの割り込み恐縮ですが
>>158 おまえ
>>145 の状況知ってるの？
まさか状況知らずにダメ出ししちゃう無能君かな？w
>>155 VBAのシリアル通信で調べていた際にARDUINOという単語を見かけたことはありましたが同じようにシリアル通信ができるのですね
中身を見た限り基本的な部分は同じようにできそうなので参考にしてみます
>>159 CSVで出力してPythonでmatplotlib使えば一発よ
>>161 典型的なパソコンにちょっと詳しいだけの馬鹿
>>164 完全同意！
>>164 とかまさにそれだよな
>>160 整数0から20で要素数70です
>>163 csv使うならワークシート関数でいいです
>>166 普通に
Dim F(0 To 20) As Long
Dim I As Long
For I = LBound(A) To UBound(A)
F(A(I)) = F(A(I)) + 1
Next
ってやればいいだけじゃねーの？
>>167 なるほど調べるのが整数限定ですからね
一般化して考えてたので思いつかなかったです
ありがとうございました
セルＡ１に 1:00:00 の
VBAを知らないのではなくExcelのことをろくに知らないだけだな
>>169 VBA入門の最初の1ページからこのスレで説明しろと？
コロンは除外したほうが比較しやすい
>>169 の質問は「1:」とコロンも取り出したいという話なんだからまずはそれを回答しないとだめじゃないか？
そのうえで比較するのが違いがあるかなら1:00:00は「1」で12:15:00は「12」でもいいと思うから
>>176 みたいな回答を補足したほうがいいと思うが
なので回答としては Left(Range("A1").Text, 2) とでも答えてやればいいとおもうんだが
気持ち的にはめんどいからそれでいいんだけど、
＞12:15:00 などの左2文字と比較したいのです
>>169 本当に左2文字を取り出したいのなら
変数 = Left(Range("A1").Text, 2)
だけど、もし時刻を比較したいんならこの方法はおすすめしない
>>169 です
たくさんレスいただき本当にありがとうございます
参考になるレスがたくさんで感謝しかありません
具体的な一例まで書いて頂けて助かります
これからで教えて頂いた内容を参考に
プログラムしてみます
この度は本当にありがとうございました
m(_ _)m＠24歳OL
@24歳OLってことは、
10進法で24ではなく16進法とか32進法で24だろ
>>189 基数が変わると@の意味が変わるってこと言ってる？
社会人二年目が終わり、そろそろVBA・・・ってパターンの24歳OLもあり得るのでは？
遊びたい盛りの24歳がVBAになんか興味持つわけ無いだろ
年齢に食いついてるのは質問に回答すらできない人達でしょ
ネタに反応すんなよw
お前ら何を言ってるんだ？
なぜ質問してる条件が「1:00:00」といってるのに勝手に「#」と想像を膨らませて混乱させるバカがいるのかと思う
>>201 バカはお前だ。
>>689 が「時間データ」と銘打っているのだからそこに入っているのは「文字列データ」ではない。シリアル値だ。
そのシリアル値が入ったセルの列幅を縮めてみろ。
まともに動かなくなるぞ。
valueでセル値を取得してFormatなりで文字列に変換した後で切り出しを行え言ってるんだ。
そんなことも理解出来ないこんな小さいロジックでバグるコードドヤ顔で晒してるような奴がよくこの業界で生き残ってこれたもんだ。呆れるわ。
あまりバカにかかわりたくないんだがTextでとると表示されている内容（「#DIV/0!」など）と同じものがとれるのはしってるわ
このクソ暑い日に本人そっちのけで戦う熱量に恐れ入るわ
>>204 既に回答済みだわ
集中力が無いのか
読解力が無いのか
バカなのか
或いはその全てか
そんなユーザーなら誰でも知っているような話をどや顔で言い争うのやめてくれませんか？
>>209 反面教師と思ってああならないように気を付けようぜ
相手の立場やレベルを考慮しないで言った通りのことしかできないやつは使えないって事なんだが
SeleniumBasic、WebDriverの質問いいですか？
>>206 なんでtextプロパティで取得する前提なのかがわからない。
うちの会社は、プログラミング禁止になったよ
全体最適の観点では必ずしも間違った判断とは限らない
>>225 へぇー経緯は？
作った後テストしてなかったとか
IEEE754のせいで小数点計算がズレたとか？
馬鹿が内容も理解せずコピペで作ったマクロのせいで間違いが発生していた
システム屋が作ったものではないと、そのひとしかわからないから、重要業務の担当者を外した巨大企業を知っている。
>>229 他人と共有するものは、それなりにきちんと書かないといけない（ドキュメンテーションも含めて）けれども、自分ひとりが便利に使う書き捨てマクロまで禁止にするなんて、どうかしていると思いますよ
イノベーションイノベーションとうるさいくせに、そういうのを禁止するなんて矛盾していることに気がつかないのでしょうか？
>>225 面白そう
口パクみたいな感じで、働いてるフリすりゃいいんだろ?
実際には裏でVBSでも動かしておいて
人間がやらなくてもいい業務をやり続けるのってすげぇ時間の無駄だと思うんだけど
属人化、なぜか暇そうにしてたからリストラ、腹いせにパスワードで業務が止まったと見た
公式な部署や担当を当てて書かせたんじゃなくて各々が自分用に書いてたんだろ
過去にタダ乗りされて酷い目にあったから使ってても教えない
どうしたら上手く運用出来るかを考えずに一律禁止にしてしまうところがJapですね
個別最適を無視するトップダウンな判断ができるのはむしろ非Jap的だと思う
Excelユーザーは誰もがVBAを使いこなしてると思い込んでいたわ
マニアじゃないから軍事用語なんか使われても強さがわからんわ
Excelそのものも少数の人間だけが知っている運用ルールがあったりする。
表計算ソフトを誰がどんな使い方しようが関係ないし、なんとも思わない
セルを小さくしてドット絵のようにして図解を描いたことならある。
元帥（名誉職・総司令官）⇒ 名誉会長
>>248 ごめん、軍曹を舐め過ぎた
上等兵くらいでした
>>248 尉官以上の士官とそれ以外は全く別の世界
本邦警察のキャリアノンキャリアは軍組織を元にしてる
民間での平から社長に登り詰めるみたいなのは不可能
元帥クラスって誰辺り？
>>253 あの人以上はほぼいないだろうからそれでいいんじゃね
上等兵の俺はオブジェクト指向が解らんでつ
かなり昔だが、会社の同期がその人の講習会に参加したときに、「私より高いテクニックを持った人はいたとしても、分かりやすく教えられるスキルを持った人はほとんどいないからね～、私はテクニック至上主義ではない、実用的なやり方を分かりやすく教えられるプロ！」
事実としてそうなんだろうけど自分で言うのはどうかと思う
いっぺんでもやってみるとわかる、教えるのって難しい
>>225 >>228 どういう業種なんだろ
馬鹿な対応っぷりからすると御役所系？
>>257 せっかく教えても肝心な質問した方が話聴いてなかったりするからな
>>256 確かに。
まあアピールポイントに特徴ある人だと思う
>>265 実務経験ゼロでも成り立つ
講演、物書き、教育は、実務経験ゼロの会社がたくさんある。
だから、実例がすぐに出ない。
スレにまったく関係ないけど思い出した
性格や考え方に問題あっても知識があるならいいんじゃね
日本の企業は人材の性格も重要視するもんね。
性格は欧米の方が重視されるぞ
>>268 が不明瞭なので補足
寄せ集めの知識というのは複数著者のテキストを咀嚼せず文字通りコピペしてるって意味
例えばビジネスコミュニケーションでは科学的根拠に基づかなければいけないというパワポ資料の次ページでナントカ占いみたいな性格判断が出てきたりとか
>>273 確かにそうだな
ここはお前の力の魅せどころだぞ
いや、言っている事は分かるから全然良いですよ
VBAと関係ないおっさん達の自分語りはいつ頃終わりますか？
>>276 お前みたいに構うやつがいなくなるまで無理じゃね
>>276 ほんと他で話せばいいのにと思うよな
質問来てもろくな回答もできないからこういう答えの不要なレスするしかないんだろ
Excelできれば女子にモテるぞww
>>248 カプコンの1943思い出した
ステージクリアで尉官が上がって最終的に特別中将だったかな
よく考えたら社長クラスが一人で突撃ｗ
Excel出来るようになったのではなく他に問題があるのでは🤔
>>284 だまされたんだと思う、もうExcelやめた方がいいよ
excel365でファイルを更新した形跡を全く残さない方法って何かありませんか？
エクセルのＶＢＡって2000から現在までの間に
>>292 一応言っておくけどお前のやろうとしてることは犯罪だし、回答書くと犯罪幇助になるから
>>293 2007 辺でグラフ周りが色々変わって過去のマクロでエラー出たことがある
そこそこあると思うよ
>>293 64bit化、ワークシートの大きさ、ワークシート関数の増減など、バージョンごとにどんどん変わってる
何を問題とするかは人それぞれで、利用環境や目的にもよるので、ちょっと質問が曖昧すぎ
>>292 こいつみたいなのがまさにこういうパターンだ
馬鹿が内容も理解せずコピペで作ったマクロのせいで間違いが発生していた
コピペ主体だからメンテ不可能だった
そのくせ馬鹿は自分が他の人より偉いと思い込んでいた
犯罪の質問なんて無視しとけよ
嫌がらせして辞めたところで迷惑を被るのは同じ作業してるポジションの人か後任の人だろうからやめとけ
うちのブラックに来たら誰でも同じことしたくなると思うけど
>>292 マクロ作るのもあなたの業務だったのでは？
会社で仕事して給料もらえてたのにそれ以上のことなんかないよ
> 犯罪なのは分かったからやめとくわ
気持ちは分かるが犯罪はいけないな。
If Date > 退職日 Then
てか保守出来る人居ないなら何もしなくてもそのうち会社は面倒事に巻き込まれるだろ
放置すればいいものを
123 10
>>308 挿入/削除はいろいろ面倒だから簡単にやるには別シート（もしくは別列）に転記しながら処理して最後に書き戻すのがわかりやすいと思う
スマホから入力してるから細かいミスはあると思うがこんな感じ
Dim S1 As WorkSheet: Set S1 = WorkSheets(1)
Dim S2 As WorkSheet: Set S2 = WorkSheets(2) ' 空のシート
Dim R1 As Long
Dim R2 As Long: R2 = 1
Dim N0 As Long: N0 = 0 ' 元の値合計
Dim N1 As Long: N1 = 0 ' 割戻し合計
Dim C0 As String ' 処理中のコード
C0 = S1.Cells(1, 1).Value
For R1 = 1 To S1.Cells(S1.Rows.Count, 1).End(xlUp).Row
Dim C1 As String ' 現在のコード
C1 = S1.Cells(R1, 1).Value
If C1 = "" Then Goto Continue
If C0 <> C1 Then
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
R2 = R2 + 1
C0 = C1: N0 = 0: N1 = 0
End If
S2.Cells(R2, 1).Value = C1
Dim N2 As Long: N2 = S1.Cells(R1, 2).Value
S2.Cells(R2, 2).Value = N2
R2 = R2 + 1
N0 = N0 + N2: N1 = N1 + 0.9 * N2
Continue:
Next
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
>>310 ありがとうー！！
後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、
別シートに単純に一度書き写していって最後に読み戻すってのは目から鱗です
確かにそっちの方が問題なくできるかもしれないです
試してみます！
>>312 > 後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、
If C0 <> C1 Then
で、コードが変わった事を検出して変わったら
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
R2 = R2 + 1
で、差分を追加して
C0 = C1: N0 = 0: N1 = 0
で、新しいコードを覚える共に合計値を初期化してる
こんなことがわからない奴が金計算をVBAでするなんて
テキストファイルからキーワードが含まれてる行をセルに書き込みたいです
>>313 ありがとうございます、
勉強中なので質問なんですが、
C1:N0 ＝0:N1=0の中の:ってどういう意味なんでしょうか？
>>315 > キーワードが８個あります
これはどうなったの？
単に複数のキーワードが含まれてるかを見たいだけなら
Line Input #1, B '1行分だけ読み込み
Dim K As Variant
For Each K In Split("商品,価格", ",")
If B Like "*" & K & "*" Then
Cells(i, 1).Value = B
i = i + 1
Exit For
End If
Next
>>315 どんなやり方でもいいと思うけどキーワードを含むかどうかを関数にするといいんじゃない
Function CheckKeyword(ByVal pValue As String) As Boolean
CheckKeyword = True
If pValue <> Replace(pValue, "商品", "") Then
Exit Function
End If
If pValue <> Replace(pValue, "価格", "") Then
Exit Function
End If
残りのキーワードも同様に判定
CheckKeyword = False
End Function
これを使えば
i = i + 1
Cells(i, 1) = B 'セルへ入力
の部分は1つでいいよね
>>318 VBA マルチステートメント
でググってくれ
>>318 改行みたいなもん。たとえば
N0 = 0
N1 = 0
という複数行のコードを1行にまとめることができる
N0 = 0: N1 = 0
だけど、やらない方がいいと言われている
変数宣言と同時に初期化する用途に限って俺は許容してるな
>>324 変数宣言と一緒に初期値設定する人はよく見かけるしアリだと思う。
同様に実は特殊な場合に限りIf文を一行で記載することもある。
本来構造化言語で使わない方が良いとされているGoto文も特殊な場合に限り使うこともある。
VBAは結構何でもありの言語だからその辺、仕事場のコーディングルールや
作ってる人のマイルールによって随分違いが出てくる。
一概にどんな方法をとることが最善とは言えないから人の書いたソース見てると面白い。
Ifの中身が1行だけの時に全体を1行で書くのはマルチステートメントとは違うくない？
俺も本来はマルチステートメントは使わないけど、5chのレスは行数制限あるからマルチステートメントにしてるだけ
○○ならアリって言ってるってことはそれ以外はナシって受け取る人もいるだろ
>>328 > だけど、やらない方がいいと言われている
みたいな意見があるから
コーディングルールなんて宗教みたいなもんだけど、一応マルチステートメントは推奨されないという意見のが多数
リーダブルコードにも書いてあるし、MS公式も推奨しないと言ってる
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/statements 明確に禁止したがってる人は肌感覚でもっと少数派だけどね
>>331 おっちゃんそれVBAじゃなくてVB.NETのドキュメントやで
Van.Netなら変数宣言と同時に初期値設定出来るから
中のVBAのコードだけGitに上げることってできるの？
>>335 すまん、VB.Netの間違いだった
しかし俺は禿げてはいない。頭頂点しかな！！
>>336 まあコードをエクスポートしたものを載っけておくくらいかな。
Bisual Sutadioみたいにエデイタ上から設定するのは無理だと思った。
て言うかコードだけ取っておいてもexcelのVBAの場合はexcelそのものに影響されるところも多いから
excelごと取っておいてソースを比較したいときだけ何かのツールでソースの比較を行った方がいいと思う。
>>336 今のVBAでGitは見たことないけど
昔VSSで管理するアドインがあったから、アドイン作ればできるんじゃね
>>338 マクロ入ってるエクセルはどうか知らんが、今のエクセルってXMLをzipで固めただけのはずだから
Zip解答してソース管理に突っ込む手もあるかもしれん
つかお前の誤字はわざとかこのハゲ
いきなし禿げたんよ。
Dim Eight As Typhoon
質問です
>>345 Set Eight = New Typhoon
>>346 ハゲる→外に出られなくなる→VBAしか無い人生に陥る
禿が気になるなら頭ツルッツルにするという構想は無いのかね？
Dim Hair As Object
>>346 こら！良い大人ならスキンヘッドと言いなさい！
スキンヘッドが似合う顔ならスキンヘッドにしてるんですよ・・・
>>355 QZ は逮捕・拘留11日を食らったってよ
スキンヘッドは
皮頭よりはハゲと言われたほうが人権を尊重してるだろ
＞＞349
きみたちハーゲマンに質問なのですが
ツルピカかつ、不精ヒゲだから女さんなんて絶対に寄り付かない。
>>360 VBA で残念に思う所の一つやね
サイズの上限が決められるならその上限で確保してサイズは別途管理
上限が決められない時はReDimでちまちま管理してる
あとReDimでサイズを0にできないのも地味に辛い
>>361 >>363 レスありがとう、ハーゲマンたち。
じゃあしかたないんですね。
でもVBAでもpush, pop, shift, unshiftが使える配列のようなものをVBAのクラスかなにかを使って再現することは可能だろうか？
>>364 可能、だが○○の機能がないから作れないではなく
目的の動作をするように作るんじゃね
質問が本末転倒している
>>364 他の言語でもスタックやキューは長さの決まった配列だよ
そこへオブジェクトを出し入れするときに端のポインタを動かすだけ
長さが足りなくなったら長さ2倍の配列を新しく定義してそっちへオブジェクトを引っ越し、オブジェクトの数が長さの25%を下回るようになったら長さ半分の配列を作り直してそっちへ引っ越し
>>366 それは実装による
リストで実装してる奴もあるし
VB(A)の配列でpopが必要になる場面ってあんまないなあ
時間データ
>>364 他言語はよー知らんけどdictionaryじゃあかんの？
>>371 ああスマン。なんかへんな一言張り付いた。
Dictionaryでいいと思う。
やり方は色々あるのにVBAが使いにくいとか言い出す初心者ｗ
だがしかしVBAにDictionaryはないのだよ
ああ、なるほど。いつ使えなくなるとも知れないとなれば先々を考えて使わないほうがいいかもね。たしかに使い方も特殊だし。>dictionary
それって findfirst/findnext 一発で済む問題なのでは？いちいちマクロで書くのもウザったいですよね‥‥
使いにくいとか面倒とか愚痴るくらいならEXCEL使うのやめればいいのに
>>371 Dictionaryはとおの昔から使っておったのじゃよ。
しかし使い続けているうちにふと頭をさわるとなんとハゲてしまったのじゃ。
それは困ると思ってDictionaryに変わるいい方法を探求しておるのじゃ。
DictionaryがイヤならCollection使えばいいと思うけど。
>>384 流石に無知すぎるから少し黙った方がいいよ
Collection に Exists メソッドがあれば...
>>385 そうだね
よく分かりもしないで無知とか決めつける無知は
すっこんでればいいよね
あまりマウントの取り合いは止めようぜ
ここにいると神になった気分になるな
>>382 ふざけてるつもりは毛頭ございませぬ。
でもこれからもハーゲマンの名に恥じぬようVBAを探求していきたいです。
>>396 コラ、われわれハゲ族は、
励まし合って生きていかねばならぬ。
ハゲ増し合うことはするな。
なんという体たらく
2つの表があって、表Aと表Bとして
まずVBAを忘れます
>>405 テーブルのリレーションシップを設定したらいいんじゃないかな
例えば以下の様なデータがあるとします
vlookupでできない？
>>408 まず問題を分割しよう
まず(step1)日別にレコードを分割し、(step2)それを日付でグループ化して合計を出すと考えればいい
step2は典型的なグループ化と小計なんで楽勝として、step1はちょっと面倒だから更に分割しようか
例えば、入力として一行の内容を渡すと、日別分割されたレコードの配列を返す関数を作って、その結果を結合すればいいだろう
>>405 深く考えなくていいなら
①2つの表（シート）をそれぞれ参照して作業用のシートAを作る
コード シート 値
101 A 50
102 A 40
・・・
101 B 60
102 B 100
②シートAをソートする
③シートAの内容を読み込んで質問にあるようなシートBを作る
日別分割関数について補足しておこう
初歩的な質問なんだけど、上下一致してる場合だけ転記して行くという場合
>>405 結構面倒、前提条件として「表A, 表Bのコードは各々ソートされてる」かつ「表A, 表Bのコードは各々の表内で重複してない」のであれば...
Type T
S As WorkSheet: L As Long: R As Long: C As Long: D As Long: F As Boolean
End Type
Dim TA As T, TB As T
Set TA.S = WorkSheets("表A"): Set TB.S = WorkSheets("表B")
TA.L = TA.S.Cells(TA.S.Rows.Count, 1).End(xlUp).Row: TB.L = TB.S.Cells(TB.S.Rows.Count, 1).End(xlUp).Row
TA.R = 1: TB.R = 1
TA.F = False: TB.F = False
Dim S As WorkSheet: Set S = WorkSheets("結果")
Dim R As Long: R = 1
Do
G TA: G TB
If TA.F And TB.F And TA.C = TB.C Then
S.Cells(R, "A").Value = TA.C: S.Cells(R, "B").Value = TA.D: S.Cells(R, "C").Value = TB.D: TA.F = False: TB.F = False
ElseIf (TA.F And TB.F And TA.C < TB.C) Or (TA.F And Not TB.F) Then
S.Cells(R, "A").Value = TA.C: S.Cells(R, "B").Value = TA.D: TA.F = False
ElseIf (TA.F And TB.F And TB.C < TA.C) Or (Not TA.F And TB.F) Then
S.Cells(R, "A").Value = TB.C: S.Cells(R, "C").Value = TB.D: TB.F = False
Else
Exit Do
End If
R= R + 1
Loop
Private Sub G(T As T)
If Not T.F And T.R <= T.L Then
T.C = T.S.Cells(T.R, "A").Value: T.D = T.S.Cells(T.R, "B").Value: T.F = True: T.R = T.R + 1
End If
End Sub
>>416 ありがとぅざいます！
そうなんです
考え出したらこれかなり面倒だなと思って、、
同じような発想かもしれないですが
外のループはA表のコード番号の縦列の値を固定して、
内側ループでB表を縦にコードが一致するまで検知して
一致した場合フラグを立てて、一致したコードの時は一致してるコードの隣に値を転記。
内側ループを抜けた時点でフラグが立っていない場合はBにしか存在しない値なので、A表の最終行以降に転記
って考え方でいけました！
>>411 ,414
ありがとうございます、そのヒント元に自己解決できました
1. 対象となる期間を配列に格納
2. データを1つずつ0:00で分解、按分は都度[その日の時間/全体の時間]で実施
3. 配列内の一致する日付に割振り
4. 2-3ループ
>>415 102は一致する相手がいないけど、転記される必要があるのかな？
ぱっと思いつくのは
ポインタをrとsの2つを用意してr=1, s=1から始める
1. Cells(s, 1) == Cells(r, 1) の間だけ s を進める。
2. Cells(s, 1) の値が変わったところで
a) s - r > 1 なら Cells(r, 1) を転記しながら s に追いつくまで r を進める
b) s - r == 1 なら転機せずに s に追いつくまで r を進める
3. 1からの手順を表の最後まで繰り返す
>>420 相手がいない場合も転記です
そのやり方試してみます
単純そうでむずかしい…
>>415 そこからどういうデータを求めたいんだ？
単に重複データ削除するだけで良い気がするんだが
>>422 上下一致してるものだけ足し込んでいくということをしたいです
一致してなくても一個だけのはそのまま転記したい
空白は無視で
単純なコードでいけるかなと思ったら難しくて、、
>>424 >>423 で説明すているだろ
これで分からないってお前白痴か？
>>415 の入力例で言うと
100は上下で一致してるから転記する
101は上下で一致するからこれも転記する
>>421 の説明だと102単独でも転記する
転記しない入力例ってどんなのよ？
423の足しこんでいくというのは？もう何もわからない
質問する側がおかしいと（どういう結果にしたいかが不明の場合）回答する気も失せるよね上下一致と言われたら
>>423 最終的に欲しい形を書け
エクセルの機能に重複データの除去ってあるのはしってるのか？
足しこむとか転記とか何がしたいか意味不明なんだよね
足し込むというのが加算という意味であれば必然的に数値ということになるけど、、、
まぁ重複したデータを足し込むのか削除するのかはさした問題ではない。
もう終わった話なんだと思うけど正直質問する人はこういうデータをいじりたいという事は伝えても
Unique関数の引数って二次元配列じゃないとだめなの？
excel2019
>>445 参照先は自動更新されない
セルに名前を付けてその名前で参照すればよい
おまいらが毛がどうのこうので喜ぶがらマジで頭ツルッツルにしてきたぞ
>>449 そのコレクションの中身はどうやって保守するのかね？
>>451 お、おうw
しかし真夏にはツルッツルもなかなか良いわ涼しい
win10
Set st = Worksheets("参加者").Range("A1:BA80").Find(What:="氏名").offset(1,1)
>>453 何やってるかわからんままコピペして動かしてる感をヒシヒシと感じるので
Rangeオブジェクト
Findメソッド
Offsetプロパティ
について理解できるまで解説サイト読んでください
あと、
>>445 についても回答付いてるんだからなんかリアクションしてください
>>455 何度か書き込もうとしたんですけど、書き込みエラーになってしまっていました。
なんだかレスアンカーが不正とか出てきてたのでわからなくなりました。
レスアンカーをつけちゃいけないみたいな制約？
>>445 に回答いただいた方ありがとうございました。
これも書き込めないかもしれませんが。
RangeオブジェクトのOffsetメソッド？は結合セルがやっかいなのですね。
結合セルでない時のエラー処理を加えると結局コードが汚くなっていくジレンマでした。
オブジェクト型がなかなか理解できません。
dim wf as object
set wf = worksheetfunction
とやってもwf.でエクセル関数を使えるようになるわけではないみたいですし。
ありがとうございました。
Function wf() As WorksheetFunction
名前付きセル範囲を使うためにnamesコレクションを理解しようとしてるのですが、
わからないまま、vbaから非表示を表示させるコードをコピペして削除しておきました。
そっか、うんうん、非表示を表示ね、良かったね
Range型と配列の違いが後一歩わからないのですが、
for each のinの後に配列をおいても、range型オブジェクトをおいても
もし Dim ar(2, 2, 2) As Variant なら3次元の配列としか言いようがない
本人は切実なんだろうけどイマイチ何を理解しようとしているのかが汲み取れない。
Rangeオブジェクトと配列、全く異質のものなのに同じ代入インターフェースがつかえるのが不思議なのでしょう
>>464 配列には数字しか入っていませんが、
Ｒａｎｇｅオブジェクトには数字以外に色や罫線やハイパーリンクなど色々な情報が入っています。というかワークシートのセルそのもの（オブジェクト）です。
>>464 オブジェクトにはデフォルトプロパティというのがあってな
オブジェクトを参照してるつもりでも、実はそのデフォルトプロパティを参照してるんだよ
Worksheets("Sheet1").Range("A1:C3")はRange型だが、
そのデフォルトプロパティは２次元配列なのだよ
https://www.tipsfound.com/vba/18014 このコードでcsvファイルをエクセルの指定のシートに取り込めますか？
>>473 やってみて聞いてるの？自分でやるのが面倒臭いからとりあえず聞いてるだけ？
いや、そもそも何でそんな事やりたいのか？？
よそのサイトなんだから作った奴にきけばいいのにと思う今日この頃
>>476 あれ総スカンだったんですか？
外部データの取り込みでcドライブのファイルを取り込んでいるのに
そのエクセルのファイルを他の人にコピーして渡したら同じ場所にファイルを配置しているのにファイルが読み込めないって聞いただけなのに笑
あっちでも総スカンだしここでも総スカンなんだからもういいでしょ
向こうの総合相談スレはこのスレと違って厳しい人ばかりだからな。
>>483 VBAのスレよりも質問スレは厳しい人ばかりなんですね
少しでも的外れな質問したら総スカンだからな。
replace関数でワイルドカードを使用してるのですが、
REPLACE(文字列, 開始位置, 文字数, 置換文字列)
ありがとうございました。
プロシージャ内で宣言した変数ならプロシージャを抜ければクリアされるしマクロ全体が終了すれば全てクリアされるからあまり気にしない。
初心者なのでプロシージャ内で処理の順番を変えたくなる時があります。
会社のパソコンでvbsからエクセルvbaを起動させメール本文、添付ファイルを作成し添付、outlookでメール送信をしたいのですがOutlookが起動しません。
漏れの推測だけど、
>>498 定義済みが未定義になるわけじゃないけど
ブロックスコープとかいうやつだな
残念ながら旧ＶＢやＶＢＡにはない。VB.NETにはあるけど
ＶＢＡの一番狭いスコープはプロシジャ
なので、プロシジャの先頭に宣言まとめとけって作法がある
>501
printfデバッグでどこまで動いているか確かめましょう！
>>496 始めに宣言を書いている方が探しやすいと思うけど
要らなさそうなものはまとめてコメントして確認すればいいわけだし
>>500 手動で実行できるなら、VBSで起動しているときのユーザとその権限があやしい
つかエラー吐いてないんじゃなくて、ちゃんとエラー捕まえられてないだけだと思うが
あとスクリプト系からのメール送信はいろいろセキュリティ周りでチェックされるかもしれん
とくに会社で管理されてるようなＰＣなら、ちゃんと管理者に許可とってからやれよ
メール送信用のc#のexeつくって呼び出させるようにしたことならある
>>498 あるものもある、例えばPowerShellにはそのものズバリのRemove-Variableなんてものがあったりする
>>503 >タスクバーのエクセルが点滅して動作が止まります
バックグランドで起動しているだけじゃ、エクセルのマクロが実行されないのかも
printf デバッグで、どこまで動いているか確かめるべき！
エクセルのマクロの、Outlook の起動コードの前後で、何かを出力すれば？
Outlook の起動前に、端末・ファイルへ出力する
Outlook の起動コード
Outlook の起動後に、端末・ファイルへ出力する
>>505 なるほど。そういう方もおられるのですね。
EXCEL VBAのプロシージャはあんまり長くしない方がいいよみたいなサイト読んで影響受けてます。
コードの書き方って結構こだわりを持っている方がいるようで、自分はそれに影響を受けやすい方です。
自分もこだわりたい方なんだと思います。
EXCEL VBAを知って、宣言は直前が基本ですよみたいな記事読んで強く影響受けました。
だから使い終わるごとに未定義に出来れば毎度宣言しなおせるからすっきりするのになぁみたいな気持ちでした。
EXCEL VBAとしてはfor やfor eachに使うような変数は先頭宣言にしてやっていこうと思います。
ちゃんとfunction分けてたら直前でいいけど、
>>512 > EXCEL VBAとしてはfor やfor eachに使うような変数は先頭宣言にしてやっていこうと思います。
とりあえずそれで動くところまで持って行ってコードが固まったらこだわりのコードスタイルにリファクタリングすればいいかと
>>512 >他の言語だとあるのであるかなと思ったのです。
他の言語って具体的に何？
答えられない？逃げる？それともまた言い訳？
>>512 個人的に、VBAに限定した話で宣言は直前とかいう記事はあんまり信用できないと思ってる
最近の言語ならそれで良いんだけどね
>>515 >>509 煽るならもうちょい知識をつけてからにした方がいい
あまり複雑化しても辛くなるしな
>>516 どういうこと？
最近の言語と違って
・ブロックスコープがない
・宣言と同時に代入できない
以上VBAの特徴2点を差し引いたとしても、
先頭宣言が直前宣言より優れている所なんかひとつもないと思うんだが
変数はImmutableにするのが最近の言語でしょ
>>519 まあ
>>520 に同意しつつ、一番の理由は、
ＶＢＡでの一般的なスタイルに反するからなんだが
ブロックスコープがないのに直前で変数宣言するのは、
違うブロックで宣言された変数と宣言が被るリスクが上がるだけなんだが
むしろ直前宣言が優れている点ってどこだよ？
>>519 同意する
まあ
>>516 は理由を書いてない時点であまり信用できないと思ってる
>>522 > 違うブロックで宣言された変数と宣言が被るリスクが上がるだけなんだが
そんなものどこで宣言しても同じだろ
> むしろ直前宣言が優れている点ってどこだよ？
コードを追う時に見える範囲に宣言あれば型とかも分かるだろ
>>522 ・別functionにしない
・設計が出来ない
・順番がコロコロ変わる
こういう場合は直前の宣言がいいんだろうな
インデックスとはいえ変数を使い回すのはNGなのです！
質問でもなく他人のコードの変数をどこに書こうがどうでもいいのに書き方に熱くなる人はバカなんだろうね
>>529 マジでアホなの？
PowerShellって書いてあるだろw
>>530 へー、shellコマンドと言語の違いがわからない人か
納得
>>531 PowerShellって結構リッチなプログラム言語ですけど？
頭大丈夫？
>>524 そうね。ブロックスコープは確かに便利。
ただ、匙加減の問題にもなるけど
ブロックスコープに慣れるとついつい
単一責任原則の考え方がおざなりになりがちで
密結合なものを作ってしまい易くなる。
なので、あくまで俺はだけど
EXCELのVBAに関してはメソッドや関数の
頭に変数定義を行うようにしている。
それでコードが読み辛くなるようであれば
その時点でリファクタリングの対象になるという考え。
ここの回答者は上級者なんだからVBAの事端から端まで知っていると思っていたんですけど？？
VBAで単一責任て
だって回答者に回れるって事は知り尽くしてるって事なんでしょ？
>>534 なので、の前後の関係がよくわからん
> EXCELのVBAに関してはメソッドや関数の頭に変数定義を行うようにしている。
それこそ余計蜜結合になるかと
誰が上級者と認定したん？
どこで宣言するか問題って、画面上部をスクロールせず固定出来るようになれば解決するんだろうな。
>>543 VBEは昔ながらのUIなので垂直スクロールバーの上部を下にドラッグすると同一オブジェクトコードの水平分割表示ができるけれど
>>541 分かり辛かったかな？
平たく言うと変数が何に使っているか分かり辛くなるような長いコードをひとつの関数やメソッドに書くなということ。
そもそもひとつの関数やメソッドにはひとつの役割だけ持たせるべきで、そうした場合、変数が何に使ってるか分からないくらい長くなること自体あまりないし、
それで長くなるようであればそもそもの作りがおかしいのでリファクタリングの対象とする、ってことなんだけどね。
VB/VBA/ExcelもAccessもOfficeごと窓からポイッ
>>545 > 平たく言うと変数が何に使っているか分かり辛くなるような長いコードをひとつの関数やメソッドに書くなということ。
それ変数の宣言位置とは違う話だろ
まあ先頭に変数宣言するメリットを説明できないならいいや、バイバイ
>>547 なんで？
どうせ同じ関数内で同じ名称の変数なんて作れないんだから
全部纏めて同じ位置にあった方が「この変数はこのシチュエーションのときにこう言った意味で使う」とか命名し易いじゃん。
使ってる変数名を再宣言しようとして「あ」となることもないし、
同じ変数をバカみたいに使い回して本当は値変えると不味かったのに変えちゃったりとかアホなことも減るよ。
ま、そもそもそんなこと気にするくらい長いコード書いちゃいけないんだけどね。
Wordがどうしようもなく使いにくいので、
WordVBAを何故つかわない？
loopのカウンタを使用後に消さないと
ワードにできることはエクセルでほぼ出来るからワードの使いかた忘れてしもた
>>548 > 全部纏めて同じ位置にあった方が「この変数はこのシチュエーションのときにこう言った意味で使う」とか命名し易いじゃん。
コボル臭が... w
まあ使ってる近くにあれば宣言なども簡単に確認できるメリットより命名のメリットを重視する人もいるんだね
> 使ってる変数名を再宣言しようとして「あ」となる
んだから
> 同じ変数をバカみたいに使い回して本当は値変えると不味かったのに変えちゃったりとかアホなことも減るよ。
なんてなるわけないと思うけど？
Excel → Markdown → Word アウトライン変換のマクロを作れば大分マトモになる予感
intersect( activecell.ListObject.HeaderRowRange,activecell.EntireColumn).Address
activeCell.End(xlUp).Address は？
>>557 それだとテーブルが1行目開始でなくて
テーブルの項目名の部分にアクティブセルがあった場合は
テーブルから離れた位置にカーソルが行ってしまうな
バイナリデータの書き込みについて質問です。
hello という文字列をいったんバイナリにしてファイル書き込みするような
プログラムを書いているのですが、書き込みすると
h e l l o
というように変なゴミが入ってきます。
vbaではバイナリデータの書き込みは完全にはできないということなのでしょうか。
該当コード
https://ideone.com/MDI6yW 書き込みすると変なゴミデータが見えなくなってしまいましたが、要するに
>>560 どういう内容なのかダンプして確認しないのかい？
>>559 >>562 for each で受ける変数をvariant型にするとうまくいかんということですか？
open の変数にLen=1（１バイトごと）っていれられるんですね。
>>559 説明はちゃんと読もう
vbaはかなりゆるゆる言語なので、なるべくvbaにあわせたコードにしたほうがいい
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/put-statement ＞書き込まれる変数が 数値型の Variant である場合は、Put により、Variant の VarType を識別する 2 バイトが書き込まれた後に、変数が書き込まれます。
こんなもん追いかけてられんよ
ステートメントは極力使わず、関数にした方がいいと思う
もう少し言うと、実現したい事を直接聞いた方がいい。
vbaでバイナリとかめんどくさすぎて誰もやってないので、
できるかどうかなんてあんまりみんな分かってない
>>561 してもあんま意味ないだろ
>>563 Len = 1 にしても無駄
あと、EachはVariantしか使えない
>>564 ところがバイナリダンプしてみると1文字あたり2バイトしか書き込まれてないんだよな
その説明の通りだと3バイトずつ書き込まれるはずなのに
>>564 今回はもう結果が出ているけれど、入出力を行ったら確認しないのか？
出力結果から意図するものとどう異なるかによって予測できる場合もあるだろ
>>564 正直説明一々読むの大変なのでここで聞いてそのあたりをつけようと思ってます。
>ステートメントは極力使わず、関数にした方がいいと思う
ちょっとここがよくわからないんですがどういうことですか。
>もう少し言うと、実現したい事を直接聞いた方がいい。
vbaの練習のためにとりあえずbase64エンコーディングを実装しようとしてました。
エンコーディングはできました。デコードでつまづいて格闘してましたが、デコードもとりあえずできました。
つぎは、bmpファイルを読み込んで1x1pixcelに縦横絞ったセルのシートに画像表示させるとか
やろうと思ってます。
>>565 3バイトずつだぞ
>>567 結局やりたいことはライフゲームとか、画像処理だろう
vbaは、事務処理特化なんだ。本当にやめたほうがいい。
vbaでクリエイティブな事をやろうとすると、めちゃくちゃ遅い
入出力用のセルがすごく見やすいのはわかるんだけど、別言語でやったほうがいい
具体的に言うとC#かvb.netがいい。
jsならそのままアプリにも移行できる
とりあえず入門したいんで、アルゴリズムわかるやつ実装してるだけなんであんま考えてない。
他人が何をやろうと勝手なんだから質問にこたえないなら放置すればいいと思うけど
>>567 >正直説明一々読むの大変なのでここで聞いてそのあたりをつけようと思ってます
死ね
いや、普通に頭くるだろ？
>>569 ライフゲームってなんなのかグーグルで検索したら
結果ページ上で勝手にライフゲームが始まってたわ
さすがグーグル
>>575 気づいたときにはライフがゲームオーバーになってるよ
本当だ
https://excel-ubara.com/excelvba5/EXCELVBA228.html エクセルの神髄さんのところにあるクイックソートの引数について質問です
lngMinとlngMaxを必ず指定しないといけないようなのですが、
どんな数字を入れればいいのですか？
vBase = argAry(Int((lngMin + lngMax) / 2))
こうなっていて、argAryインデックスの2倍を超える数値は入れられないようです。
インデックスとしての真ん中であるなら関数側でuboundとかlboundとかから計算すればいいように思いました。
バブルソートやインサートソートと違ってイマイチやってる事がわからないので、
lngMinとlngMaxの引数にいれるべき数値がわかる方おられましたら教えてください。
>>578 配列のうちでどこをソートするか指定できるようになってるんじゃないですかね
>>578 ソートしたいレンジの最初と最後のインデックス
クイックソートは最初にピボットを決めてそれより小さいものをピボットより前に、大きいものをピボットの後ろに移動して、ピボットの前の区間と後ろの区間をそれぞれクイックソートする方法を繰り返す
ピボットの決め方は色々あるけど、その人は配列の真ん中のオブジェクトを選んでるだけ。ランダムに選ぶと平均的には最も良い結果が得られるけど、もうひと手間かかる
ユーザーフォーム内のコマンドボタンではfunctionの呼び出しはできない仕様でしょうか？
>>581 呼び出し出来るよ。そのエラーになったコードをここに書いてもらえれば原因がわかるかと。
>>579 やってみたら確かに！驚きです。
>>580 クイックソートって発明品みたいなものですよね。
人間が手動で並べ替えても慣れる程にクイックソートみたいなやり方が高速になっていくんですかね。
皆さんありがとうございました。
>>582 フォームが３階層くらいありますが
１．モジュールからフォームの呼び出し
Sub commentForm()
rowBtn = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
colBtn = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
大分類.Show vbModeless
End Sub
すみません、1つ目フォーム呼び出しのモジュール内に以下のコードがあります
３．さらに次の分類へ
４，最終の選択ボタン
コードをアップする際に一部書き換えで変数が微妙に違うのは許してくださいｗ
>>589 大量のコード張るなら、どっかコード張るサイトあるからそこ使ってくれ
>コメントアウトの範囲内をfunction（wbSerch）として、値を返して変数を使用したいです
やれば良いとしか
自分でやって動かなかったっていうコード出せよ
エラーが出たならエラー内容も
Functionが呼び出されないんじゃなくて、呼び出したけど値を返してないか
返された値をちゃんと受け取ってないんじゃないかと予想したがな
>>589 色々気になるところばかりですが、Functionだけについていうと
Public Function プロシージャ名() As String
'処理
プロシージャ名 = ファンクション内で作成した文字列
End Function
という感じで作って、呼び出す側は下記で
wbRepName = ファンクション名
>>592 ありがとうございます
やっぱりそれでいいんですよね
とりあえず動かないのは困るので、関数を呼び出すコードは削除してしまったのでまたやり直してみます
適当にネットで検索して継ぎはぎしているのですが、これはやめた方がいいみたいなところがあれば教えていただけると
>>592 ありがとうございます
やっぱりそれでいいんですよね
とりあえず動かないのは困るので、関数を呼び出すコードは削除してしまったのでまたやり直してみます
適当にネットで検索して継ぎはぎしているのですが、これはやめた方がいいみたいなところがあれば教えていただけると
継ぎはぎっていちばんやってはダメな事でしょ
>>594 お前みたいな奴がVBAを使うのはやめた方がいい
このスレも含めてネットをなんでもかんでも鵜呑みにしないように。
むしろガンガンコードのコピーでも継ぎはぎだらけでも何でもやれ
どんなにひどいコードを書こうが仕事は結果がすべて
>>604 馬鹿はメンテナンスのことを考えない
こういう馬鹿がいるからVBAが禁止の会社が出てくる
VBA禁止はメンテがどうのこうのじゃなくて
そもそもエクセル側でVBA使ってごちゃごちゃやる職場がセンス無い
CSVって発想がだめだね
いや事務員にはcsvがちょうどいいよ
TSVはメモ帳で開いて全選択のコピペでシートに貼り付けできるんだよ
いやいや
なんで事務員がエラーの対処法を知らないんだよ。。
ボタンの押し方で仕上がりが変わる。
>>608 いいえ、コードは汚いしドキュメントを残さないので、便利であってもレガシーとなってしまうからですよ
VBA のファイル・テキスト処理などは、Ruby に比べて、圧倒的に可読性が悪い。
VBAで複雑なものを作ろうという思考がおかしい
VBAに飽きたらVBSがいいよ
>>621 いいえ、レガシーとなることの問題は認めるけど、それは禁止になる理由とはならないわ
他人がどんなに良いコードを書いてあろうが、容赦無く切り捨ててイチから書き直すのがプログラマーだと聞いたからよ
そもそもなんだけど
自分の書くコードと自分に影響する人が書くだけ気にすればいいのに
>>627 プログラマーはプログラムを書く人だし、設計すればエンジニアだし、営業や事務処理をすることもあるよ
会社員ならわかると思うが他人のコードは他人の給料、自分のコードは自分の給料になるってわかるよね？
ならねぇよ。
コピペばかりのヤツってある意味恥ずかしく無いのかや？
コピペを極めるとオブジェクト指向になるのかもしれんな
コードのコピーじゃなくアプリをコピーして販売したら違法だからな
でも現実はコピペ野良マクロ職人が各職場に溢れているんでしょ？
何もかもは覚えられんからそりゃみんな多少はコピペするでしょな。
アマチュアはコピペと卑下するけど
>>642 参考にするのとコピペは違う
お前、
>>627 の馬鹿だろ
>>643 そうやってすぐ他人と同一人物と決めつけるヤツの方が余程バカだと思うけどな。
あ、思い込み癖のある病気かゴメンゴメン。
アルゴリズムは脳内コピペで使ってる
参考という意味でならコピペすることはあるね。
gitやらスニペットやらの今時機能たちを使う試みはよく見ますが
回答の出なくていい話題ばかりでレスが増えてうんざりだな
>>650 そして一番の問題はそれなのにお前が来て文句を書きなぐることか
VBAと他言語できる人にしつもん
ちなみにSQLとかあるのは知ってますが
データベースの導入が敷居が高く億劫と思うのならば
>>655 > もっと楽な方法ないもんかと（´・ω・｀）
はい、解散！
>>654 VBAで作ったのをGoogleスプレッドシートに移行しつつある。
シートを複数人で同時参照できるとかメリットも多い。
csv,tsv,xml,データベースとか色々あるだろ
>>654 Python のオブジェクトとしてデータがもう手元にあるなら pickle でそのままディスクに残せる。もしくは csv か json に出力するか
データベースでもsqliteならサーバー立てる必要もない
>>651 そう
そしてお前らもここも終わり
～終了～
>>654 「とか」に何が含まれるかしらんけどその程度のデータならDBなんて使わなくても
今まで通りExcelブックでもいいし、テキストファイルでもなんでもいいのでは
今時の言語（ツール）ならそれぞれのデータにアクセスするライブラリもあるから
質問にある内容だけなら言語なんてなに使っても問題ない
>>655 自分ができる中で楽な方法を探すならまだしもできないことだらけで楽な方法なんてないんじゃない
お金があるなら外注で作ってもらえば楽かもね
世間にあるIT企業はそういうもんだし
皆々様がたありがとう
とりあえず
>>656 氏の方針でいく
>>657 君はなにもわかっていない
他の商売は知らんがプログラマーの場合
「面倒くさい、なんか楽な方法ねえかな？」からスタートする
Zed Shawがそう言っている
>>664 お前なにを勘違いしてるのか知らんけどプログラマーは
「楽をするためには苦労をいとわない」
という生物だぞ
単に楽をしたいなら
>>662 が言うように外注しろよw
んなわけない。
このスレを含めてインターネットを鵜呑みにしてはいけません！
>>655 vba、C#、python、web系色々と勉強してきたけど、
単純なデータの入出力だけならエクセルvbaがダントツで一番楽
超絶高機能なエクセルってものがあるのにわざわざ他言語を選ぶ理由がない
なおスプレッドシート＋jsでも良い
プロのバックエンド・エンジニアなら、
>>670 釣り？それとも真正馬鹿？
それもいつものキチガイRubyクズ？
VBAももうすぐ無くなると言われてから延命してるな
>>669 ほんとうにそう思う
データをシートに書けばいろいろ考える必要なくアクセスできるもんね
IDEでそういうとこが簡単にできるシートを作って欲しいもんだ
この人もRubyがいいと言っている。
VIDEO 完全に時代遅れ。
もうむちゃくちゃ。
自分を客観視できていない。
>>675 小規模なデータしか扱ったことのない馬鹿
↑
このまえ2000万レコード扱った時はC#でSQLite使った
そろそろExcelもビッグデータを扱えるようにしないと時代に取り残される
>>679 どうだった？
更新、遅くならんかった？
>>678 内容を理解できない馬鹿は黙っていればいいのに
>>680 アクセスでさえテーブル容量に2GBの制限ｂｪあるらしいのｂﾅ、エクセルにｂｻんなもの求めｂﾄも仕方がないｂﾌでは？
2GBでも、中小企業の在庫管理には十分だし。
エクセルの使い道がない人は、無理して使うものでもないと思います。
>>683 てか、VBAスレでその質問するからには、エクセルとの比較で聞いてるんだろうけど
そもそもエクセルでこのボリュームのデータ扱えないから比較できない
データベースファイルだけで4GB超えるから
>>686 SQLiteで2000万レコードについて聞いてますよ。
以前試したときは、ファイルが10GB超えるあたりから性能が悪化したんだけど、今はどうなのかなと思って。
win10
トラストセンターで有効にしておけば警告は出ないよ、って言うかこのスレにいる人ならほとんどこの設定にしてると思う
あとは1番下の「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」がクリアされててtest.xlsmにコードを触るようなコードが入ってる場合ぐらいかな
>>692 ありがとうございます。
もともとそのチェックはどのファイルにも入っていませんでしたので、
触るコードを書いてるという事かと思います。
どんなコードが該当するのですか？
バグに気付けていない可能性もあるので、知りたいです。
オブジェクトモデルっていってもdictionaryを一回重複チェックで使ってるくらいで、
後はsetしてるのは条件付き書式とかworksheetとかworkbookとかrangeくらいでしょうか。
たいした事はしてないのですが、結構長くなってるので特定しづらいです。
>>693 > どんなコードが該当するのですか？
そんなもん説明しきれんわ
そもそも
> しかし、test.xlsmファイルを開くと「セキュリティに問題がある」うんぬんという警告がそのファイルでだけ出るようになりました。
のスクショなりを上げなよ
コードを新規作成したtest 2.xlsm にコピペしてみりゃ一発だろうに
>>679 Ruby on Rails では、2千社・2億レコードでも全く問題ないと、外人が言ってた
Railsでは、開発環境ではSQLite も使うが、
本番環境では、MySQL, PostgreSQL
Heroku では、PostgreSQL
>>676 セレブエンジニアの小松和貴は、反SES/Java で有名。
Java土方はうつ病になるから、やるなと言ってる
rubyみたいなオワコンを持ち上げるキチガイは消えろ
なんだかんだで、納品物はエクセルで！とか言ってるからいつまでもVBAやめられなくて辛い
>>702 Excelやめてなんのソフトを代替にしたいの？
>>704 うちの会社の経理は紙の帳面だぞ
古代エジプト時代と変わらん
>>706 パピルスと現代の紙とは異なる
髪はその頃と一緒だが
>>702 そんなに辛いなら転職したらいいんじゃね
>>695 ありがとうございました。
それで徐々にコードを消していったら判明しました。
助かりました。
ユーザー定義型を配列に入れて使っているのですが、nameでソートしたり、
まずユーザー定義型をクラスにして、その後は IComparer インターフェイスでよしなに
Sorting of objects by their properties in VBA
https://scripts4all.eu/sorting-of-objects-by-their-properties-in-vba/ 個人的にはここまでやるならVBA以外を検討するけどね
別の方法としてADODBでメモリ上にテーブルを持つのもある
>>713 そちらを見に行ってEnumの便利さに気付きました。
二次元配列のfor for ネストでやってるような処理、列が増えるほどだんだん
わからなくなりますが、enum使えば二次元配列の利便性も残しつつ
ユーザー定義型みたいに使えますね。
二次元配列の悪い所はだんだん自分が何を指定してるのかわからなくなるところだったので、
Enumと相性抜群ですね。
せっかく教えてもらった高度な手法は今回は見送りさせて頂いて、簡単なEnum＆二次元配列でやってみようと思います。
感謝です。
元データがどこにあって、それをソートしてどうしたいのかわからんが
たぶんEXCELのソート機能を使わず自分でソートしたいんじゃね
遅いとか記述が冗長とかサーバーサイドで動かせないとかテクニカルな問題はいくらでもあるけど、
>>718 年末のAdvent of CodeはVBAだかExcelだけかでやってる人たまにいる
素人にやらせると、見かけは安上がりだけど結果的に高く付くことが多い
じゃあここのスレの方ならプロだから安心して頼むそうかな？？
RubyはそれだけではDBとなるものを持ってないからEXCELやACCESSのVBAとは比較できない。
エクスプローラーでフォルダーのプロパティを開いて
>>727 レジストリ操作でやりたいことができたわ。
一般ユーザがある列のセルを編集できないようにしたい。
でも、VBAの実行や、セル関数の結果は反映させたい。
https://support.microsoft.com/ja-jp/office/excel-%E3%81%A7%E3%82%BB%E3%83%AB%E3%82%92%E3%83%AD%E3%83%83%E3%82%AF%E3%81%99%E3%82%8B-b942fe92-5e87-0985-214b-9617b5b6d53f ↑セルのロック
という機能で試してみたがVBAマクロでの変更は許されなくてちょっと困っています。
セルに対してマウスイベントを発生させない。みたいなことを考えて、調べているが。
皆さんも悩まれる案件かと思います。もっと良い方法ないでしょうか？
VBAん中でロック解除して
SheetSelectionイベントとIntersect使うだけでは
お願いします。
検索をシートからではなくブックからをデフォルトにしたいです。
下記のサイトのコードを使い検索は出来るのですが、
結果表示ではなく（ '＜全てのシートの検索が終わったら、結果を表示します。＞ ）、
検索値まで移動するにはどのようにコードを書けばいいか、ご教授願います。。
https://www.moug.net/tech/exvba/0040005.html >>730 worksheet_boforedoubleclick みたいなイベントプロシージャでできる
ありがとうございました。
>>731 の方法で簡単にできました。
VBA実行時に保護を解除して、終了時に再度保護をかけることで、
すんなりといけました。
A1:10もしくはA100に入力された値を配列に格納しています。
>>736 恐らく出来ない。
ただ、Select Case の後の文字列の部分をTrueとして、
A10:A100の中に該当文字列が有った場合、
Trueを返す関数を作成して、Case文の後ろに記載して
その条件に当たったかを判別して、Case文の下に
その条件下での処理を記載することは可能。
Caseにある条件のA10:A100にとある文字列が
有った場合とB10:B100にとある文字列が
有った場合と下に続く処理が同じなら、
先程言った関数の引数に対象範囲と検索対象文字列を
持たせておけばCase文を使う必要すら無い。
戻り値がTrueかFalseかをIf文で判断すれば良い。
その辺は実際の状況に合わせて上手く作ってくれ。
select caseにtrue??
Do
>>736 こんな感じ？
>>736 Private Function F(R As RangeRange, S As String) As Boolean
Dim C As Range
For Each C In R
If C.Value = S Then
F = True
Exit Function
End If
Next
F = False
End Function
...
Select Case True
Case F(Range("A1:100"), 文字列A)
...
Case F(Range("B1:100"), 文字列A)
...
Case ...
End Select
>>740 たいていのプログラムだと有意な差はでないから気にせずに作りやすい方で作れ
有意な差がでそうならまず測定
>>740 これも恐らくの話で申し訳ないけど、
元々Withで設定されているインスタンスが既に生成されているものであれば、その格納アドレス先を読むだけなので
Withがループの外にあっても中にあっても処理コストは変わらないと思う。
変わったとしても繰り返し実行での誤差と見分けが付かない程度と思われる。
逆にインスタンスが生成されておらず、With New 〜 のようにWithでインスタンスを生成する場合は
ヒープエリアのメモリにそのインスタンスを展開するため、Withがループの外に有った方が処理コストは低くて済む。
・・・はず。
>>739 ケツの穴をガバガバにして全通しするいやらしい関数だよ
Select Case True
Case オナラ
よし通れ
Case うんこ
よし通れ
End Select
>>746 汚ねえな。。
こっちは夕食のカレー食ってんだぞ。。
>>747 If 文でラップとか意味わからんこと言われてもw
ヘイヘイヘイ～！
>>738-742 ありがとうございました。
変数Strの中の値が配列Listのどれかと一致するかということだったので、そのCountIFがまさにその通りでした。
それようの関数書いてSelect case True使わせていただきます。
>>752 Select Case True の話持ち出しといてなんだけど
最初のCase の条件に引っ掛かってその下の処理を実行した後でも
次のCaseの条件に引っかかったらその下の処理も実行するからそれだけは気をつけてね
>>753 そんなことないのでは？と思って試したけどやっぱりそんなことなかったんだが
普通はcaseの条件の中に入ったら次のステップはEnd Selectにいかないか？
Dim ncount As Long
ncount = 0
Select Case True
Case 0 = 0
ncount = ncount + 1
Case 1 = 1
ncount = ncount + 1
Case 2 = 2
ncount = ncount + 1
End Select
Debug.Print ncount
これは1になるんだが
>>754 多分breakいれなきゃいけないCとかと勘違いしてるんだと思う
Select みたいな文で複数の選択肢が条件満たした場合に複数の選択肢を実行する言語って PowerShell ぐらいしか知らんけど他にもあるんだろうか？
>>756 cとかそうだったはずだし、たぶん複数実行するほうが多数派なんじゃね
c#も、文法上は複数実行することになってるけど、break書いて抜けないと怒られるという
よくわからんことになってるし
CもそうだしJavaもそうだしPythonもそうだしJavaScriptもそう
>>757-758 C/C++ はそもそも複数選択肢が条件満たすことはないよ（たいていの処理系でコンパイルエラーになる）
fall through と勘違いしてるでしょ
>>754 これってコンパイル時に畳み込みで定数化されて同一のラベルが複数あってエラーになるとかしないのか
>>759 ああ、まさにfall throughだった
つかそうなると、fall throughじゃなくて
複数一致したら複数ブロック実行するような言語って知らないな
PowerShellってそうなのか？
>>761 VBAのCaseは定数以外にいろいろ書けるから
他言語やってる人が暇潰しに見に来る場所って印象があるよね
Excelでデータベースを作り、各レコード？事に
>>768 入門書買って自分で勉強したらどうかな
あ、EXCELが入っているPCを持ってないと無理かも
テキストボックスにセルの値を参照するとか、繰り返しの処理とかlookup関数とかindexとmatch関数はわかります
>>771 漠然としすぎていて適切に回答できない
書式設定のこと？ファイル出力？
どこにそれを表示したいの？
>>768 そもそもそのログの日付とやらはどこから持ってくるつもりなのか
>>773 すみません
VBAのユーザーフォームで検索用のテキストボックスを作り、
検索結果に該当したレコード（行）を選択（抽出）？して
それをテキストボックス2やリストボックスに表示したいです
〜番（ID）
名前
テキストボックス（リストボックス）
〜月〜日 何をした
みたいな表示画面が作りたいです
>>775 〜番号 名前 〜 〜 〜
の様な感じで列に追加していくやり方で作ろうかなと考えています
>>776 まずワークシート上でlookup,index,matchで検索、表示できるものを作る。
それからフォームのテキストボックスに入れた値をワークシートの検索用のセルに書き込み、結果をフォーム上のテキストボックス、リストボックスに書き込むVBAを作る。
>>778 ありがとうございます
まずはそこからですよね
どこでつまずいているかを書かないで答えだけほしいとか言われてもね
>>768 こんなんVBAでもなんでもなくシステムを作りたいっていってるようなもんでしょ
金払って作ってもらえよ
>>768 なぜそれをエクセルでやりたいと思ったのか
今のレベルだと一から勉強レベルだと思えるが
c#かせめてVB.Net覚えたほうがいいんじゃない
セルの内容（日付のところは文字列型（頭にアポストロフィ）で入れてる）
VBAのPicture.Insertでリンク貼付けさせないようにクリップボード利用でPasteで貼り付けてみたら画像が異常に重くなりすぎて使い物にならない…。
>>768 Listobject作ってListrowsを都度登録する仕組みを作って目的のListrows()を呼び出すユーザーフォームを作ればいいんじゃないっすかね。
まず質問者は何ができて何ができないのか気になるが何もできないんだろうなと推測してる
猪木が死んだ、時代が流れていく
>>784 もとの画像が大きいんじゃね、表示用の画像を別途つくってから貼り付けてみ
>>783 わざわざありがとうございます
助かりました
>>787 おいおいいつだよって思ったら昨日かよ
>>786 それでいいと思うんだよな
それが社会の基本だし、暇な元事務のNEETはそれで快楽を得つつ勉強になり、
転職への自信になるだろう
VBAは作業を登録して自動化するくらいで覚えておいた方がいいですよね
>>788 800kの画像でやってみたけど15Mぐらいまで巨大化してしまう
やはりAddPictureで代用してみる
VBEに書いたコードの整列っていうかコードを整えるっていうか自動インデントっていうかそんなショートカットキーがあったと思うけどなんだっけ？
>>791 変な枷付けること考えんと
好きに作っていいんやで
イベントで質問
>>792 Sub Macro1()
ActiveSheet.Pictures.Insert "C:\Work\Sample1.jpg"
End Sub
これで400KBのpngで試してみたけど
なぜかxlsmファイルのサイズは15KB
何か別の要因とか
>>792 オプションの詳細設定-イメージのサイズと画質 ってどうなってる？
Dim ar(2) As Variant
>>801 ありがとうございます。
ジャグ配列はRedim出来ないのがデメリットですね。
動的な配列の中にジャグ配列なのですが、なんとか先に不確定な親配列の中にある
不確定な数のジャグ配列を一時的なLong型配列に作って
そこからさらにsplitなしでなんとか作ろうとあれこれしてたら
よっぽど
>>800 の方法の方が処理がわかりやすくなってしまい徒労に終わりました。
諦めます。踏ん切りつきました。
>splitで作ったジャグ配列
>>797 それでいくとうまくいくんだけどね、
通常のPictures.Insertだとリンク貼付けなのよ。他人に送付したら見れない。
だから一旦クリップボード経由でPaste使ってやってるんだがそれだと容量がヤバくなる。
そもそも何でもかんでも配列で処理しようとするのがちょっとねぇ。
構造体ではできんの？
すぐDBとか持ち出す奴いるけどコスト考えたらそう簡単にDBなんか使わんと思うけどね
例えば、誕生石を取得するGetBirthStone関数を作ろうとすれば引数は「日付 as Variant」と「月 as Integer(Long)」のどちらがいいでしょうか？
そんなもんVLOOKUPで誕生石シートを検索すれば十分
>>816 Date型でも大丈夫ですか？
一応、最初の部分はこう書いてみました
If Not IsDate(日付) then
GetBirthStone ＝ CVErr(xlErrValue)
Exit Function
>>817 いや、むしろVBAだけの方がメンテしやすい
データとロジックは分ける方がいい
>>815 元のデータが何によるかで違うけど「月 as Integer(Long)」でいいのではと思う
仮に元のデータが日付でもGetBirthStone(Month(日付))で済む
月を渡すようなケースがありえないなら日付を渡して関数内でMonthを使うでもいい
月だけでいい
特定の日付に依らずある月の誕生石を知りたい場合に
意味のないDate値用意しなきゃいけなくなるから可読性が落ちる
>>817 誕生石みたいに改訂されたことがニュースになるくらい固定されてる内容ならコードにベタ打ちでいいと思う
祝日みたいに毎年変動するものとか、組合せの数が多すぎる要素ならシート管理の方が扱いやすいと思うけど
>>815 その程度のこと自分で決められんようでは時間かかってしょうがないだろ
>>815 Function getBirthStone(日付 As Date)
Application.Volatile True
getBirthStone = WorksheetFunction.Choose(Month(日付), "ガーネット", "アメシスト", "アクアマリン", "ダイヤモンド", "エメラルド", "ムーンストーン、真珠", "ルビー", "ペリドット", "サファイア", "オパール、トルマリン", "トパーズ", "トルコ石、タンザナイト")
End Function
こんなかんじ？
>>803 ラップ関数作る解決方法最高です。
頭固かったです。
他にも導入できそうなところが見つかり助かりました。
感謝です。
>誕生石みたいに改訂されたことがニュースになるくらい固定されてる内容ならコードにベタ打ちでいいと思う
>>823 を見ての通りこの手は表記ゆれが問題になる事が多いから
可能な限り外部データにした方がいい
インプットボックスで入力される値が数字かどうか判断するコードってどう書けばいい？
・符号(+-)を許すか
あと自分はWorksheetFunction使うの好きじゃないけど
全角は？漢数字は？ローマ数字は？欧米式の桁区切りは？
>>833 さんきゅーそれだ
てかVariant型が数値かどうか調べられるんだな～
書き方解ったらvartypeとかtypenameでも行けそうな気がする
ちょい試してみよ
>>834 語弊があるといけないから言っておくと、
IsNumericはあくまで数値として扱える値(数値に変換出来る値)かどうかを判定するよ。
だからString型でも”123”みたいのはTrueを返すからそこは注意してね。
考慮点はまだあるぞ
じゃ足し算する関数を別に作ってﾉｰｴﾗｰで戻ってきたら数値
このやろ、variantにしたら＋で文字列つくりやがって
これでいい？らめ？
>>836 まぁその辺は数値として受け取れるとも言えるからね。
その辺除外したいなら最初に“¥”や“e”や“&h”が含まれていたら数値ではないって分岐入れとけばいいだけじゃないの？
>>840 自分も同じこと考えたけど型の制約が緩いと面倒くさそうなので思考を放棄した、よく頑張ったな
そういえば昔型はあるのとないのではどっちが良いのかって記事を見たことあるな
別にVBA使わなくてもワークシート関数でできるじゃんって意見どう思う？
>>845 内容によるけどまあワークシート関数でできるならその方がいいだろうな
A1に入力されているものが消えたらB1以降の入力セルデータが右から左に自動で繰り上がってくるようにしたいのですがこれで大丈夫ですか？
"B1:F"&lastrow
xIUp >> xlUp >> xlLeft
文字列にしてTrimして
>>845 関数なんか使ったことない
全部マクロでできるし
ワークシート関数も便利なものは便利で、
あたりまえだかパフォーマンスはワークシート関数の方が高いよ
問題はたくさんのセルに関数を入れまくると超遅くなることだ
>>845 できるだけ関数に寄せる方が良いと思う
あまりに複雑になりすぎるなら、vbaでも良いって感じ
>>856 それVBAでやったらそのセルの分ループで回すことになるからますます遅くなるわけで...
ワークシート関数は自動計算で実行する
>>845 ワークシート関数で済むならそれに越したことはない
複雑になりすぎてVBA使うのと変わらんレベルになるくらいなら、状況次第でVBA使うこともある
よく検討してみてExcel仲介する必要ないならVBSなんかも視野に入ってくる
他のより良い手段があるならそっちにする
ケースバイケースという当たり前の結論
そういや何気にVBAの中でCallByName使うとJavaScript 使えるらしいね。
>>865 さあ？
メソッドチェーンが使えるくらい？
まぁ無理して使うもんでもないような。
現にJavascript知っててもVBAに混ぜて
使うような状況なんてなったことないし、
大体記述がめんどいし。
>>866 ありがとう
やっぱりほとんど無いよね。
メリットはネイティブの手段でJSONがパースできるようになる事なんだけどVBAで必要になることはほとんどないか
正規表現をRegExpオブジェクトで利用することはネイティブですか？
正規表現をRegExpオブジェクトで利用したらハゲますよ
すみません、質問させてください
selectionでforeach回せばできる気がするけどな
すみません、先程の質問の意図はvba 100本ノックの以下の問題を解いていました
https://excel-ubara.com/vba100/VBA100_062.html 最初に範囲内を配列にすべて入れてdictionaryで出す方法を考えたんですけど、範囲のところがA1:C5とかならいいのですが、A:Cだと、すべての行まで配列に入ってしまって、それの行すべて処理するようになってしまったので、数字が範囲内の最終行までを配列に入れることができれば処理速度も変わるので、そういう方法があればという質問でした
作成依頼です。
隣とはどっちだ
>>881 マジレスするとここは質問スレであり
作成要請スレではありません。
作る方法等を聞けば教えてくれる人もいるかも知れませんが、作ってくれと丸投げにした場合、
その見返りを要求されるか一蹴されるかして終わるのが関の山です。
自分でそう言った趣旨のスレを探すか立てるかした方が賢明と思われます。
>>884 消す方だったか、"クリア"って書くのかと思ったぜ
>>888 甘い
空(そら)と白(しろ)で合わせて空白まで読み取らないと
4000件くらいのデータのExcelファイルから
何度も繰り返し行なう作業とか面倒な作業ならVBA使うメリットもあるけど、その程度ならシートコピーとフィルターでさっさと手作業で済ませた方が手っ取り早いのでは？
>>890 画面の書き換えだけ止めとけば、たぶん、どの方法でも大差ないと思うよ
Unionは重いから、削除は一括じゃない方がいいかも
気になるならベンチマークとってみれば？
>>886 ＞コード書き込みや作成依頼もOK
1をよくみような
個人的にはコード作ってとか書かれてたら困ってるんす金くださいと言われてるくらい嫌なので余計に作らないわ～
誰もお前には頼んでないのに、俺は作らない宣言しちゃう人って自意識過剰すぎません？
>>881 1:30で書けたけど・・・
これぐらい書くのにみんなどれぐらい時間かかるもんなの？
Sub foo()
最終行 = Cells(Rows.Count, 7).End(xlUp).Row
For i = 1 To 最終行
If Cells(i, 7) = "" Then
Cells(i, 6) = ""
Cells(i, 8) = ""
End If
Next
End Sub
>>890 回答待つより実際に作って比較した方が早くない？
>>897 いい回答だと思う
自分でやればわかることを他人に聞くのってほんとバカなのかなと思う
>>881 Ruby で作ってみた。
未入力の列はnil となるので、a, c も未入力となる
require 'csv'
input_text = <<TEXT
,a
b,b
,c
TEXT
output_text = String.new
CSV.filter( input_text, output_text ) { |row|
row[ 1 ] = nil unless row[ 0 ] # nil の時
}
print output_text
出力
,
b,b
,
>>895 で、誰もお前に意見聞きたいとか頼んでないのにどうしてそんな自意識過剰な反応してんの？
ちょうど今日別々のシートの範囲Unionして二次元配列にしようと思ったらエラーだったな
>>896 Nextのズレが気になって気になって今日は眠れないわ
マウスで範囲指定した複数のセルから値を受け取ったり書き込んだりする方法はありますですか？
>>906 Application.Selection.Valueで出し入れできる
基本的に2次元配列を操作することになるが、
単一のセルだと配列にならないとか
複数の領域が選択されていたときにどうするかとか
細かいところを考えることになる
>>908 大変重要なキーワードを提示いただきありがとうございます。
とりあえずの目的は達成できました。
また、これで詳しい内容をググりに行けますです。
外出先でもスマホからマクロ実行したいからGASでプログラムやろうかと思ってる
GASいいよね
>>914 それってWeb版EXCELと何が違うの？
もちろん違わないよ
それはWEB版を使いにくいと思ってる人が居るってことでは？
試しにAndroidスマホからボタン（図形）をクリックしたけどgasを実行できなかったよ
どんどんスレの趣旨からはなれtrくなー
質問ですが、
動的にボタン作成しながらそのボタンに対して共通のクリックイベントを結びつける方法です
>>926 .OnAction プロパティにプロシージャ名を設定
基本的にはボタンのOnActionにマクロ（Subのメソッド）名を設定すればいいんだが
マクロの記録でもやればおおよそやりたい事のひな型のコードはできると思うんだよね
>>928 確かに。
何でクラスモジュールのメソッドに紐付けようとするか謎だよな。
そもそもそれにはインスタンスが生成されていなければならない訳だし
VBAのクラスはそこまで万能では無いからシングルトンパターンでよく使われるみたいに自分で自分を生成することも出来ない。
そうすると前もって生成したインスタンスのメソッドに紐付けるしかない訳だけどそんなことVBAのクラスで本当に出来るのか？と思ってしまうわな。
クラスのモジュールではなくてもいいんですけど、何かしらの共通メソッドを呼び出せるようにしたいです。
初心者向けサイトに出てくるWithEventのやつじゃないの
>>931 それは同じ関数呼んで引数で関数内で何とかするんじゃダメなの？
この辺？
https://thom.hateblo.jp/entry/2016/10/13/005105 Newしたcommandbuttonにaddeventhundlerみたいなことって出来ないのかな
だから何人も.OnActionだって言ってるのにアホなん？
目的や使用場面が不明だけど、それは1Sheet上にボタン100ヶ必要なものなのか？
そのボタンは、どう配列・配置されるものなのか マス目に10×10とかなのか、タテとかヨコにぞろぞろ100ヶなのか
何らかのデータの塊の傍にボタンを動的に配置し、それを押すことでひな型の編集フォームを呼び出すというのか
>>934 とか上に書かれてきたサンプルを参考にして苦心して作れたとしても、結果として「それ違くね？」には成らないのか
設計の妥当性が問われる
「動的に編集ボタンをつくる」ための何らかのイベントが在るわけだし、だったらそれに結びつけた方が無駄が少ない とも
>>936 確かにねー
でもリストの行の横っちょにボタン付いてて
そのボタン押すとその行のデータ読んできて処理するとか
ExcelのVBAじゃなくてもよくあることだし
そう考えると100どころか1000くらいくっついてても
それがユーザーにとって使いにくいとは言い切れない
ケースもあるから何とも言えないね
ポタン100個つけるならフォームは考えないでワークシートでselectionchangeでいいと思う
ボタンって最大何個ぐらい貼り付けできるんだろ？
>>938 >>939 確かにボタンにこだわる必要はないですね
セルクリック時にフォーム呼び出したらいいですね
Excelのイベントに onclick とか無いけどな
まあワイだったら単純にするために、
>>946 そのあと「これは効率が悪い」と気付いて修正するならいいけど、それしか考えられず500,1000と増やし続けているおじさんがウチの会社にいます。
>>945 セルを選択させてボタンを押してその行の値をユーザーフォームに引き渡すの？
(；・∀・)1000個やった。。プログラマはすげぇやって思ったけど効率いいやり方あるんか。
似たような処理ならforでもdoでもいいから1000回ループさせればいいわいな
問題なく動いているのを変に直してバグ入れる人よくいる
wordVBAについて質問したいのですがここでも良いですか？
>>958 956が頭おかしいだけだから気にすんな
VBAのスレはこの今に存在するし、Excelって書いてあるのに無視して質問してる
なら誘導してやればいいだけだろ
VBAなんでも質問スレ Part3
http://2chb.net/r/tech/1631184381/ Excel初心者です。
おまいら親切すぎるんだわ
>>967 って思うじゃん？
ここで回答すると、違っていた時やもっといい方法があるときに上乗せして回答される
すっげーいい勉強になるんだぜ
優劣つけたがる奴多いけど
質問に対しての回答例ならマウントという表現はおかしいと思うが
僕が一番VBAをうまく使えるんだって言いたくなるのはわからなくはない
>>969 頼むからマウント取ってください！
とにかく俺の上のスキルを見せて欲しい。なんでもしますから！
>>971 実際、確実に上って人はいくらでもいるよ
お前がぐちゃぐちゃ入ってないで解答教えてやれや
>>966 カレンダーアドインは使ったことないんでわからん
カレンダー程度なら自作できるので融通の利かないアドインは好かんのです
汎用性のある日付入力カレンダーの自作は結構大変だろ
>>978 > 休日祝日の更新処理が面倒で自作はあきらめた
それ汎用性のある日付入力カレンダーでやることじゃないだろ...
日数算出するの面倒いよな
結局、日付入力はカレンダー形式やめてテキストボックスとスピンボタンで適当に誤魔化した
>>966 アドインでは無くてユーザーフォーム作ってそこにボタン配置してシート上のセル操作ならやったことある
[BttnF] という名のユーザーフォームを呼び出すのに、A1セルにボタン [cmdBttnF] を配置(ウィンドウ枠の固定でA1はずっと表示してるから)
Private Sub cmdBttnF_click()
With BttnF
.StartUpPosition = 0
.Top = 100
.Left = 800
.Show vbModeless
End With
End Sub
これだけで、画面スクロールしてもシート上の同じ位置に居続けるし、もちろんフォーム掴んで動かし回してもいい ×で閉じることもできる
うっかり閉じても、又A1セルにあるボタン押せば表示できるし
>>966 少しだけ補足すると、質問の文章がきちんと書かれていないので回答しにくい部分があって
EXCELのバージョンとカレンダーアドインについての情報がないので私の環境での説明では質問者のものと異なるかもしれない
アドインの表示/非表示はVisibleとかの表示関係のプロパティーは調べないのか
スクロール範囲は「ウインドウ枠の固定」かユーザーフォームとかが考えられるんじゃね
>>966 「カレンダーから日付入力」のアドインは個人用アドインに取り込まれて
毎回それをダイアログから追加するか貼り付けたまま使い続けるかの使用方法しかない様子
マクロの記録で一連の操作をしても望む動きしないし、ユーザーフォームに貼り付けるとか
コピペとかいろいろ試したけど、どれもできず断念
作者に交渉して「こういう使用方法したい」と改善依頼するしかないような 誰か他の案プリーズ
質問です。
>>987 表示だけならユーザーフォームにテキストボックス貼り付けるだけでいいんじゃね
>>987 debug.printでイミディエイトウィンドウじゃだめなの？
フロートさせることもできるからわざわざコマンドプロンプトに投げなくてもいいと思う
ありがとうございます。
Excelを他のシステムから呼び出すならVBAではなくてOfficeアドイン(COMアドイン)
すみませんいろいろとあるのですが、とりあえずイミディエイトウィンドウで試してみます
よく分からんけど、VBSなら呼び出しも黒窓も両方できるぞ。
>>996 コマンドラインプロンプトからvbs経由でエクセルのマクロ叩くのはいいけど、そのマクロからDebug.Print的なのを画面に書き出すのはどうやるの？マクロからテキストファイル開いてログを書き出す方法ならわかるけど
ドラマや映画の中でよくある、でっかいマルチモニター複数枚に
>>998 イメージとしてはそうです。
ありがとうございます。
黒窓だとログっぽさが出て使う人がわかりやすいかなぁと思っていた次第です。
Microsoft同士なのに単純には出来ないんですね
ログっぽさとかｗ
ID:iXsJsite0のレス一覧： >>63 いや、Nextだけのほうがよくない？
ループ変数を明示したい状況って
・多重ループになっていてどのNextかパッと見でわからない
・For(Each) とNextが遠い
あたりが理由だろうけど、それってコードとしてあんまり綺麗な状態じゃないよね
>>60 VBEのイミディエイトウインドウなりでApplication.ScreenUpdating = Trueを実行すれば良いだけでは
>>66 自分もつけない派だけど他人に押し付けることはしない
きれいかきれいじゃないかも人それぞれだから押し付けない
厳密な規約がないならマイルールで問題ないのでは
>>67 Trueにしても更新されないままなんだよね
MS障害で連携とれてないんか
いや、Next iとかきちんと書いた方が第三者も読みやすいはずよ。
>>68 に同意
自分も付けない派だけど
そもそもそんなデカいループ組むことは稀だし
せいぜい2階層ネストするくらいだし
それ以上ループをネストすることがあったら
まず作りがおかしくないか、
別関数に切り出すかとかの方を先に考える。
ただ、だからといってNextの後に変数名が
付いていたからといって
「律儀な人だなぁ」と思うだけ。
別に付いてても付いてなくても
困らないからどっちでもいい。
むしろ繰返しの変数名に「I」とか「j」とか付けてる方が
>>66 C言語とかで
for(int i=0; i<10; ++i){
hoge;
fuga;
}i;
とかだったら卒倒して死ぬな
Nextの後ろに変数書くかどうかで読みやすさが変わるようなプログラム組んでるなら
>>75 それな
Cに限らずJavaやC++やC#もみんなそんな書き方だし、自分はVB系のような書き方も明示的で良いとは思ってるけど、
その書き方でもあまり困らないから結局のところは慣れの範疇だよね。
i付けろとか、どうせ田中とかあの辺が言ってるだけだろ？
ついてようがついてまいがインデントさえ正しきゃ好きにしろで終わり
>>80 これな
みんな、そんなにループのネストが多いの？
functionに切り分けて配列を引数に持たせるのは無し？
>>64 これちょいと前からなってたけどおま環かと思ってfalseにしないで回避してたわ
Twitter見たら前からなってる人も居たみたいね
CreateObject(“Internetexplorer.Application“)が突然エラーを吐くようになった
それも365？
うへ、再起動したら治った
こないだのオフ会楽しかったな
>CreateObject(“Internetexplorer.Application“)
Next iってVisualじゃないBASICでインデント付けずにフラットに書くことが多かった時代の名残でしょ
その環境だとNEXT IのIを省略した方が省メモリーじゃなかったっけ？
確かコマンドごとにコードが決まっててそれでメモリを削ってた気がする
>>99 あのー
このレベルの懐古厨にマウントは無理だよ
>>100 環境に依ったような気がする
>>101 マウント厨かよw
？ が勝手にPRINTになるやつね
>>103 合ってるよ
？はPRINTの省略でセミコロンはマルチステートメント
マルチステートメントは改行(crlf)するより1バイト分お得
プログラムエリアが20kくらいしかなかったから可読性なんて贅沢の極みの状況だった
マルチステートメントはセミコロンじゃなくてコロンな
>>106 あーすまん、フォローありがとう
もうウロ覚えだわ～
>>103 のセミコロンはPRINTの改行抑止の話じゃねーの？
>>110 a = 1; のどこに関数が？
>>110 行末っていうか文末な
>>111 >>103 はそういう意味かもしれんとも思ったが、それに対する
>>105 は...
PRINT AよりPRINT A;が早いからPRINTはセミコロンつけろっていうのは太古の昔にはあったなあ
如何にこのスレがじじいばかりか
・高度IT人材、富士通は最大年収3500万円へ
高田純次はすごいよな
2016使っててVBAが複数エクセル開いてると干渉して困ってたけど
Windows 10 エクスプローラー [表示]-[列の追加]-[列の選択]
vba shell.application getdetailsof
エクスプローラーが突然アホになる健忘症を治す方法を教えてくれまいか
すまん．ワードVBA の質問すれどこにあるか知ってる人がいたら教えて．昔あったけど発見できない．かそってなくなったのかな．アクセスVBAとエクセルVBAしかないのかな．
>>123 ざっと見たところ、単純に文字列を検索して切り出してるだけだから、関数の使い方を工夫すればできそうに見える
ここよりその作者に直接聞け
エクスプローラーが突然ハゲになる症状を治す方法を教えてくれまいか
>>123 最近ウェブページ操作することが多くて参考にならないかと思ってちょいみてみた
情報取得だけならこういう方法も処理が軽いからありなのかと勉強になったわ
取得したHTMLからお目当ての文字列を切り出すのにGetText関数を重層的に用いるのな
GetText自体は簡単なもので、切り出したい文字列の前と後ろにある文字列を指定することで
その間に挟まれている文字列を取得するというもの
何度か繰り返しこの関数を使うことで、目的の文字列にたどり着く
うまいこと前後の文字列を指定してあげないと切り出しが狂ってしまって目標にたどり着けないので、その辺はHTMLをじっくり見ながらやってみるしかない
タグにクラス名とかIDとか細かく設定されてるから、その辺を前後の文字列にうまいこと含ませながらやるのかな
取得したい文字列が存在する複数ページに共通する部分を使っていかないとダメっていう難しさはありそう
（なんでHTMLDocument使わないんだろう…）
>>123 XPathを知ってるなら、そっちを使えばいいんじゃないの？
だいたいスクレイピングといえば、FindElementByCssとかFindElementByXPathをつかうもので、
なんでわざわざ別のやり方をやりたいのか意味がわからん。
VBAでシリアル通信を行う場合についての質問です。
回答ありがとうございます。
COMポート送受信なんて、普通はそれ用のコントロールつかうんじゃね
>>135 Windows10 64bit でも一応動くみたいだけど一手間（ファイルを移動させたりレジストリを書換えたり）が必要みたい
詳しくは mscomm32.ocx windows10 とかでググって
>>134 別に１バイトずつじゃなくても複数バイトを一気に送れるよ
まあ送信速度に対してCPUの方がアホほど速いから性能上はどっちでも変わらんけど
念のための確認だけど STX が &H53 &H54 &H58 って思ってないよね
最近のPCはシリアルポートがついてない方が多いよね
回答ありがとうございます
>>135 ,137
MSCOMMというものを使う方法もあるのですね
調べてみます
>>138 ASCIIコードの対応でSTXが&H2、ETXが&H3ですよね
一気に送るというのは配列で渡すような形ですか？
基礎的な部分から分かっていないのできつい予感が
つか通信する相手は何だよ？
>>141 相手はレコーダーと調節計で目的は現在値の読出しです
調節計のほうは専用のソフトがありますがレコーダーのほうはありません
PCで両方に接続して2つから同じタイミングで現在値を読んでExcelに記録していくものを作ろうとしています
何でExcelで直接入出力する必要があるのか
>>140 > MSCOMMというものを使う方法もあるのですね
可能ならmscomm32.ocx使った方が遥かに楽
Win32APIだとボーレートとかの指定はSetCommState()を呼ばないとダメだし
あと送信はWriteFile()で書き込めばいいだけだけど受信は何らかの要因で読めない時にキャンセルできるようにしないと使い勝手悪いのでSetCommTimeouts()でタイムアウト設定して制御を戻す必要あるけどmscomm32.ocxだと受信でイベントが発生するからそういう処理が楽
> ASCIIコードの対応でSTXが&H2、ETXが&H3ですよね
ああすまんそこは大丈夫なのね、失礼した
> 一気に送るというのは配列で渡すような形ですか？
そう Byte 型の配列を渡す
> 基礎的な部分から分かっていないのできつい予感が
脅かすようで申し訳ないけど結構ハードル高いよ
特にReadFile()の方はバッファサイズを間違えるとExcel自体が落ちたりするし
どうしても茨の道を進みたい/進まざるを得ないならまずはファイルに対してCreateFile/ReadFile/WriteFile/CloseHandleから練習した方がいいかも
>>144 回答ありがとうございます
制限があるわけではないのでmscomm32.ocxを使う方向で行こうと思います
先が長そうな感じはかなりありますね・・・
まずはCreateFile、ReadFile、WriteFile、CloseHandleでファイルを操作するところからやってみます
まずVBAでやるべきかどうか考えたほうが良いんじゃね
>>123 です。
レスいただいた方々ありがとうございます。
スプレッドシートの ImportXML でXPathは理解しました。
HTML/CSSは書けますがそれ以外はさっぱりで…。
HTMLDocument、FindElementByCss、FindElementByXPathなど
調べていて出てきましたがどう書き出してどうエクセルに書き込むか
一から十までのものが見当たらず挫折しました。
>>129 さん！書き込み、非常に参考になりました。
<td></td>
<td></td>
<td></td>
などは無理なようですが、どうにかclassなどが振ってあるサイトを探せました。
ありがとうございます。
>>123 if文で真偽値を二度判定するあたりなどは、もうさすがにやめてほしいわ。
>>147 Cells()だらけなのにExcelシートに値をセットしていないと思うのか？
というか簡単に取れるけど
kabu_kode = ThisWorkbook.Sheets("Sheet2").Cells(1, X).Value
If kabu_kode <> "" Then
driver.Get "
https://finance.yahoo.co.jp/quote/" ; & kabu_kode
Call Sleep(1000) '3秒待つ
ThisWorkbook.Sheets("Sheet2").Cells(2, X).Value = driver.FindElementsByCss("h1._6uDhA-ZV").Item(1).Text '社名
ThisWorkbook.Sheets("Sheet2").Cells(3, X).Value = driver.FindElementsByCss("span._3rXWJKZF").Item(1).Text '株価
Set o_elem1 = driver.FindElementsByCss("dt")
Set o_elem2 = driver.FindElementsByCss("dd")
For Y = 1 To o_elem1.Count
If X = 2 Then ThisWorkbook.Sheets("Sheet2").Cells(Y + 3, 1).Value = o_elem1.Item(Y).Text '凡例を書く
ThisWorkbook.Sheets("Sheet2").Cells(Y + 3, X).Value = o_elem2.Item(Y).Text
Next
End If
kodeが気持ち悪い
>>145 ARDUINO とかで遊んでるやつもいて
VBA シリアル通信
でググれば事例は出てくるからまずはここら辺を参考にすればいいかと
https://kats-eye.net/info/2020/03/23/excel-arduino/ >>146 ,151-152 みたいな何の参考にもならないレスは無視していい
ローマ字と英語が混ざってる時点で頭悪そうだなとは思う
盛り上がってるところ低レベルの割り込み恐縮ですが
>>158 おまえ
>>145 の状況知ってるの？
まさか状況知らずにダメ出ししちゃう無能君かな？w
>>155 VBAのシリアル通信で調べていた際にARDUINOという単語を見かけたことはありましたが同じようにシリアル通信ができるのですね
中身を見た限り基本的な部分は同じようにできそうなので参考にしてみます
>>159 CSVで出力してPythonでmatplotlib使えば一発よ
>>161 典型的なパソコンにちょっと詳しいだけの馬鹿
>>164 完全同意！
>>164 とかまさにそれだよな
>>160 整数0から20で要素数70です
>>163 csv使うならワークシート関数でいいです
>>166 普通に
Dim F(0 To 20) As Long
Dim I As Long
For I = LBound(A) To UBound(A)
F(A(I)) = F(A(I)) + 1
Next
ってやればいいだけじゃねーの？
>>167 なるほど調べるのが整数限定ですからね
一般化して考えてたので思いつかなかったです
ありがとうございました
セルＡ１に 1:00:00 の
VBAを知らないのではなくExcelのことをろくに知らないだけだな
>>169 VBA入門の最初の1ページからこのスレで説明しろと？
コロンは除外したほうが比較しやすい
>>169 の質問は「1:」とコロンも取り出したいという話なんだからまずはそれを回答しないとだめじゃないか？
そのうえで比較するのが違いがあるかなら1:00:00は「1」で12:15:00は「12」でもいいと思うから
>>176 みたいな回答を補足したほうがいいと思うが
なので回答としては Left(Range("A1").Text, 2) とでも答えてやればいいとおもうんだが
気持ち的にはめんどいからそれでいいんだけど、
＞12:15:00 などの左2文字と比較したいのです
>>169 本当に左2文字を取り出したいのなら
変数 = Left(Range("A1").Text, 2)
だけど、もし時刻を比較したいんならこの方法はおすすめしない
>>169 です
たくさんレスいただき本当にありがとうございます
参考になるレスがたくさんで感謝しかありません
具体的な一例まで書いて頂けて助かります
これからで教えて頂いた内容を参考に
プログラムしてみます
この度は本当にありがとうございました
m(_ _)m＠24歳OL
@24歳OLってことは、
10進法で24ではなく16進法とか32進法で24だろ
>>189 基数が変わると@の意味が変わるってこと言ってる？
社会人二年目が終わり、そろそろVBA・・・ってパターンの24歳OLもあり得るのでは？
遊びたい盛りの24歳がVBAになんか興味持つわけ無いだろ
年齢に食いついてるのは質問に回答すらできない人達でしょ
ネタに反応すんなよw
お前ら何を言ってるんだ？
なぜ質問してる条件が「1:00:00」といってるのに勝手に「#」と想像を膨らませて混乱させるバカがいるのかと思う
>>201 バカはお前だ。
>>689 が「時間データ」と銘打っているのだからそこに入っているのは「文字列データ」ではない。シリアル値だ。
そのシリアル値が入ったセルの列幅を縮めてみろ。
まともに動かなくなるぞ。
valueでセル値を取得してFormatなりで文字列に変換した後で切り出しを行え言ってるんだ。
そんなことも理解出来ないこんな小さいロジックでバグるコードドヤ顔で晒してるような奴がよくこの業界で生き残ってこれたもんだ。呆れるわ。
あまりバカにかかわりたくないんだがTextでとると表示されている内容（「#DIV/0!」など）と同じものがとれるのはしってるわ
このクソ暑い日に本人そっちのけで戦う熱量に恐れ入るわ
>>204 既に回答済みだわ
集中力が無いのか
読解力が無いのか
バカなのか
或いはその全てか
そんなユーザーなら誰でも知っているような話をどや顔で言い争うのやめてくれませんか？
>>209 反面教師と思ってああならないように気を付けようぜ
相手の立場やレベルを考慮しないで言った通りのことしかできないやつは使えないって事なんだが
SeleniumBasic、WebDriverの質問いいですか？
>>206 なんでtextプロパティで取得する前提なのかがわからない。
うちの会社は、プログラミング禁止になったよ
全体最適の観点では必ずしも間違った判断とは限らない
>>225 へぇー経緯は？
作った後テストしてなかったとか
IEEE754のせいで小数点計算がズレたとか？
馬鹿が内容も理解せずコピペで作ったマクロのせいで間違いが発生していた
システム屋が作ったものではないと、そのひとしかわからないから、重要業務の担当者を外した巨大企業を知っている。
>>229 他人と共有するものは、それなりにきちんと書かないといけない（ドキュメンテーションも含めて）けれども、自分ひとりが便利に使う書き捨てマクロまで禁止にするなんて、どうかしていると思いますよ
イノベーションイノベーションとうるさいくせに、そういうのを禁止するなんて矛盾していることに気がつかないのでしょうか？
>>225 面白そう
口パクみたいな感じで、働いてるフリすりゃいいんだろ?
実際には裏でVBSでも動かしておいて
人間がやらなくてもいい業務をやり続けるのってすげぇ時間の無駄だと思うんだけど
属人化、なぜか暇そうにしてたからリストラ、腹いせにパスワードで業務が止まったと見た
公式な部署や担当を当てて書かせたんじゃなくて各々が自分用に書いてたんだろ
過去にタダ乗りされて酷い目にあったから使ってても教えない
どうしたら上手く運用出来るかを考えずに一律禁止にしてしまうところがJapですね
個別最適を無視するトップダウンな判断ができるのはむしろ非Jap的だと思う
Excelユーザーは誰もがVBAを使いこなしてると思い込んでいたわ
マニアじゃないから軍事用語なんか使われても強さがわからんわ
Excelそのものも少数の人間だけが知っている運用ルールがあったりする。
表計算ソフトを誰がどんな使い方しようが関係ないし、なんとも思わない
セルを小さくしてドット絵のようにして図解を描いたことならある。
元帥（名誉職・総司令官）⇒ 名誉会長
>>248 ごめん、軍曹を舐め過ぎた
上等兵くらいでした
>>248 尉官以上の士官とそれ以外は全く別の世界
本邦警察のキャリアノンキャリアは軍組織を元にしてる
民間での平から社長に登り詰めるみたいなのは不可能
元帥クラスって誰辺り？
>>253 あの人以上はほぼいないだろうからそれでいいんじゃね
上等兵の俺はオブジェクト指向が解らんでつ
かなり昔だが、会社の同期がその人の講習会に参加したときに、「私より高いテクニックを持った人はいたとしても、分かりやすく教えられるスキルを持った人はほとんどいないからね～、私はテクニック至上主義ではない、実用的なやり方を分かりやすく教えられるプロ！」
事実としてそうなんだろうけど自分で言うのはどうかと思う
いっぺんでもやってみるとわかる、教えるのって難しい
>>225 >>228 どういう業種なんだろ
馬鹿な対応っぷりからすると御役所系？
>>257 せっかく教えても肝心な質問した方が話聴いてなかったりするからな
>>256 確かに。
まあアピールポイントに特徴ある人だと思う
>>265 実務経験ゼロでも成り立つ
講演、物書き、教育は、実務経験ゼロの会社がたくさんある。
だから、実例がすぐに出ない。
スレにまったく関係ないけど思い出した
性格や考え方に問題あっても知識があるならいいんじゃね
日本の企業は人材の性格も重要視するもんね。
性格は欧米の方が重視されるぞ
>>268 が不明瞭なので補足
寄せ集めの知識というのは複数著者のテキストを咀嚼せず文字通りコピペしてるって意味
例えばビジネスコミュニケーションでは科学的根拠に基づかなければいけないというパワポ資料の次ページでナントカ占いみたいな性格判断が出てきたりとか
>>273 確かにそうだな
ここはお前の力の魅せどころだぞ
いや、言っている事は分かるから全然良いですよ
VBAと関係ないおっさん達の自分語りはいつ頃終わりますか？
>>276 お前みたいに構うやつがいなくなるまで無理じゃね
>>276 ほんと他で話せばいいのにと思うよな
質問来てもろくな回答もできないからこういう答えの不要なレスするしかないんだろ
Excelできれば女子にモテるぞww
>>248 カプコンの1943思い出した
ステージクリアで尉官が上がって最終的に特別中将だったかな
よく考えたら社長クラスが一人で突撃ｗ
Excel出来るようになったのではなく他に問題があるのでは🤔
>>284 だまされたんだと思う、もうExcelやめた方がいいよ
excel365でファイルを更新した形跡を全く残さない方法って何かありませんか？
エクセルのＶＢＡって2000から現在までの間に
>>292 一応言っておくけどお前のやろうとしてることは犯罪だし、回答書くと犯罪幇助になるから
>>293 2007 辺でグラフ周りが色々変わって過去のマクロでエラー出たことがある
そこそこあると思うよ
>>293 64bit化、ワークシートの大きさ、ワークシート関数の増減など、バージョンごとにどんどん変わってる
何を問題とするかは人それぞれで、利用環境や目的にもよるので、ちょっと質問が曖昧すぎ
>>292 こいつみたいなのがまさにこういうパターンだ
馬鹿が内容も理解せずコピペで作ったマクロのせいで間違いが発生していた
コピペ主体だからメンテ不可能だった
そのくせ馬鹿は自分が他の人より偉いと思い込んでいた
犯罪の質問なんて無視しとけよ
嫌がらせして辞めたところで迷惑を被るのは同じ作業してるポジションの人か後任の人だろうからやめとけ
うちのブラックに来たら誰でも同じことしたくなると思うけど
>>292 マクロ作るのもあなたの業務だったのでは？
会社で仕事して給料もらえてたのにそれ以上のことなんかないよ
> 犯罪なのは分かったからやめとくわ
気持ちは分かるが犯罪はいけないな。
If Date > 退職日 Then
てか保守出来る人居ないなら何もしなくてもそのうち会社は面倒事に巻き込まれるだろ
放置すればいいものを
123 10
>>308 挿入/削除はいろいろ面倒だから簡単にやるには別シート（もしくは別列）に転記しながら処理して最後に書き戻すのがわかりやすいと思う
スマホから入力してるから細かいミスはあると思うがこんな感じ
Dim S1 As WorkSheet: Set S1 = WorkSheets(1)
Dim S2 As WorkSheet: Set S2 = WorkSheets(2) ' 空のシート
Dim R1 As Long
Dim R2 As Long: R2 = 1
Dim N0 As Long: N0 = 0 ' 元の値合計
Dim N1 As Long: N1 = 0 ' 割戻し合計
Dim C0 As String ' 処理中のコード
C0 = S1.Cells(1, 1).Value
For R1 = 1 To S1.Cells(S1.Rows.Count, 1).End(xlUp).Row
Dim C1 As String ' 現在のコード
C1 = S1.Cells(R1, 1).Value
If C1 = "" Then Goto Continue
If C0 <> C1 Then
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
R2 = R2 + 1
C0 = C1: N0 = 0: N1 = 0
End If
S2.Cells(R2, 1).Value = C1
Dim N2 As Long: N2 = S1.Cells(R1, 2).Value
S2.Cells(R2, 2).Value = N2
R2 = R2 + 1
N0 = N0 + N2: N1 = N1 + 0.9 * N2
Continue:
Next
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
>>310 ありがとうー！！
後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、
別シートに単純に一度書き写していって最後に読み戻すってのは目から鱗です
確かにそっちの方が問題なくできるかもしれないです
試してみます！
>>312 > 後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、
If C0 <> C1 Then
で、コードが変わった事を検出して変わったら
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
R2 = R2 + 1
で、差分を追加して
C0 = C1: N0 = 0: N1 = 0
で、新しいコードを覚える共に合計値を初期化してる
こんなことがわからない奴が金計算をVBAでするなんて
テキストファイルからキーワードが含まれてる行をセルに書き込みたいです
>>313 ありがとうございます、
勉強中なので質問なんですが、
C1:N0 ＝0:N1=0の中の:ってどういう意味なんでしょうか？
>>315 > キーワードが８個あります
これはどうなったの？
単に複数のキーワードが含まれてるかを見たいだけなら
Line Input #1, B '1行分だけ読み込み
Dim K As Variant
For Each K In Split("商品,価格", ",")
If B Like "*" & K & "*" Then
Cells(i, 1).Value = B
i = i + 1
Exit For
End If
Next
>>315 どんなやり方でもいいと思うけどキーワードを含むかどうかを関数にするといいんじゃない
Function CheckKeyword(ByVal pValue As String) As Boolean
CheckKeyword = True
If pValue <> Replace(pValue, "商品", "") Then
Exit Function
End If
If pValue <> Replace(pValue, "価格", "") Then
Exit Function
End If
残りのキーワードも同様に判定
CheckKeyword = False
End Function
これを使えば
i = i + 1
Cells(i, 1) = B 'セルへ入力
の部分は1つでいいよね
>>318 VBA マルチステートメント
でググってくれ
>>318 改行みたいなもん。たとえば
N0 = 0
N1 = 0
という複数行のコードを1行にまとめることができる
N0 = 0: N1 = 0
だけど、やらない方がいいと言われている
変数宣言と同時に初期化する用途に限って俺は許容してるな
>>324 変数宣言と一緒に初期値設定する人はよく見かけるしアリだと思う。
同様に実は特殊な場合に限りIf文を一行で記載することもある。
本来構造化言語で使わない方が良いとされているGoto文も特殊な場合に限り使うこともある。
VBAは結構何でもありの言語だからその辺、仕事場のコーディングルールや
作ってる人のマイルールによって随分違いが出てくる。
一概にどんな方法をとることが最善とは言えないから人の書いたソース見てると面白い。
Ifの中身が1行だけの時に全体を1行で書くのはマルチステートメントとは違うくない？
俺も本来はマルチステートメントは使わないけど、5chのレスは行数制限あるからマルチステートメントにしてるだけ
○○ならアリって言ってるってことはそれ以外はナシって受け取る人もいるだろ
>>328 > だけど、やらない方がいいと言われている
みたいな意見があるから
コーディングルールなんて宗教みたいなもんだけど、一応マルチステートメントは推奨されないという意見のが多数
リーダブルコードにも書いてあるし、MS公式も推奨しないと言ってる
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/statements 明確に禁止したがってる人は肌感覚でもっと少数派だけどね
>>331 おっちゃんそれVBAじゃなくてVB.NETのドキュメントやで
Van.Netなら変数宣言と同時に初期値設定出来るから
中のVBAのコードだけGitに上げることってできるの？
>>335 すまん、VB.Netの間違いだった
しかし俺は禿げてはいない。頭頂点しかな！！
>>336 まあコードをエクスポートしたものを載っけておくくらいかな。
Bisual Sutadioみたいにエデイタ上から設定するのは無理だと思った。
て言うかコードだけ取っておいてもexcelのVBAの場合はexcelそのものに影響されるところも多いから
excelごと取っておいてソースを比較したいときだけ何かのツールでソースの比較を行った方がいいと思う。
>>336 今のVBAでGitは見たことないけど
昔VSSで管理するアドインがあったから、アドイン作ればできるんじゃね
>>338 マクロ入ってるエクセルはどうか知らんが、今のエクセルってXMLをzipで固めただけのはずだから
Zip解答してソース管理に突っ込む手もあるかもしれん
つかお前の誤字はわざとかこのハゲ
いきなし禿げたんよ。
Dim Eight As Typhoon
質問です
>>345 Set Eight = New Typhoon
>>346 ハゲる→外に出られなくなる→VBAしか無い人生に陥る
禿が気になるなら頭ツルッツルにするという構想は無いのかね？
Dim Hair As Object
>>346 こら！良い大人ならスキンヘッドと言いなさい！
スキンヘッドが似合う顔ならスキンヘッドにしてるんですよ・・・
>>355 QZ は逮捕・拘留11日を食らったってよ
スキンヘッドは
皮頭よりはハゲと言われたほうが人権を尊重してるだろ
＞＞349
きみたちハーゲマンに質問なのですが
ツルピカかつ、不精ヒゲだから女さんなんて絶対に寄り付かない。
>>360 VBA で残念に思う所の一つやね
サイズの上限が決められるならその上限で確保してサイズは別途管理
上限が決められない時はReDimでちまちま管理してる
あとReDimでサイズを0にできないのも地味に辛い
>>361 >>363 レスありがとう、ハーゲマンたち。
じゃあしかたないんですね。
でもVBAでもpush, pop, shift, unshiftが使える配列のようなものをVBAのクラスかなにかを使って再現することは可能だろうか？
>>364 可能、だが○○の機能がないから作れないではなく
目的の動作をするように作るんじゃね
質問が本末転倒している
>>364 他の言語でもスタックやキューは長さの決まった配列だよ
そこへオブジェクトを出し入れするときに端のポインタを動かすだけ
長さが足りなくなったら長さ2倍の配列を新しく定義してそっちへオブジェクトを引っ越し、オブジェクトの数が長さの25%を下回るようになったら長さ半分の配列を作り直してそっちへ引っ越し
>>366 それは実装による
リストで実装してる奴もあるし
VB(A)の配列でpopが必要になる場面ってあんまないなあ
時間データ
>>364 他言語はよー知らんけどdictionaryじゃあかんの？
>>371 ああスマン。なんかへんな一言張り付いた。
Dictionaryでいいと思う。
やり方は色々あるのにVBAが使いにくいとか言い出す初心者ｗ
だがしかしVBAにDictionaryはないのだよ
ああ、なるほど。いつ使えなくなるとも知れないとなれば先々を考えて使わないほうがいいかもね。たしかに使い方も特殊だし。>dictionary
それって findfirst/findnext 一発で済む問題なのでは？いちいちマクロで書くのもウザったいですよね‥‥
使いにくいとか面倒とか愚痴るくらいならEXCEL使うのやめればいいのに
>>371 Dictionaryはとおの昔から使っておったのじゃよ。
しかし使い続けているうちにふと頭をさわるとなんとハゲてしまったのじゃ。
それは困ると思ってDictionaryに変わるいい方法を探求しておるのじゃ。
DictionaryがイヤならCollection使えばいいと思うけど。
>>384 流石に無知すぎるから少し黙った方がいいよ
Collection に Exists メソッドがあれば...
>>385 そうだね
よく分かりもしないで無知とか決めつける無知は
すっこんでればいいよね
あまりマウントの取り合いは止めようぜ
ここにいると神になった気分になるな
>>382 ふざけてるつもりは毛頭ございませぬ。
でもこれからもハーゲマンの名に恥じぬようVBAを探求していきたいです。
>>396 コラ、われわれハゲ族は、
励まし合って生きていかねばならぬ。
ハゲ増し合うことはするな。
なんという体たらく
2つの表があって、表Aと表Bとして
レス：1-200 201-400 401-600 601-800 801-1000 ALL
このスレへの固定リンク： http://5chb.net/r/tech/1658009255/ ヒント： http ://xxxx.5chb .net/xxxx のようにb を入れるだけでここでスレ保存、閲覧できます。TOPへ TOPへ
全掲示板一覧 この掲示板へ 人気スレ |
Youtube 動画
>50
>100
>200
>300
>500
>1000枚
新着画像 ↓「Excel VBA 質問スレ Part77 YouTube動画>1本 ->画像>6枚 」 を見た人も見ています：・【BlackDesert】黒い砂漠質問スレPart38 【BlacKDesert】黒い砂漠PC版 質問スレpart79 【Dead by Daylight】PC版質問スレ【DbD】 part28 【Switch】Xenoblade2 質問スレpart7【モノリス】 【シャドウバース】shadowverseデッキ診断・質問スレ part11 【FFRK】FINAL FANTASY Record Keeper 質問スレ11 Mozilla Firefox質問スレッド Part202 Elona初心者質問スレッド その114 Elona初心者質問スレッド その106 【StableDiffusion】画像生成AI質問スレ22 ◆海外AKB48G板 自治・雑談・質問・スレ立て依頼所スレッド 【BnS】ブレイドアンドソウル 質問スレ Part21 【初心者】ダイエットの質問・相談スレPart159 【初心者】ダイエット質問・相談スレPart231 【Switch】Splatoon2/スプラトゥーン2 A〜B帯スレ 47【質問/雑談】 Civilization6 (Civ6) 質問スレッド Vol.13 Fate/Grand Order どんな質問にも全力で優しく答えるスレ Lv.258 Fate/Grand Order どんな質問にも全力で優しく答えるスレ Lv.1 【プリコネ】プリンセスコネクト！ Re:Dive質問スレ Part13 Fate/Grand Order どんな質問にも全力で優しく答えるスレ Lv.208 Fate/Grand Order どんな質問にも全力で優しく答えるスレ Lv.181 【疑問】最近の嫌儲の質(レベル)が低くなった原因って何？ バカ、ネトウヨ「元から低い」 Fate/Grand Order 質問スレ Lv.25 Fate/Grand Order 質問スレ Lv.28 5chブラウザ「ChMate」質問スレ Part60 5chブラウザ「ChMate」質問スレ Part67 5chブラウザ「ChMate」質問スレ Part73 【PC】Grand Theft Auto V質問スレ★1【GTA5】 【質問スレ】ESCAPE FROM TARKOV Part.9 5chブラウザ「ChMate」質問スレ Part65 5chブラウザ「ChMate」質問スレ Part54 【登場人物】同人人気総合考察・質問スレ45【作品/CP】 ＜櫻井翔＞元日本兵インタビュー炎上も、大物ジャーナリスト「キャスターとして普通の質問」と擁護！「基本中の基本」 ★2 [Egg★] 【サミー】ディスクアップ／ZS 初心者質問スレ その３【コテ禁止】 【VR】オルタナティブガールズ質問スレ part9【オルガル】 iPhone 質問スレッド part57 【本文引用禁止・ﾜｯﾁｮｲ有】 THEOS ONLINE/セオス オンライン 質問スレ 1歳 【池上彰vs天才キッズ】「なんで悪いことをする政治家がいるの？」子供たちが“忖度なし”で質問を… [ウラヌス★] キャッスルヴァニア ロードオブシャドウ 攻略・質問 Cities: Skylinesの質問に答えるスレ11 Fate/Grand Order どんな質問にも全力で優しく答えるスレ Lv.100 【VR】オルタナティブガールズ質問スレ part11【オルガル】 【プリコネ】プリンセスコネクト！ Re:Dive質問スレ Part54 Fate/Grand Order どんな質問にも全力で優しく答えるスレ Lv.251 【StableDiffusion】画像生成AI質問スレ23 Fate/Grand Order どんな質問にも全力で優しく答えるスレ Lv.245 【海外通販】AliExpress初心者質問スレ 15 【Switch】大乱闘スマッシュブラザーズ SPECIAL 初心者スレ11 【質問/雑談】 【BlackDesert】黒い砂漠質問スレPart45 【BlackDesert】黒い砂漠 質問スレ Part29 シノアリス質問スレ【SINoALICE】 Part11 【D2R】Diablo 2 Resurrected 質問スレ Part5【リマスター】 Cubaseシリーズ 初心者質問スレ Part21 【MobA】vainglory初心者質問スレ ★Tier3 Blender 初心者質問スレッド Part39 【初心者】ダイエット質問・相談スレPart224 【FM】Football Manager 質問スレ 36 Webサイト制作初心者用質問スレ part248 5chブラウザ「ChMate」質問スレ Part75 5chブラウザ「ChMate」質問スレ Part68 Mozilla Firefox質問スレッド Part177 5chブラウザ「ChMate」質問スレ Part68 【Switch】大乱闘スマッシュブラザーズ SPECIAL 初心者スレ26 【質問/雑談】 + JavaScript の質問用スレッド vol.142 + 【悲報】アニメーター「インボイス始まったら食べていけないの」識者「それはアニメ業界の体質の問題だろ。偽装請負すんなよ」
15:38:38 up 11:21, 0 users, load average: 92.20, 100.41, 101.49
in 0.03398585319519 sec
@0.03398585319519@0b7 on 091204
