◎正当な理由による書き込みの削除について： 生島英之 とみられる方へ:Excel VBA 質問スレ Part70 YouTube動画>1本 ->画像>12枚
動画、画像抽出 ｜｜
この掲示板へ
類似スレ
掲示板一覧 人気スレ 動画人気順
このスレへの固定リンク： http://5chb.net/r/tech/1616072923/ ヒント： 5chスレのurlに http ://xxxx.5chb .net/xxxx のようにb を入れるだけでここでスレ保存、閲覧できます。
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ
ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ
※前スレ
Excel VBA 質問スレ Part69
http://2chb.net/r/tech/1607786543/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
教えて下さい。
関数でも分類列をMATCHで検索してRow()と不一致なら空白として、それを入力規則にすれば出来そう
>>2 もう少し個別にどの部分で詰まっているか書いた方がいいんじゃね
>>2 ワークシート関数でいいなら
適当なセルに
=UNIQUE(商品の分類が入力された列)
と入力すると重複整理された配列が入力される
プルダウンリストを作りたいセルを選択して「データの入力規則」を選択、
規則をリスト、ソースをさっき作った配列がある列にする
ピボットグラフのRefresh処理が重くて困ってます
>>6 ピボットテーブルの設定で「更新時に列幅を自動調整する」のチェックを外す
ググるとそれ出て来るけど、あんまり意味ないよ
>>7 ありがとうございます
ですが 処理が重くて困っているのはテーブル(ピボットテーブルではない)から作っているピボットグラフなのです
これが重かったりするんですかね…？
というか元々のグラフ生成が重いのかマクロが重いのか分からん
>>11 普通に手動でも遅いです…
何かピボットグラフの設定によるものならとも思いますが…
グラフ更新よりも関数で固まってる可能性の方が高いから、
>>13 ありがとうございます
ワークシート関数は使わず、計算は全部vbaでやっています
関数と言えるのはピボットグラフのグラフ部分だけです
ピボットグラフのグラフ部分の関数が重くなっている可能性が考えられるかも、と思いました
ありがとうございます
すげえなワークシート関数一切使わんでマクロだけでやるとは
遅いとか速いとか漠然としているので何秒かかっているかもわからんし
VBA使ってんならどの部分でどんだけ時間かかってるか測定すりゃいいだけの話なのになぜしないんだろう
>>18 Refreshのところで3秒かかっています
他処理全部は0.5秒で終わります
それだ！
5chのスレで1000まで書き込まれたスレを1から1000までコピペしてsheet1に貼り付け
>>6 イベントやアラートって目的も無く停止しない方がいいと思うが
エクセルからhtmlで保存するとき
選択した範囲をグラフにするマクロを作りたいです
チャートをセレクトしてるからセルのセレクトが外れてるんだよ
エラー処理で On Error GoTo を On Err GoTo と書いていて
ヤフーファイナンスの仕様が変わった？のか、
>>32 まともなコードならGoto文なんてたいしてないはずだからGoto検索して目視確認で良いんじゃね？
うまくいきました、ありがとうございました
もう一つ質問させてください
以下は↓の画像のようにデータを範囲選択し実行した場合、３項目ごとに３つのグラフを表示するマクロです
①
Sub Macro1()
' Macro1 Macro
Set CTop = Selection(1)
Set CLast = Selection(Selection.Count)
Dim i As Integer
For i = 0 To 2
y = i * 3
With ActiveSheet.Shapes.AddChart.Chart
.ChartType = xlRadar
.SetSourceData Source:=Range(CTop.Offset(0, y), CLast.Offset(0, y))
End With
Next i
End Sub
ただ、データに問題があり、「行9」以降の部分を抜き出してグラフを作りたいんです
そこで↓のように範囲選択をして実行したのですが、系列名が出ないのでどのデータかわかりにくいんですよね
②
実際のデータは膨大なため、いちいち「行○○～行○○まで」と数値で指定するのは難しいです
できれば②画像のように手動で範囲選択した場合、①のようにa,b,cと系列名が出るのが理想です
.SetSourceData Source:=Range(○○) の部分をうまく変更すればいいのか、それとも
.SeriesCollection(1).Name = ○○ とあとで系列名を変えるのが良いのでしょうか？
>>32 インタプリタは事前に文法チェックをしないのが普通ですから、そういうのはインタプリタには無理でしょう‥‥
いまどき純粋なインタプリタなんてそうそうないけどな
一応VBAは事前にコンパイルチェックできるが、
>>32 は
On 変数 GoTo xxっていう文法があってそれにそっているからエラーにならない
そして変数宣言を強制しても、Errって組み込みオブジェクトが宣言なしで使えるという罠
なんかコード分析するようなツールでもあれば検出できるかもしれんが、まあ標準の範囲じゃ無理だな
>>35 元データと選択された表示用データを別にすればいいんじゃね
いきなりアホになってコード組むのが劇遅くなりました。
ありがとうございました。
あくまで個人的だが
個人的には、だけど最終的にはエラー停止が発生せずイレギュラーの場合は自らメッセージを出して処理を終了するってするのが望ましいんじゃないかなぁ
確かにそうだ、異常が出ないで済むように入力データのチェックとか
ちゃんとチェックしてればOn Errorの出番なんか滅多にないはずだけど
>>42 そうだね。VBAと言うかVB6系のは基本ベタ書きするしかない。
例外としてクラシックASPでVBS走らせたときはエラー行を表示させることが出来る。
VB.Netになるとその辺の情報は細やかに取得出来る。
VBAはベースが古い言語だから仕方がない。
>>47 別に設計がおかしいと言うことはないよ。
これはVBAに限らず論理エラーで把握しきれないものは実行時エラーとして捕まえる仕組みは当然のように設定する場合がある。
例えばDBに繋ぎに行って繋がったけどその後で何らかしらの外部的要因で切断された場合など、
実行時エラーが発生するのでその場合は何度か再接続を試みてダメだったら初めてエラーとしてポップアップするとか。
その場合、当然データ復旧させるためにもどこでどんなことやろうとして落ちたのかの情報は重要になってくることが多い。
その他にも概ね実行時エラーは予期せず落ちるものの方が多いので
むしろ状況を把握するためにも細かい情報が必要になることの方が多いよ。
それってVBAでやるようなことか？
>>50 .Netの環境が選択出来る状況ならそれでもいいんじゃないの？
.NetならException継承して好きにエラー設定すればいい。
けどここはあくまでEXCEL VBAのスレだからその話は置いておくよ。
後、VBAでやることかどうかと言うのはあくまで俺はだけど正直あまり選択基準にないな。
第一に要件を満たしているか、次に操作や保守がし易いかかな。まぁ、納期も重要な要素にはなるけど。
だからもし後で保守するのが楽になるなら
場合によってはエラーメッセージ出しておしまいにすることもあるだろうけど
場合によってはエラーハンドリング用のクラス作ったり、
論理エラーもRaiseして実行時エラーのように処理して一元管理したり、
後始末処理をコールバックで移譲して処理したりすることも視野に入れるよ。
Date型はミリ秒を持てないのでしょうか？
日付を扱うならDate型使うけど
>>52 シリアル値で日付までが整数部で時間から小数点になるから小数点扱える型なのにミリ秒が扱えないと言うのが
ちょっと引っ掛かったので調べてみたよ。
方式はセルにミリ秒まで表示出来るフォーマットを設定して(yyyy/mm/dd hh:mm:ss.000)
隣のセルにその値を代入する数式を書いて、数値で小数点16桁くらい表示するようなフォーマットを設定して、
またその隣にそのセルの値を代入してセルにミリ秒まで表示するフォーマットのセルを用意して
元の値が正しく表示されるか確認した。
で、VBAで最初のセルの値をDATE型の変数に入れてDouble型に変換したら、
キチンと2番目のセルと同じ頭になることが確認出来たので、DATE型はミリ秒まで持てることが分かった。
じゃ、何で丸められちゃうの？
と言うことになると思うけど、どうやらこういうことらしい。
https://support.microsoft.com/ja-jp/topic/excel- ワークシートのセルに-vba-の日付形式またはバリアント型の日付形式を割り当てようとすると-ミリ秒が最も近い秒に丸められます-4a0af2c5-78de-762f-6431-8669890f585b
>>53-56 ありがとうございます
勉強中でVBAの動きを理解したいだけで、何がしたいという訳ではないです
調べてみましたが以下の理解で合っていますか？
・シリアル値はDouble型の情報
・日付(Date型)はシリアル値の表示形式を"yyyy/mm/dd h:mm:ss"に変更しているイメージ
内部ではミリ秒含むシリアル値を持っており、ミリ秒以下の情報が九められた訳ではない
・シリアル値とDate型はCDbl とCDateで相互変換可能。このときもミリ秒以下の情報は丸められない
・ミリ秒が丸められるのは、Date型をセルに＝で代入したとき
これは、Date型の表示をセルにコピーしているため
・セルにDate型でなくシリアル値を代入することで回避できる
（´-`）.｡oO（「丸める」をどう入力したら「九める」となるのだろう・・・知らんけど）
>>57 本当の意味合いではかなり違う気もするけど
イメージ的にはそんな感じかな
>>57 Excelの内部データ形式は突き詰めない方がいいよ。
それにセルの書式の組み合わせもあるから、初心者は気をつけてね。
ありがとうございます
馬鹿は入力機器で漢字コードが決まると思っているのか
質問させてください
一般的な場合として、例えば最大行までの範囲とした場合はどうでしょうか？
たしかえくせるちゅんちゅんでそんな解説記事あったよ
>>72 その程度ならお好みでどうぞ
値貼り付けとかやる場合は、range(cells(),cells ())なんか使ってられないから、Set、Offset、Rresizeの組み合わせを使っているな
テーブルにすればRangeでCellsを囲う必要がなくなるから、まずテーブルにできるかから考えてみれば
現在6秒に1回実行するマクロを組んでいるのですが、
>>76 コードの中の全部のRangeやCellsにもブック名とシート名を書いてある？
面倒なのは分かるが意図しない動作をする時はF8で1ステップずつ挙動を確認したりデスクに適当な人形をおいてコードを１行１行何をしている行なのかを人形に対して声に出しながら説明すると原因を突き止めやすいぞ
当該ブックのアクティブ化とCallだけでやろうとしている？
これかしら？
Application.Run ‘パス+ブック名’!マクロ名
https://excelwork.info/excel/runmethod/ >>76 これだとアクティブなシートの[A1]に入力されます
Range("A1")=1
これだと指定したファイルの指定したシートの[A1]に入力されます
Workbooks("Book1").Worksheets("Sheet1").Range("A1") = 1
まーおそらく値の設定時に
UIAutomationでInvokeをするVBAマクロをタスクスケジューラで
なんでFINDで探せないんだろ
質問です
回答くださった皆さん本当に有難うございます。
sheet1のA1には
https://www.jma.go.jp/ 英数字
A3からA10000には、それぞれ異なるURLが記載されています
B1には
https://maps.gsi.go.jp/index_m.htmlhttps ://www.mlit.go.jp/river/toukei_chousa/kasen/jiten/nihon_kawa/0305_edogawa/0305_edogawa_00.html
https://www.jice.or.jp/knowledge/japan/commentary03 みたいなURLが繋がっている文字列があります
B2からB10000には、上の様なURLが繋がっている文字列があります
A1からA3は
https://www.jma.go.jp/ 英数字
B1
https://maps.gsi.go.jp/index_m.html B2
https://www.mlit.go.jp/river/toukei_chousa/kasen/jiten/nihon_kawa/0305_edogawa/0305_edogawa_00.html B3
https://www.jice.or.jp/knowledge/japan/commentary03 みたいにB列にあるセル内を分解して、分解した分だけA列にA1の文字列を補う処理
以降B10000までを処理して
sheet2に記載したいのですが、どのようにすればよいでしょうか？
>>91 「エクセルのセルに株価をリアルタイムで
反映するソフトがある」
こんな珍味なソフトウェアがあるのかw
>>94 楽天RSS 岡三RSS。
因みに株は難しく甘い世界ではないので安易にやらないようにしましょう。
ほとんどの人が負けます。
ワークシートの一部を画像として保存する方法にChartObjectsのExportメソッドがあります
>>99 クリップボードを手作業で切り取る際、エクセルの倍率
（Ctrl+マウススクロールで変えれるあれ）を100％よりも大きい高倍率で
切り取った方が画質が良い。
従って、その画像を取得するマクロの直前に、
エクセルの画面の大きさを変えれるコードがあるので、
それを直前に入れ、それを切り取れば恐らく高画質のが出来るんじゃないかな。
最後は勿論ばい倍率をもとに戻すマクロを入れれば良いと思う。
>>92 Ruby で作った。
正規表現の否定先読みなどを使えば、もっとスマートに書けるかも
# ? は、直前のパターンの0～1回の繰り返し。「https?」は、「http|https」と同じ意味
re = %r!(https?://)! #=> https?:\/\/
input_str = %w(
https://a/b.html http://c https://x/y ).join
#=> "
https://a/b.htmlhttp ://c
https://x/y" ;
pos = input_str.size # 文字列の末尾の位置
results = [ ]
# 文字列の末尾から、一致させていく
while pos = input_str.rindex( re, pos )
# 一致した位置から末尾までを削除して、それを配列の先頭に追加していく
results.unshift input_str.slice!( pos..-1 )
end
p results #=> ["
https://a/b.html" ;, "
http://c" ;, "
https://x/y" ;]
>>102 修正
>re = %r!(https?://)! #=> https?:\/\/
re = %r!https?://! #=> https?:\/\/
( ) は、いらない
>>94 オプションのスマイルカーブをリアルタイムに描画するエクセルソフトとかもあるよ。
外部からローカルのファイルを更新するなんてマルウェアみたいだな。
>>95 配当なんてせいぜい数％
そこから税金2割引かれる
値上がり益は株価が永遠に上がり続けない限り期待値はゼロで、儲かったら2割税金、損しても2割補填してもらえるなんてことはない
つまり税金を考慮した期待値はマイナス
>損しても2割補填してもらえるなんてことはない
>>107 永久保証ならな
3年でさようならなんだから期待値はマイナス
最近のはinternetexploreを許否するwebがあるからこまる
Web開発でIE対応が要件にないときにはむしろ意図的にIEで動かないようにするわ
>>33 自己レスだがわかったわ
WEBクエリでWEB内容をシートに書き出す
その中から出来高とかのワードをfindで探して
そのワードのn行後を取ってくる
みたいな動作をしてるんだけど、
ヤフーファイナンスの仕様が変わって
n行後の場所が変更になってた
ETFだけは従来の場所だから
上記結果がゼロならば違う場所を
取ってくるようにした
コピペプログラマだから
今回findとかOffsetを強制的に
学ばされて勉強になった
>>110 IEが拒否されるときは
こっそりExcelシートでhtml をつくるだよ
htmlならまず拒否されないから
そーして、いつの間にかフォルダーが開いてる
フォルダー御開帳よ
ListViewのすべての項目を一発で削除する方法はありませんか？
>>114 ListView.ListItems.Clear
別ブックから別ブックへ値を持ってきたいときって、コピーか配列使うしかないですか？
>>116 コピー先ブック.コピー先シート.Range().Value = コピー元ブック.コピー元シート.Range().Value
カッコ内はテキトーに
>>115 ありがとうございます！うまくいきました
すみませんがListViewについてもう一つ教えていただけないでしょうか
MultiSelect=Trueのときの選択項目数をラベルに表示させたいと思っています
リストが選択されるたびに表示を更新したいのですが、なにかいい方法はないでしょうか
ItemClickイベントで項目数を数えようとしましたが、選択数分イベントが発生するため項目数が増えると重くなってしまいます
ListBoxのChangeイベントのように複数選択しても一度しか発生しないイベントがあるといいのですが、無さそうなので困っています
>>116 コピー元もコピー先もシートを変数に入れておけば変数シート.セルで指定は少しスマートにできる
>>116 です
>>118 さんのいった通りrangeにvalueをつけてあげればrange.value =range.valueでうまく値をいれることができました
まだオブジェクトがうまく理解できていなかったです
もっと勉強したいと思います
ありがとうございました！
セルには0.9って入力してあるのに
>>123 そだね
ただCurrency型は小数点4桁までしか扱えないから
上記みたいに小数点1桁だったらいいけど
5桁以上扱ったり掛けたり割ったりする場合はDoubleの方がいいかな
ただ、Double型の場合は
浮動小数点あつかいでIEEE754規格だから
変に丸められちゃうことがあるんでかけ算割り算行う時は
一度整数にして計算してやる必要があるけど
まぁ使い所でどの型使うのか分けて使うのがいいかもね
>>123 >>124 ありがとうございます。integer型にしてました
>>122 0.9の小数点以下を切り捨てたら 0 じゃね
別にInteger使う理由もないしlongにしちゃえばとも思う
型を指定すると遅くなるから
>>129 おいおいw
いくら質問スレで初心者だらけだからって
適当なことを教えてはいけない
指定しなかった型には自動的にVariant型が割り当てられて
本来Integer型だったりLong型で済むものに莫大なメモリを割り当てるし当然処理速度も遅くなる
VBAは比較的型の扱いが雑でも何とかなる方ではあるが
頭にプログラムの頭にOption Explicit付けといて型は明示的に設定する癖をつけておいた方がいい
複数の多次元配列をプロシージャに参照渡しするときはどう書けばいいですか
>>132 うん、まあ
引数の型をVariantにしているからでしょうなぁ
何故Variantにすると値渡しになるのかは分からんけど
ちゃんと変数宣言のところで
StringとかIntegerとかの配列型宣言をして
呼び出される関数の引数にも
それに見合った型にすれば参照渡しされるんじゃない？
試してみて
>>132 普通に
Sub Smple()
Dim ara(2,4) As Variant, arb(85,3) As Variant, arc As Variant
・・・略
Call SheetCreate(ara, arb, arc)
End Sub
Sub SheetCreate(ara As Variant, arb As Variant, arc As Variant)
・・・略
End Sub
って書けばいいだけだと思う
>>135 最初はそれでやっていたのですが、同じくスルーされてました
このサブプロシージャ内でブレークポイントを設定しても止まらなかったので、サブプロシージャがスルーされていると思っていたのですが、
サブプロシージャを外しても止まらず、別のファイルに書き換えたら動くようになりました。
ブレークポイントで止まらないのはおかしい
Sub Smple()
全部省略すれば勝手にByRefだと思ってけど違うの?
>>140 その認識は半分正しいけど半分は場合によるので間違い
とくに配列を渡す場合はややこしい
>>141 不思議なんだよねー
配列変数だとByrefにしてもVariantで渡すと値渡しになることがある
よしんばVariantが値型だとしても値型の参照渡しで渡るのは参照渡しになるはずなのに何で？
色々しらべたよ
本題に入るね。
うろ覚えで申し訳ないんだけど、引数をByVal TestAry() As Longとかにすれば値渡し出来なかったっけ？
>>146 呼び出し元に設定した変数もしくはリテラル値が型的にあっている、
もしくは暗黙の変換が行われる型ならそもそも設定しているものが値型。
そうでなければエラーになると思う。
質問場所間違ってたら言ってください
>>148 iPhoneは持ってるんだけどPC側しか365のアカウント持ってないんだ。ごめんね。
だけどググってみたら書式設定は出来るみたいだから数字にしたいセルの部分をそう書式設定すればいいんじゃないかな？
あと、一応EXCEL関連のスレはここに有ったけど
Excel友の会
http://2chb.net/r/software/1223040168/ 何か過疎ってるどころか最後の書き込みが去年の10月だから機能していないね。ここのスレでEXCELのこと聞くのは
ここのスレの住人がみんなOKすれば大丈夫だと思うけど
今まで随分色んなことあったから難しいかも知れないよ。
要素数の限界ってどれくらいなの？
多次元はめっちゃメモリ食うからなるべくやるなと言われている
タスクマネージャでも眺めながら色々試してみては
64bit版なら配列変数1個あたり4GBまで
>>153-155 ありがとう
タスクマネージャ見ても余裕だったんで理由を知りたかった
次元数2次元までにしといた方が無難だね
>>156 そうだね
あくまで俺の経験則だけど
2次元から3次元にしたとき何でも一挙に難しくなる気がする
元々簡単な作りのものしか扱わないならいいけど
VBAではないけど以前東大生が3次元で配列の制御を行うロジックを作って
自分でもよく分からなくなってしまったというのを見たことがあるし
ゲーム作るときも画面表示するだけで
三角関数はもとより行列やアフィン変換とか
理解してないとまともに出来ない
メモリ食うのも理由のひとつかも知れないけど
3次元には出来れば手を出さない方がいいと思う
>>157 ちなみに今回使おうとしたのは3次元配列なんだけど、3次元配列にした理由は同じような2次元配列に順番にアクセスしたかったから
こういう場合は2次元配列を複数用意すればいいのかな？
3次元配列にした方がスマートに記述できると思ったんだけど
行、列、シートで、3次元
>>159 シートを余計に食うけど場合によってはそれもひとつの有効手段だよね。
あまり見せたくなければVerryHiddenとかにしてしまえばいい訳だし。
>>158 使い処によると思うよ。使い方が単純でスピードが速い方がいいならそれでいいと思う。
ただ、これはあくまで「俺が」なんだけど実はあまり配列が好きじゃないんだ。
だからと言うわけでもないんだけどある程度大きなプログラムを組むときは
配列を使うこともあるにはあるけど、2次元配列の代わりにプロパティだけのエンティティクラス作って
それをコレクションやディクショナリに詰め込んで使ったり、
レコードセットを使ったりすることもあるし、
3次元では上記したような仕組みのものやそういった仕組みを持つクラスを作って、
それをまたコレクションやディクショナリにいれたりするように作ったりとか。
何でこんなまどろっこしいことするのかと言えば、要素と言うか項目やレコードの追加や
データ抽出が楽なんだよね。
シート足していいと言うなら先程の
>>159 の人の案も有りだと思う。
削除系は使えないけどシートにはその気になればSQLが投げられるから
抽出や計算、変換、加工とかする必要があるならかなり楽に作れることもあるからね。
三次元配列は単純に頭がしんどい
省略したら値渡しでしよ
>>162 これな
実はVB.Netの場合は省略するとByVal(値渡し)で
旧VB6やVBAの場合は省略するとByRef(参照渡し)で
両方やってる人はよく間違えるんだよね。
再起の場合は確かにどれを反映させてどれを反映させないか結構大事になるけど、
まぁ基本デフォルト使わないで明示的に書くだろうからあまり気にしなくてもいいかもね。
みんなありがとう
>>160 VBAは基本の参考書を読んで一通り分かったつもり
でもクラスは上級者すぎて分からないや
一応自作のオブジェクトという理解でいる
色々案を考えてくれてありがとう、もう少し勉強してからそのあたりも試してみる
シートに書き出すととピポットにできるから
>>165 頑張って
クラスはObject指向言語だと必須だけどVBAでは無理して知ってる必要もないから気が向いたときに覚えればいいと思うよ
とは言ってもクラス自体はそんなに難しいものじゃないんだけどね。よく、ひとつの纏まった機能を他のモジュールに書くよね。
あれを標準モジュールの変わりにクラスモジュールに書けばクラスの出来上がり。
後は他のオブジェクト使うときと同じようにNewして変数に入れて、変数名.メソッド名、変数名.プロパティ名とか書けば使えるよ。
どっちかっていうと考え方と使いどころに慣れるまでがちょっと大変かもね。
それ以上の多態性とかデザインパターンとかの知識を身につけるころには他の言語やってるだろうから
今そんなに深く考えることもないと思うよ。
>>165 VBAの範疇ならクラスは忘れてもいいと思う
コンストラクタに引数も持てないし継承もできないから普通にユーザー定義型と操作ルーチンをモジュールにまとめるのとたいして変わらんし
エクセルというクラスを使いこなせば
自分もクラスで挫折して今はユーザー定義型で幸せです
自分もユーザー定義にした途端お金が入って彼女が出来ました。今ではとっても幸せです。
>>170 プロパティとかコンストラクタとかあとは鯛焼きの型とかいきなり説明しだすから分かりにくいんだよな
最初はクラス内の変数と関数だけでプロシージャ内のコードがこれだけ簡潔書けるようになります程度でいいのに
EXCELvbaで、クラスってどういう時に使うのでしょうか
無理に使う必要は無い。
>>175 よく使うけど毎回書くのが面倒な処理がある時
DB接続とかUIAutomationとか長げぇよってやつ
>>175 どう使うかを決めるのも自分。
だからクラスそのものより
考え方や使いどころに慣れるまで
そっちの方が大変だって言ったんだよ。
まぁ表であればあくまで俺であれば、
項目をプロパティにして
1レコードをクラスにして、
それをコレクションやディクショナリに
登録して使うよ。前記したけどね。
オレ知ってる！
エクセルでガントチャートを作りたく極力簡単な方法を探しています。
（手順が少なく、エクセル苦手でも理解しやすい）
自力で探したところ
https://excel-master.net/cells-worksheets-control/gantt-chart-3/ の「条件付き書式でガントチャートをつくる」が一番簡単な気がしましたが
より簡単な方法があったらご教授いただきたく。
windows板で尋ねようかと思いましたがエクセル専用スレが無いため
詳しい人が多そうなこのスレにお邪魔しました。
要望は何回もやり直したほうがよいよ
>>180 あ、これ、俺は苦手だわ
WBS作ろうとするとどうしても
簡単に作ることより分かり易くする方に
力入れちゃうから多分そのリンク先に
載ってることよりややこしい数式にしてしまう
ま、WBSなんて基本、予定線と実績線、
あと遅れそうになった時のワーニング色と
遅れた時のアラート色、
あと遅延リカバリ用の枠付けとくくらいだから
大したもんじゃないからまぁ頑張って。
こういうの作るときにもっと大事なのは
見積もりとそれに対するする人員と期間の
配分だから、そっちも任されているなら
そっちに作業の80%くらい割り振って
考えた方がいいよ。
ガントチャートだとあんまり工程管理にならないんだよ
>>180 そのガントチャートで問題ないならそれが一番簡単だと思う
ただ
>>184 が言うような日程管理をしたいならもうちょい作り込むなり専用アプリを使ったほうがいい
質問です
質問者はワークシートでの作り方はある程度想像がつくけどVBAの知識がある人ならよりスマートな方法を知っているかもしれないと考えてここで聞いたんだろうし、
excelのOnTime関数をPowerPointで使うこと出来ないよね？同じ機能を持った関数ってある？
Excelから呼び出せないのか
>>190 ありがとう
まったく理解できないけど、もっと楽な方法ないのかなー
>>180 スレ作ればいいだろ
厚かましいにも程がある
Python, Julia, Ruby などで使う、Jupyter Lab に、ガントチャートは無いのか？
業務とはかけ離れた腕自慢スレになりつつあるなここは
>>180 です。スレ違いな質問に回答くださってありがとうございました。
>>187 さんのご推察どおりここの先生方を最も頼りにしております！
残念ながら任されているのはエクセル上の作業のみであり
人員期間の配分は担当外ですが
コレが一番スマートだと確信できました。
これで安心して作業に入れます。感謝します。
>>197 昔から、質問の答えが出た後に別の方法を書き込む競争はやってた
回答者さん同士で競争とか知恵袋と同じじゃんか
無駄な書き込みを無駄にスレに書き込んでスレを無駄に使うことはスレの無駄遣いだと書き込むことはスレの無駄遣いかもしれない
VLookupをつかったのは無駄な努力だったな
これをマクロでどうにかなりませんか
Excel初心者はVLookupしか知らないから
池の女神は言いました
質問です
>>209 の言う
VlookupとHlookupの頭文字は
バーティカル(垂直)とホライズン(水平)
なのは分かるんですがXlookupの頭文字の
Xってなんですか？
EXCELの質問でスレ違いなのは
重々承知していますが
このスレにいる方々の知識の豊富さに縋らせてください
考えると夜も眠れない有様です
>>211 クロスのスペルってCROSSではないんですか？
それともX_JAPANの「エーックス」のクロスですか？
分かりません＞＜
向こうではCrossとかChristmasをXで省略するから、だと思う
>>213 >>214 やっと分かりました
今日からぐっすりと眠れそうです
ありがとうございました
バツルックアップじゃないの？？
とんこつととんかつの違いはなんですか
ガントチャートの欠点は
>>221 あ、そうなんだ
EXCELの数式だったら予定線より実績線が
二日くらい前になったらワーニングで黄色、
予定線以降になったら赤とかにしとけば
ワーニングに入った時点でリカバリ案とか
会議で話し合えるのにね。
期限過ぎる前に進捗率がヤバくなればリスケで仕切り直し
開始日でだいたいわかる
>>225 開発あるあるだなw
そうか、確かにVBAだと後ろが伸びるだけになるかも知れないね。
他のある程度大きいシステムになると
・客先から上がって来ない要件定義
・客先だから強く言えないチームのリーダー
・差し迫る納期
・焦りが出てきてイラつく俺ら。それを宥めるリーダー
この辺からが違うところかな
・システム間の連携や他システムとの連携のため伸ばせない納期
・更に焦る俺ら。宥めきれなくなるリーダー
・上がって来る要件定義、血眼で設計書を作る俺ら
・時間がなくて客先との対面レビューのはずが回覧レビューになる設計書
・PGしながら単体テストケース作りながら単位テストしながらエビデンス取る俺ら
・超える納期、無くなる休日、伸びまくる勤務時間、倒れる仲間
・覆る要件定義、設計種ミス発覚、他の嶋から助っ人入るも焼石に水、発狂する助っ人
・何とかSTまで終了。飛ばされるリーダー、バグだらけの成果物、昇天する俺ら
最悪こんな感じかな。
>>225 開発あるあるだなw
そうか、確かにVBAだと後ろが伸びるだけになるかも知れないね。
他のある程度大きいシステムになると
・客先から上がって来ない要件定義
・客先だから強く言えないチームのリーダー
・差し迫る納期
・焦りが出てきてイラつく俺ら。それを宥めるリーダー
この辺からが違うところかな
・システム間の連携や他システムとの連携のため伸ばせない納期
・更に焦る俺ら。宥めきれなくなるリーダー
・上がって来る要件定義、血眼で設計書を作る俺ら
・時間がなくて客先との対面レビューのはずが回覧レビューになる設計書
・PGしながら単体テストケース作りながら単位テストしながらエビデンス取る俺ら
・超える納期、無くなる休日、伸びまくる勤務時間、倒れる仲間
・覆る要件定義、設計種ミス発覚、他の嶋から助っ人入るも焼石に水、発狂する助っ人
・何とかSTまで終了。飛ばされるリーダー、ハゲだらけの社員、昇天する俺ら
最悪こんな感じかな。
うーん、何か接続がおかしいのかな
うーん、何か接続がおかしいのかな
EXCEL VBAは好きだし凄く肌に合ってると思うけど、案件単価がちょっとなぁ
EXCEL VBAが肌に合う様な奴が案件単価とか生意気。
一般事務が仕事中に覚える→結婚・退職→主婦の傍ら有り余る時間で糞みたいな単価で受注
冷戦時代日本がロケットのことでロシアに教えをこうたとき
VBA Seleniumdriveで
下記「やりたいこと」のようにhtmlから抽出したいのですが、 http://***" ; >>240 <HTML>タグか<BODY>タグで全体のソースを取り込んで、あとは文字列として処理
>>241 >>242
ありがとうです。
もう少し考えます。。
>>240 jQuery なら、2重ループで、
<h2 id="id-1">ヘッダ</h2>
<table><tbody>
<tr><th>項目1</th><th>項目2</th></tr>
<tr><td>要素1</td><td>要素2</td></tr>
</tbody></table>
<table><tbody>
<tr><th>項目3</th><th>項目4</th></tr>
<tr><td>要素3</td><td>要素4</td></tr>
</tbody></table>
$( function ( ) {
let table = $( '#id-1' ).next( ); //次の兄弟要素
// table > tbody > tr を、1行ずつ処理する
$( table ).children( ).children( ).each( function ( index, row ) {
// 1列ずつ処理する
$( row ).children( ).each( function ( index_2, col ) {
console.log( `${ index }行 ${ index_2 }列`, col.textContent );
} );
} );
} );
出力
0行 0列 項目1
0行 1列 項目2
1行 0列 要素1
1行 1列 要素2
>>244 VBAに対してHTMLの集約やメソッドチェーンが使える言語をぶつけてくるのは卑怯だと思うの
質問です。
>>249 vlookup部分もVBA化して組入れれば一つのJOBに出来るよ
>>249 ３つぐらいなら請求書シートを必要分コピーして各々値を入れて複数シートを一気に印刷するしか思い付かない
請求書シートも複数有るなら、それをFor Nextで繰り返すぐらいだろうね
UI Automationの質問てここでいいの？
>>249 俺もそれ使ってたわ
100セットとか印刷するとコピー機占領するからすごい迷惑なんだよね。
色々あって、vbaは逆に使わなくなった
方法はは
>>251 にかなり近くて、
・シートを連番で用意しておく
・シート名は「3」～「5」
・vlookupのキーはシート名にする
Range("d1").Valueには、 .Range("A" & シート名).Value
Range("n1").Value には、.Range("A" & シート名+ 1).Value
のように、予めシート名を引っ張ってｖｌｏｋｕｐ部分は完結させておく
後はシート「3」～シート「5」を選択し、印刷するだけ。ジョブは一つになるし、vbaも不要になる
シート内容が変更になる時は、ｖｂａを使って連番のシートを再作成すると良い
直接印刷せずPDFにすればいいじゃん
>255
>>253 ここで良いけど、
UIAutomationとムービーメーカー4両方知ってるレアな人じゃないとわからないと思うぞ。
俺は前者しかわからんからあてずっぽうで言うけど、
FindFirstじゃなくてFindAllして中身を調べれば良いんじゃないの?
>>257 とりあえずごまかしながら作ったのがこんなやつ
VIDEO ソースとかほしい？
様々なご提案ありがとうございます。
質問です。変更したセルに色をつけたいと思っており、調べたところ変更履歴の使用や色を変更するマクロ(private sub～)は出てきました。
If Today()="2021/04/17" Then
こんなこと出来ますか？
A列に予め色の見本が、C列に数値を代入していく。
C列に数値を代入したら、そのセルの背景色をA列の色の見本と同じ色にしたい。
A列め色の見本は20色ぐらいを想定。
条件付き書式を使おうと思ったけど、20色も増えたらルールも20個書かないといけないので、ちょっとなえた。
>>261 これを、ワークブックオープンにいれておけばよいよ
>>262 セルに入力されたらシートチェンジというモジュールがあるはずなので
それをさがしてその中でいろいろな処理をすればよいよ
>>262 出来る出来ないで聞かれたら出来ると答えるよ。
方法は？と聞かれたらワークシートチェンジイベントをシートモジュールに付け足して、引数にはRangeが入ってくるから
その範囲にC列が被っていたらそこの数字みてA列の該当する数字の色拾って来て着色する。
イベントの範囲とC列が被っているかどうかは計算でも求められるけど、今回はセル値も見ることになるからFor Each でイベントでとったRangeを
ぐーるぐる回してC列かどうかを見ればいいと思うよ。
その際、イベントの引数の範囲もRangeだけど
Eachの後に書くCellに該当する変数の型もRangeになることに気をつけて。
実はCellって型はRangeなんだよ。
>>265 こういう回答する人って知識ひけらかしたいだけに見える
簡潔答えられないのかね
まあ条件付き書式のほうがスッキリしていいと思うけどな
>>266 そうなんだ
最近ヒマしててちょっとひけらかしたい部分もあったんだ。
でも作る時のポイントになること押さえてるからいいだろ？
本当は手元に環境があればソース貼りゃいいんだけど。
ふつうはシート・チェンジのモジュールのなかで
>>262 どういうシステムにしたいかがいまいち分からん
まずC列の複数のセルに0～5の整数をまとめていくつも代入して、
その後に数字入れたセルの背景色をまとめて変えたい？
口だけ出すのもなんなので一応作ってみた
>>262 てさあ、なかなか賢いとうか
赤や黄色のセルを取り出す、⬅これできないだよな
どこかのセルと同じ色にするならできるだけど
>>271 素晴らしいです。
やりたいことが出来ました。
コメントくれた人にも感謝します。
>>271 いま見返したらAreaがAleaになってるな
エクセルは1600万色もあるからどれが赤で黄色なのかわからない
>>102 ,103
返信ありがとうございます。
input_str =～ の()内にB2の文字列を貼付して出来ましたが、
input_str =～
input_str =～
と複数行にして試しましたが、複数行は出来ませんでした、どうすれば複数行処理可能になりますでしょうか？
>>258 いや、ムービーメーカー4がわからないから、貰ってもわからないし。
コンボボックスって未選択の所?
UIAutomationじゃなくてもSendMessageで行けそうな気がするけど・・。
▼が何の文字を指定すればいいのかわからないって意味なら、
やっぱりFindAllで取得して、配列の何番目にそれっぽいのが入ってるか調べればいいと思うな。
>>278 1日がかりでググりまくりの苦労と試行で出来た。
'コンボボックスを開いて折りたたむ
Dim ptnExpand As IUIAutomationExpandCollapsePattern
Set ptnExpand = elmYukkuri.GetCurrentPattern(UIA_ExpandCollapsePatternId)
ptnExpand.Expand
ptnExpand.Collapse
'コンボボックスの中身をセルA3に書き出す
Set elmYukkuri = elmYukkuri.FindFirst(TreeScope_Subtree, iCnd)
Set iCnd = uiAuto.CreatePropertyCondition(UIA_ClassNamePropertyId, "ListBoxItem")
Set elmsYukkuri = elmYukkuri.FindAll(TreeScope_Children, iCnd)
Set iCnd = uiAuto.CreatePropertyCondition(UIA_ClassNamePropertyId, "TextBlock")
For i = 0 To elmsYukkuri.Length - 1
Set elmYukkuri = elmsYukkuri.GetElement(i).FindFirst(TreeScope_Children, iCnd)
Cells(i + row_セリフ開始, 1).Value = i
Cells(i + row_セリフ開始, 2).Value = elmYukkuri.CurrentName
Next
Private Sub Worksheet_Change(ByVal target As Range)
>>281 Changeイベントをする時は、
処理の前で
Application.EnableEvents=False
処理の後で
Application.EnableEvents=True
が動くようにしないと延々Changeイベントが動いて重くなる
>>281 むしろそれでプロだったらびびるけど・・・
Worksheet_Change()はワークシートの内容が変わった時に発火する
Worksheet_Change()→ClearDates()→Worksheet_Change()→UpdateDates（）→Worksheet_Change()→・・・
多分無限ループになっている
こういう時はイベントを無効にしておけば無限ループにならない
Private Sub Worksheet_Change(ByVal target As Range)
object.EnableEvents = false
'内容
object.EnableEvents = true
endsub
すまん、Application.EnableEvents = Falseだった上に遅かった
すばやい返答ありがとうございます
>>285 >>285 ごめーん、object.EnableEvents = false は間違いです
>>286 さんが正しいです
>>281 それコピペして動かしてみたけど全然重くなかったよ
1900年から今日までにしても4秒くらい
これで固まるのは別の原因があると思う
その場所以外にとても複雑な計算式があって
Cells(y, 1) = d の度に計算して重くなってるとか
そうであれば計算を手動に変えて最後に自動にするとか
セルじゃなくて配列にdを入れて最後に一回だけ出力するとか
UpdateDates()を1行ずつ動かせばどの行で固まってるか分かると思うよ
>>290 それはChangeイベントで検証しましたか？
>>291 検証しました。
対象セルの書き換えはないから普通は無限ループにならないと思うけど
環境によって何か違うのかな？
とにかく一行ずつ動かしてどこで固まるか調べた方がいいと思います。
B4:E6を画像として出力したいんだけど、Rangeの範囲指定をどういじっても、B3:E6が出力されてしまう。
B4:C6を指定してもB3:E6が出力されてしまう。
どうすればいいの？
>>295 thx
CurrentRegionとったらあっさり出来たわ。
たまたまググって出てきたサンプルが説明もなくCurrentRegionを使ってて、
それを参考にしたから数時間損したわ。
Name As でExcel以外のJpegファイル等のファイル名を変えることができると思いますが、そもそもなんでEXCELで他のソフトウェアのファイル名変えられるんでしょ？
>>297 ファイル操作はOSの基本機能の一つだから
逆に制限する方が、作るのも使うのも面倒になってメリットがなさすぎるという設計上の理由
そっか、OSを操作してるんでしたね
昔のExcelは非公開API使ってたとか噂を聞いたことがある
なつかしいなぁ 90年から2000年ぐらいの頃だな
あるシートをコピーした時、
書式設定をコピーしなくて良いなら配列に値を代入して新しいシートに貼り付けが楽じゃない？
VBAで隠蔽使ってる人はどんな時に使ってますか？
>>306 なるほどです！
やってみます、ありがとうございます！
>>307 二人以上で開発する時、または長期に渡るメンテが必要になりそうな時
>>307 基本privateにしておいたほうが色々とトラブルが少ないけど、
特に不満を感じてないならpublicでもどっちでも同じだと思う
privateで意味が出てくるのは大規模・多人数開発だ
>>307 メッセージングを行う際にて不必要と思われるメソッド(関数)や変数、プロパティは隠蔽する。
いや？
>>307 ぶっちゃけPropertyGetだけでいいです、他のことはやらなくていいです
変数を隠蔽しておけばgetter・setterを必ず通るからそこさえ監視しておけば後を追える
みんなが使うのはパブリック
たんじゅんに
人の書いたコードなんて読めない
>>318 人が書いたコードは兎も角
自分の書いたコードが読めないのはちょっとね
上からつらつらと書くんじゃなくて
小さな部品から作って
組み合わせて大きな部品を作って
更に組み合わせて・・・みたいに書くと
分かり易いコードを書けるよ
逆に誰が読んでも分かり易いコードが
書けるようになったらもうすぐVBA卒業だよ
現場のためにマクロ作ってて
すごく突っ込みたいけどかなーり年上のおじいちゃんばっかでちょっと言いづらかったり
>>321 わからんな
コミュニケーション不足なだけだろ
正常な処理なら伝えりゃいいだけだろ
わからんものを説明するときは5w1hでよいから
エラーメッセージ出そうが絵本みたいなマニュアル作ろうが「ちゃんと動かないぞ！ポンコツめ！」って騒ぐオヤジがおる。んでよくよく聞いてみたらメッセージは読まずに閉じるわマニュアルは開くことすらしてねぇわ日付入力しろって書いてある項目に「多分5/10」とか書いてくれちゃうわであぁ何やっても無駄な時は無駄なんだなぁってなった事が何度もある
>>327 直接お客さんとやり取りしてるの？
そうで無ければ上司か島のリーダーさんに
中間に入ってもらえば？
もし直接お客さんとやり取りしているなら
そもそもプログラマーとお客さんが
窓口も介さず直接やり取りを行う
形態自体に問題があると思うけど
リーダーさんとか上司に相談するべき
もっとも、自分がその窓口ですと言うのなら
最初っからどこをどうして欲しいか
よーく聞いてから作る方がいい。
どうせ用件定義書なんて存在して
いないんでしょ？
おいおい、エクセルのマクロぐらいで定義書はつくらんだろ
年配のジジイ騙して金取れるなら今の体制維持も考慮すべき
>>328 上司に頼まれて作った子会社の人達の作業進捗を確認する為のスケジュール管理ツールなんだ
今まで手書きでやってたのを電子化したかったんだと
要求仕様の箇条書きを渡されて好きに作っていいって言われたから仕様書とかコーディング規約とか諸々自分で用意した
まぁ流石に向こうの課長さんから当事者のおっちゃんに雷落ちたらしいが
>>330 流石に動作前に入力のエラーチェックはかけてるさ
それでlsDateでチェックして日付じゃなけりゃ処理を停止して「No.〇〇の工程の開始予定日が日付じゃねぇから書き直せ」って類のメッセージ出してるんだがメッセージ読んでねぇから「マトモに動かないポンコツツール」って喚き散らしてたんよ
中抜きの現場をそのまま見ているような
>>332 なるほど大体状況は理解出来た
まぁボロくそに言ってたおっちゃんもおっちゃんだけど、果たして君の作ったツールは
今まで手書きでやってた人がいきなりパソコン使って打ち込めるような優しい設計になっていたのかな？
下請けでしかもスケジューラー作成なんて自由度の高いものを上司が君に振ったのはひょっとしたらその辺の事も兼ねて
君が今回それを通してどんなことを学ぶかを見ていた可能性があるね。
そのおっちゃんはボロくそに言ったかも知れないけどそれが現場で作業している人の正直な意見であることには間違いないよ。厳しいかも知れないけどね。
まあVBAじゃなくとも自分が便利だと思っている価値観を人に理解してもらうのは難しい
>>329 仕様書はどういう形式で作るかによる
マクロも仕様書に載せるとルール付けしたら必要になる
自分の給料がどこから来るのかを考えれば適当な対応はできないとおもうが
VBAでは非0は真として扱われるということでいいですか？
ごめんなさい回りくどい質問せずに
>>345 やめとけ。まずInstrで何が返ってくるのか確認するんだ
http://officetanaka.net/excel/vba/function/instr.htm NULLが入って来ることもあるからLEN関数で囲む感じになるのか？
どちらにしても可読性が落ちるようなものやトリッキーなことはなるべく避けた方がいい
そんなこと全般に渡ってやってたら
1月後には自分が作ったソースが読めなくなるぞ
うむ
>>347 演算子や論理式は、何を判定したいかに合わせて使い分けろ
そしてコメントを書け
VBAでは問題ないのだろうけど、TRUE をイコールで判定するのはどうも…
ありがとうございます
>>350 そうだね
まぁそういうときによく話に上がるコードだけども
Dim A As Boolean
Dim B As Boolean
Dim C As Boolean
A = False
B = False
C = False
A = B = C
こんなコードがあったとして
VBAではこれはエラーにならない
慣れてる人ならAにTrueが入ることが
すぐ分かるけど
慣れていない人はAにFalseが入ると
思ってしまうこともある
単純な式だから「そんなバカいねーよ」と
思うかも知れないけど
これを複雑な式に混ぜられた場合を考えると
結構キツいことになったりもするよ
話の主旨が分からん
>>354 すまん。
最初Integerで書こうかなとも思ったんだけど
それだと本当にエラーにならないか自信がなかったんだ。
手前側のイコールが代入で後ろのイコールが比較演算子だから他の言語だと
それは文法の話であって論理(式)の話ではないな
a=b=cがすべて代入になる言語もあるからややこしいって話だと思うけど
プログラム上の論理式は2値論理がほとんどだから
僕が言ったのは次のようなことです
>>359 > 比較したい時
> a=(b=c)
それは…
> a=b=cがすべて代入になる言語
だと、結局代入になるからあまり意味はないよ
a = b = c = 0
>>363 それで合ってるよ
ちなみに-1なのは変数の内容を
ビットとして見たとき全て立っていると
言うことの名残りだって
昔このスレの誰かが言ってた
もっとも今内部的にPコードで
ビットがどれか立っていればって
判断しているかは知らんけど
VBやVBAだと0だけがfalse、それ以外はみんなtrueとみなされる
2値論理はむかし60年から70年台のワイヤーロジック時代にもて囃されたけど
リレーやSWを組み合わせてコンピュータをつくろう
Falseが0とかいうのは正確には正しくない
結局のところ3ヶ月後の自分がコードの理解ができるかどうかってところよね
VBAで書くようなコードは変数名をちゃんと書いておけば大体問題ないよ
>>372 ｗ
仕事で使わされてる「しすてむ」のvba部分のソース開いたらまさに
If c = r/2 then
cc = r/2
rr = r/4
End If
みたいな感じで、しかもノーコメントだったわ。何してるルーチンなのかも
説明なくて読む気になれなかった。
色々なデータを引っ張ってきて、加工してピボット作って集計して・・・結局使ってねー！
配列を引数にしたときに関数側でVariant()で受け取れないのは何故？
>>370 いいね、
他人がつくったやつを動かんから直してくれ、のほうが多いもんな
でも、直してくれというのはユーザーが居るのだから需要は確実だよな
俺は嫌い
>>380 スパゲティっていうのはあんたが思っているようなレベルじゃないよ。
GoTo文で前のループのif文の中に飛んだりするのがスパゲティで、いまの時代は解析困難なコードはほぼない。
後、稀にあるのが
>>385 そこは認識の違いだね
まぁ別の言語もやってるせいかも知れないけど
俺の中では単一責任原則に沿って作られていない場合、既にスパゲティコードの臭いを感じとって
つらつらと見て行くと5000行くらいの関数とか作っている時点で少しキレ掛かる
俺の中ではFor Nextの中にGoto文で飛ぶことは構造化言語として組むものとして
既に破綻していることを意味している。
その部分は完全に作り直しにするわ。
一身上の都合によりIfやForやGoto以下でワザとDimを書く場合もご察しください
vbaやり始めてから世界が変わった
特にすごいのが他のアプリの操作機能
ごめん誤字
可読性ゼロの複雑な関数書いて悦に入ってるヤツは無能
Sub 文字列から日付()
そもそも文字列を即日付に変換するぐらいなら最初から日付を入力するようにしてたほうが面倒くさくなくていいと思うが
DATE関数？
D999としてますが実際はD７ぐらいしかつかわないので
注意
ユーザーフォームは経由は処理が面倒だしエクセルいま手元にないから検証が俺には無理だわ
あとB2への処理がすでに日付と月の入力で重複しとるやん
>>399 とりあえずこんな感じかなあ
変数宣言は省略
日付1 = Datesirial(適当に)
日付2 = Datesirial(適当に)
For day = 日付1 To 日付2
R = R + 1
Cell(R , "D").Value = day
Next d
For d = 日付1 To 日付2
修正
>>406 アドバイスありがとうございます！
初心者なのですが業務上ユーザーフォームを使わなければならなくて（泣
Private Sub Worksheet_Change(ByVal Target As Range)
Dim 日付1 As Integer, 日付2 As Integer
日付1 = Datesirial(適当に)
日付2 = Datesirial(適当に)
For day = 日付1 To 日付2
R = R + 1
Cell(R , "D").Value = day
Next d
End Sub
↑こんな感じでしょうか？初心者すぎて変数宣言とかむずかしいです
まずあの上の命令はWorksheet changeじゃなくてユーザーフォームに書き込む
ユーザーフォームからA１、B1、C１に入力しB２に日付１を表示させ
>>410 全部Long型で宣言しないと
あとはこれも宣言する
Dim day As Long
Dim R As Long
そしてNext dayに直す
変数名がdayだとvbaの標準命令のday（シリアル値）とかぶるからエラー起こさない？
予約語じゃなく関数名だから大丈夫じゃないかな
>>414 あーそういう心配もあるのね
分かりやすく書いたつもりなんだけど
試してみると、同一スコープ内だと
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
適当にってのは自分で好きな変数に書き換えろってことだぞ…
あと
結果として上手くいっているのかもしれないけど、
Private Sub Worksheet_Change(ByVal Target As Range)
エナブルイベントの場所が違う
間違えた
Private Sub Worksheet_Change(ByVal Target As Range)
application.enableevents=trueをさいごにつけてくれ
Private Sub Worksheet_Change(ByVal Target As Range)
変数宣言の意味がわからないなら
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
あーもう
間違えた
>>436 すごい！！
できました！
コードを見て
私がが２ヶ月かかっても出来ないわけですね
こんなむずかしいことに挑戦していたなんて・・・
これからも勉強していつかは人に教えれるようになりたいです。
感謝！！
いつかじゃなくて今すぐ人に教えられるように理解しろ
>>438 > いつかじゃなくて今すぐ人に教えられるように理解しろ
↑無理
なんでいつもそんなに上から目線でマウント取ってくるの？
なになに役人のつくる書類よりはよほどまし
>>386 流石に多少やってる奴なら頭に書くのがそれじゃないと知ってる筈だが。
>>445 すまない
良く読んだら
Option Scriptになってるな
Option Explicitの間違いだ
どなたかGetOpenFilenameでカレントディレクトリが変更されるの何とかできませんか？
元のアクティブブックを変数にして
>>450 ？
なら戻しても間に合わんのです
ダイアログの初期フォルダを指定したいのに、なぜかカレントディレクトリが勝手に変更されるみたいなんですね
すみません舌ったらずでした
これ追加すりゃいいんじゃないの？
いや、それがダメなんですよね
chdirは古いコマンドだから、なにかエラー出しているのかも
カレントディレクトリを復元する際は、ChDriveとChDirをちゃんと両方やれよ
問題がよくわからん
ステップ実行でChDirとかGetOpenFilenameの引数を全部チェックしたか？
今の子はもうカレントディレクトリ自体が謎仕様なのか
>>376 だけど実引数がVariant型の参照渡しなら仮引数はカッコ付きのVariant型にできるのね
理由がよく分からないけど
配列のVariant型を引数にしたときの指定方法をパターン化したいんだけど全くわからん
>>462 配列は配列の参照で受け渡すことが基本で、それはVariant型も同じ。
ただしVariant型は配列を格納できる。
Variant型の配列という意味ではなく、ひとつのVariant型の変数の中に
配列を格納できる。そこから考えてみたらいいと思うよ。
>>463 ＞Variant型の配列という意味ではなく、ひとつのVariant型の変数の中に
＞配列を格納できる。
この発想は無かった、もう少し考えてみます
ありがとう
>>459 ２つ目と３つ目
ごめんなさい色々やって自決しました。変更先のフォルダ名にセミコロンが入ってたのがまずかったみたい。
どうしようもないので今回は諦めて違うことをします。お手数おかけしました。
>>466 ちょっと試したけど、たしかにカレントディレクトリにセミコロンとか入ってると
そこが初期位置にならんな
カレントディレクトリを8.3形式で指定したらイケルっぽいぞ
いまさら直る気がせんが気になるならマイクロソフトに報告してみ
ここではもうとっくにエラー429については議論され尽くしましたか？
通常の=での代入でもVariantの()で宣言した変数には配列が入らないんだね
自分は好き勝手やってるのに俺らだけ奴隷労働しろと
>>475 Variantの()で宣言した変数はVariant配列型の変数で、Valueの戻り値もちゃんと代入できるよ
ただし複数セルを参照しててValueが二次元配列を返すときに限る
一つのセルだけしか参照してない場合は配列を返さないので型不一致になる
そういやｖｂａの配列は、
>>480 何が言いたいのかわからん
ほかの言語でも単純な変数と要素が1個の配列変数は厳密に区別されるのが普通だし
Excelのオブジェクトを操作したときの動きからVBAの仕様を推測して
>>479 Variant型の配列っていうのがあるんだね
配列でないVariant型ならデータが入っていればVariant型ではない（代入した型に変換される）
だからデータが入っているVariant型の配列って無いと思ってた
これ以上は切りが無くなりそうなので止めます
ありがとう
最初から配列であることを宣言した場合と、
Variant型は調べれば調べるほど「？？？」ってなるから気をつけて
余談だけど他の言語にも
Variant型っていうのはVBAやVBのために作られたわけじゃない
>>491 > VB.Netでは廃止されたくらいの型だから
単にObject型になっただけ
使い勝手が違うのはVB.NETの方が方に厳しいから暗黙の型変換をしなかったりするため
>>494 VariantとObjectは同じような物とか代替品として紹介してるサイトとかあるけど、これはあくまでも初心者向けの説明
実際はまったく違う物なので、個人的にはこうやって説明するのも反対したいところ
>>495 はあ？
違うと言うならどう違うのか書いてみなよ
まさかと思うけどVBAのObjectの話じゃないよな？
>>495 そうなんだよね
Variantの代わりがObjectだと言われると
うーん、まぁ間違っていないとは思うけど
物凄い違和感を感じるよね。
同じものかと言われれば絶対別物と
はっきり言うことが出来るけど。
>>496 そうだねぇ
とりあえずこんなところかねぇ
ちなみに、何でも入る魔法の型といえば、C#ではobject型がそれに当たる。しかし、object型とVariant型は同じではない。object型は参照型であり、値型の値を扱うにはボックス化という手順が必要になる。また、参照型である以上、メモリの確保と破棄というオーバーヘッドが必ず付いて回る。しかし、Variant型は整数のような値であっても、オブジェクトへの参照であっても、それをそのまま格納できる。ボックス化やメモリの確保、解放のオーバーヘッドもない。まさに万能の魔法の箱である。
https://www.atmarkit.co.jp/fdotnet/extremecs/extremecs_12/extremecs_12_02.html >>493 ＞演算子をオーバーロードした物
どの演算子？
>>498 これってヒープ領域に全部突っ込んでるってこと？
VBAとVB.netはまったく別物で比較しようなんて思わない
>>498 そこまで言うならStructureでVariant相当のものを作ればいいかと
>>499 > これってヒープ領域に全部突っ込んでるってこと？
そう言うこと
>>499 算術演算子などで文字列を自動的に数値に変換する部分
>>501 厳密な説明をするなら、Variantは暗黙ではあるけど標準ではない
納得いかない人もいるだろうけど、強いて言うなら標準に近いのはObject型の方
Variant型はWindowクラスからの継承だから、VBでもVBAでも、もっと別の言語でも内部ではまったく同じ物で同じ処理が動いてる
何を使う「べき」かはケースバイケース
>>502 冗談で言ったらマジか
まぁオブジェクトは参照になるなら、ヒープ領域云々はそこまで考えなくてもいいか
vbaの文字列は文字の配列じゃなく単に値だったから、variantで文字列使いまくると良くない？
※そもそも値じゃなかったらごめん
>>503 へぇ
VBAやVB6みたいにVariant型みたいなもの
持ってる言語って他にもあるんだ
まだ当たったことないなぁ
VBのときに他の言語がどうこうと長話はじめるのは老害みたいなもの
>>505 VBS
もしかして知っててわざと試してる？
>>508 そうかVBSは明示的に型宣言することないから忘れてた
Visual StudioのC++のVariantクラスも構造体の中身はまったく同じ
そうなると
その辺考慮することでExcelのマクロとしてどんなメリットがあるの？
よくわからんけど一般的な仕事に使うのに知る必要のある情報じゃなさそう
>>512 Variantは多機能だからプログラミングの負担を減らすことができるけど、メモリ食いだから、たとえば大きい配列が宣言できなかったりする
AccessVBAエキスパートの試験では扱う範囲
エクセルで組んだ表や数式を
再現っていえばいいのかなんといえばいいのか…
.slk マルチプラン形式ならテキストとして読めるぞ
>>515 大きい配列
エクセルのマクロで画像処理している人だよな
1セル1ドットにして輪郭をさがしてる
ちょっと感動
>>517 俺、自分宛にメールしてるわ。
Sub Test()
：
End Sub
って
フラッシュメモリーに保存してるけどそれも壊れるかもしれないし
>>514 こういう罠みたいな仕様を事前に目を通しておくと躓く事が少なくなる
一生役に立たん可能性も割とあるけどな
これを短く書きたいのですが、どう書けばいいですか？
>>530 やりたいことは
Range(Cells(r, 1),Cells(r, 10))
・・・
Range(Cells(r, 11),Cells(r, 20)
みたいなこと？
全容を見せてくれたほうが早いと思う。
>>530 やりたいことを言葉で説明した方が速そう
>>493 >もともとWindowクラスが持ってる機能に対して、
これ気になるんですが、何かソースありますか？
Excelのマクロをエクセル環境なしに実行したいのですが、
>>535 vbsってのもある。ファイルの名前の一括変換、辺りならvbsで可能
EXCELのa1セルをb1セルにコピー～みたいなのはEXCELが必要
>>537 すでにあるマクロ名を実行することは
vbsだけで、実行する側にExcelがなくても可能ですか？
vbsは型宣言が出来ない、
>>538 内容による
vbsとvbaは似て非なるもの、だけど互換性はまぁまぁある
vbaをまるっとvbsにコピペして動くものもあれば、手直ししないと動かないもの、絶対に無理なものもある
まぁコピーペーストだけで一発で動くのは稀だとは思う。大体動かないだろう
また、vbsは無料でwindowsに標準でついているので、あーだこーだ言うよりはやったほうが早い
>>536 貼ってくれたURLのページにある
>String型変数のメモリアドレス
これ、要するにString型変数の値は参照値って事？
察してはいたけどByval xxx$って嘘じゃん
調べれば調べるほど無茶苦茶な言語だなｗ
ただ先頭に配列長が入ってるのは嬉しいな
LEN関数が高速だって事だし、実際に検証したらそうだった
これからは文字列の有無はLEN関数を使おう
>>534 MSDNのWin32APIのリファレンス
https://docs.microsoft.com/en-us/windows/win32/api/oaidl/ns-oaidl-variant これを見れば、Valiant構造体は共用体の入った構造体が共用体になってることが一目瞭然
VBAからは、初期化の手順を省略(自動化)したりして簡単に使えるようにしてある
Dim abc As Variant, maxVal Variant
>>543 配列のままだとループして調べるしかない
作業用のワークシートに入れてからMAX関数を使えば一発
>>541 > 察してはいたけどByval xxx$って嘘じゃん
噓じゃねーよ、Byvalならちゃんとコピーされる（内部的には新規領域確保して内容コピー）
> 調べれば調べるほど無茶苦茶な言語だなｗ
お前さんの理解力が足らんだけ
メモリ上で文字列領域の先頭に長さが入ってるのはMicrosoft BASICの伝統
>>544 やはりループで調べるしかないんですね
>作業用のワークシート
なるほど、アクセスで言うところのワークテーブル的な考えですね
ありがとうございました。
WorksheetFunctionってその名の通りワークシート上の計算をするためのものだから仕方ないわな
>>543 それはabc(50 To 80, 1)なんていうのがおかしくて
maxVal = WorksheetFunction.Max(abc) ならちゃんと動く
>>550 WorksheetFunctionは実は配列受け取るものが結構あるんだぜ
>>551 質問者は配列全体じゃなくて調べる範囲を指定したいんだよ
目的と違う回答してどうすんの
質問者を納得させるのではなく
古代BASIC語の使えるやつには想像すらできない構文だな
10 CONSOLE 0,25,0,1
>>552 それはいいすぎ
いろんな考えがあって質問者がいろんな回答から判断すればいいだけのこと
sheet1のB1が整数ならSheet2のC1
>>557 シート名(worksheet.name)はどっち？
・sheet1
・1
それとも1番目のシート？それなら
Worksheets(1)
だけど
そもそもnumericって整数かどうかじゃなくて
あっrangeであってたわ
>>557 Worksheet_Change これはワークシートに変更があったときに実行する内容を書くので
実行したいワークシートに書くのと、書いたワークシート以外のワークシートの変更は無視する
Sheet1のB1の値が変化したらSheet2のC1が変化させたいのでSheet1にコードを書いてチェンジイベントでいいのかな？
>>545 値渡しは参照値が渡されるって挙動と矛盾してるだろ
その辺の矛盾の解決のためか、
実際に配列は値渡ししかできないように強制されてる
>>565 値渡しは参照値が渡される
↓
値渡しは、変数に格納されてるのが参照値（メモリアドレス）なら参照値が渡される
>>565 元々文字列は内容変わったら領域確保し直したりするから内部的に参照持つのが普通
ByVal は文字列を複製して渡すしByRefは内部的な参照への参照を渡す
何の矛盾もないよ
中途半端に内部的な参照を気にしてもしょうがないよ
>>565 え？そうだっけ？
確か配列は参照渡ししか出来ないから
Variant型に突っ込んで渡して
値型のものを渡すようにするんじゃなかったっけ？
もっともそれでも参照型のものは参照が渡されるけど。
誰か教えてほしいんですが、
>>569 単純にCStrで数字を文字列に変換して繋げばいいだけと思うけどそういう意味じゃない？
>>564 ふつうに関数でよくないの
=IF(B2=int(B2),A2,B2)
みたいなの
>>557 sheet1モジュールに書く
シート名はs1とs2にしてるのでテキトーに変えて
Private Sub Worksheet_Change(ByVal Target As Range)
If _
Target.Address <> "$B$1" _
Or Not (IsNumeric(Target)) _
Then
Exit Sub
End If
main = Cells(1, 2).Value
main2 = Cells(1, 1).Value
If (Int(main) - (main)) = 0 Then
Sheets("s2").Cells(1, 3) = main
Else
Sheets("s2").Cells(1, 3) = Int(main2)
End If
End Sub
>>569 地味にやるしかない
Sub foo()
Cells(3, 1).Formula = "=" & Cells(1, 1).Value & "+" & Cells(2, 1)
End Sub
量が多いならfornextかなんかで処理すると良い
>>573 ありがとうございます！
今外にいるのでお家に帰ったら試して見ます
>>570 そんな感じで大丈夫です
>>574 数がかなりあるんでループさせて特定の月の数字を拾うところまではできてたんで、そのやり方試してみます。
>>575 Joinあるやろ
手元にExcelないから試してないけど
Cells(3, 1).Formula = "=" & Join(Application.Transpose(Range("A1:C1" ).Value), "+")
でいけないかな
よく見たら行/列間違えてるわ
>>580 例えば元表
コード 200 金額 200 5月
コード 150 金額 300 4月
コード 200 金額 500 5月
コード 150 金額 400 6月
コード 200 金額 50 5月
と並んでたとして、飛ばしたい表に
コード200に一致した場合は=200+500+50
コード150 の4月は=300
みたいな感じで月が同じでコードが一致してる場合だけ積み立てていくことってできますか？
うまくいかなくて、、
>>580 別の質問だけど、
Application.Transpose
って
WorksheetFunction.Transpose
の事？
ApplicationってついてたらWorksheetFunctionは省略できるの？
こういう処理はピボットの得意分野だとおもう
ピボットを設定して
>>573 >
>>557 > sheet1モジュールに書く
> シート名はs1とs2にしてるのでテキトーに変えて
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If _
> Target.Address <> "$B$1" _
> Or Not (IsNumeric(Target)) _
> Then
> Exit Sub
> End If
>
> main = Cells(1, 2).Value
> main2 = Cells(1, 1).Value
>
> If (Int(main) - (main)) = 0 Then
> Sheets("s2").Cells(1, 3) = main
> Else
> Sheets("s2").Cells(1, 3) = Int(main2)
> End If
>
> End Sub
あらためて
ありがとうございます。
整数なら無視できるようになりました！
あとは Sheets("s2").Cells(1, 3) にSheets("s１").Cells(1, 2).Valueが整数じゃなければSheets("s１").Cells(1, １).Valueが入れば完璧です
ちょっと自分でググってみます！もしできないようならまた質問させてください
>>584 誰か建ててくれると期待してはや数年。。。
PowerQueryスレは建ったんだけど、
http://2chb.net/r/bsoft/1571540368/ ピボットスレ、建ててみる？
先日、総合相談スレでPowerPivot絡みの質問はあったが。
>>586 ピボットだと=で積み立てで足していくようにできなくね？
合計しか出てこない
あーそうかも
>>581 それは、たとえば、元表にB1＆countif(B$1:B1,B1)みたいな作業列を作って
飛ばしたい表に、iferror(index(D:D,match(作業列,コード&column()+1,0)),"")
みたいな数式を貼り付けるのではだめですか？
1つのセルに、数式として入っている必要性が、あるのですか？
>>592 修正、matchの書式も違うし
月も必要なので、B1＆E1 を作業列Fに、count(F$1:F1,F1)を作業列Gに入れて
飛ばしたい表のA列はコード、B列は月、C列以降にiferror(index(元表!$D:$D,match($A1&$B1&column()-2,元表!$F:$F,0)),"")
こんな感じではだめですか？
>>592 合計なら楽なんですが、どうしても=+で数字を積み立てないとダメなんですよね、、
だから数式では解決できない気がします
vbaでやるなら配列に詰め込んで最後に結合させるのかなあとか思ってるんですがなかなかいいコードが思い浮かばない、、
>>593 コロナ自粛でGW中だから暇なんだよ
>>581 > みたいな感じで月が同じでコードが一致してる場合だけ積み立てていくことってできますか？
月が同じってどこと同じなの？
コードのようにどこかで指定するってこと？
とりあえずコードがA列、金額がB列、月がC列に入っているとして
Dim 元表 As Sheet: Set 元表 = Range("A1:C10")
Dim 金額() As String: ReDim 金額(元表.Row To 元表.Row + 元表.Rows.Count - 1)
Dim 書込行 As Long: 書込行 = LBound(金額)
Dim 行 As Long
For 行 = LBound(金額) To UBound(金額)
If Cells(行, "A").Value = コード And Cells(行, "C").Value = 月 Then
金額(書込行) = Cells(行, "B").Value
書込行 = 書込行 + 1
End If
Next
ReDim Preserve 金額(LBound(金額) To 書込行 - 1)
Range("D1").Formula = "=" & Join("+",
金額)
みたいな感じでいけると思う
>582
ごめん、テキトーにググって書いてるから間違えてるみたいやな
Application.WorksheetFunction.Transpose
にしといて
>>599 最初の型はSheetじゃなくてRangeじゃね
あとこの人の言ってるのは普通に文字列としてValueプロパティに式を書き込めばいいような気がするけど
上で語ってる人ってあんま教えに来ないよな
>>599 試しにやろうとしたら最終行が型不一致でエラーになりました・・
>>600 > 最初の型はSheetじゃなくてRangeじゃね
すまん、そうだわ
> あとこの人の言ってるのは普通に文字列としてValueプロパティに式を書き込めばいいような気がするけど
ちょっと今試せないからやってみてくれ
>>601 すまん
Range("D1").Formula = "=" & Join(金額, "+")
だったわ
>>602 ありがとうございます。
今度は下から二行目でインデックスの範囲外エラーになりました、、
書込行が1行目だとredim～のところの書込行-1が0になるからですかね？
dim hako() as variant
>>541 > これ、要するにString型変数の値は参照値って事？
> 察してはいたけどByval xxx$って嘘じゃん
逆にC知ってると、文字列がプリミティブってのにものすごい
違和感があるよ。「ああ、内部で変換してんだな。そういうものだと
思っておこう」と、自分を納得させる。
>>603 条件に合うものがないと ReDim 金額(1 To 0) の様になってエラーになる
VBAではReDimで空の配列は作れないので条件に合うものがない場合を場合分けして処理するしかない
例えば条件に合うものがない場合はD1を空にするなら最後の２行を
Dim 式 As String
If LBound(金額) < 書込行 <= Then
ReDim Preserve 金額(LBound(金額) To 書込行 - 1)
式 = Join("+", 金額)
Else
式 = """"""
End If
Range("D1").Formula = "=" & 式
とかにすればいい
>>605 ＞hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value
の、
Worksheets("Sheet1").Cells(1,1)が指してる先が数字でないなんてオチはないよね？
>>608 今見てみたんですが
ちゃんと数字を指してました
>>607 すごい！
ちょっと動くようになりました。
二行目のif文の<=って消していいですかね？
消さないとエラーになってしまったので
ただ、式=join（"+",金額）のところで型が一致しないエラーになりました
>>610 > 二行目のif文の<=って消していいですかね？
消し忘れだ、すまん
> ただ、式=join（"+",金額）のところで型が一致しないエラーになりました
デグレードしてる俺が悪いんだが、
>>601 からの話と同じ
>>612 凄いです！！
出来ました！！
ちょっと実際の表でも細かい数字入れてみて検証してみます。
GW潰してずーっとこの問題を考えてました。
一筋の光が見えた気がします！！ありがとうございます。
>>590 PowerPivotでDAX関数使えば出来るかも。
で、建ててみた
Excel ピボット Power Pivot DAX関数 質問スレ
http://2chb.net/r/tech/1619916663/ >>605 > エラーになるんですが
なぜエラーメッセージを書かないの？
>>608 数字でもダメでしょ
hako(i) = Worksheets("Sheet1").Range(1, 1).Value
になるだけだし
>>617 アプリケーション定義エラーまたはオブジェクトの定義エラーですってなります
2スレ目に何か書いとこうと思って、
>>618 >>617 で頓珍漢なこと書いてたわスマン、数値かどうかは関係ないわ
> hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value
でエラーになるのか
> 実際は縦が動いていきます
の方でエラーになるのかどっち？
上でエラーになるなら１回目なのか何回かやったらエラーになるのかのどっち？
下でエラーになるならエラーになった時のセルの指定がおかしくないかを確認
あとシートの指定は変数に入れるかWithを使った方が楽だよ
With Worksheets("Sheet1")
For i = 0 to 回数
hako(i) = .Range(.Cells(1,1), .Cells(1,1)).Value
Next
End With
>>620 独学でやってたのでその辺の知識がなくてｗ
withで指定するといちいち書かなくて済むんですね
エラーになるのはもう1度目からです
> hako(i) = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value
ここの時点でエラーになります。
>>621 切り分けとしてエラーになった時にイミディエイトウィンドウで
hako(i) = Worksheets("Sheet1").Range("A1").Value
Debug.Print Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1,1), Worksheets("Sheet1").Cells(1,1)).Value
Debug.Print Worksheets("Sheet1").Cells(1,1).Address
を実行してみて
>>622 あまり使ったことがない機能で分からないんですが
試しにA1に1という数字を置いて実行したら1という結果が出ました
エラーは出なかったです
エラーが出なくなったらよかった。
こういう人って文法は理解できないけど
～10年後～
類型から共通点を見出して次第にルールを覚えるのは自然界の学習形態に沿っている
古いBASICの構文が難しいからそこだけはしっかりと覚えたほうが早いんだけどね
一度普及した物は、減り続けても簡単にはなくならんよ
10年たってもエラーが直んないとかやっているのかと言う意味だ
>>618 このエラーがでるとお手上げ
さっぱりわからない
>>605 「回数」で動くわけないだろｗ
数字入れろつーの
>>633 > 「回数」で動くわけないだろｗ
普通に変数なり定数なりを定義したら動くだろ
ツッコミならもっとおもしろいやつにしてくれ
https://pastebin.pl/view/3a98fdc0 サムネイル画像の１番をクリックして表示された画像を順々にダウンロードするクローラみたいなものを作ろうとしてるのですが、
どうやったらサムネイル画像の１番めをクリックして表示された画像のURLを取得できるでしょうか？
HTML の中には、サムネイル画像をクリックした時の、飛び先のリンクが書いてある。
(ただし、下には、＠の文字を追加した)
最初の画像なら、
<a href="http＠s://e-hentai.org/s/78a8543e34/1727798-1">
うまくスクレイピングすれば、このURL を抜き出せるのでは？
シート上の複数のリストボックスの選択済みをボタンを押すと
そりゃオブジェクト指定してるのにオブジェクトなかったらエラーになる
アクティブやセレクトの多用はエラー処理が面倒くさくなる場合が多い
>>639 ボックスが複数あるのか、選択肢が複数あるのか、どっち？
なるほど
一生懸命マクロを組んだのに実は標準機能で実現できると知ったときのガッカリ感
何を作ったかは知らんけど付加価値を追加すればええやん
ショートカットキー押したらアクティブセルのフォントや背景の色番号が
人の作ったデータベースでIDと商品名がひとつのセルに入力されてるから個別にクリップボードにコピーするマクロを作ったな
>>646 レベルアップしたよ。その経験は無駄にはなってないよ
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
>>653 前も見た気がするけど、結局何をやりたいのか分からん
最初から最後までやりたいことを通して書いてくれ
この人教えるには金貰わなきゃ割に合わないくらいめんどい
すみません！
すみません！
A B C D
>>655 わたしみたいな初心者にはレベル高すぎですよね
もう少しググって勉強してみます
うむ
質問とソースの両方見ても判定条件がよくわからん
>>656 数式じゃダメなの？
数式だと3分で出来たけど
D1=DATE(A1,B1,C1)
D2=IF(DATE($A$2,$B$2,$C$2)<($D1+1),"",$D1+1)
D2を下にオートフィル
Ruby なら、
>>664 Rubyとか消滅しそうな言語で書いてどうしたいの？
>>666 プログラム板に常駐してるキチガイ知らないの？
>>667 知らないわ
別言語のスレとかそんなに見ない
みなさんを混乱させてしまいまして
VB6やVB.NetでVBA用のDLLビルドしてるんだけど、
>>672 「ダイナミックリンクライブラリ」
昔はﾄﾞｩﾙﾙって勝手に読んでたな
「質問した俺が間違っていた」
>>671 VB6とかしらんが
COMだよな？ID変わらん限り参照設定変える必要ないと思ったが
ちゃんとレジストリに登録されてないんじゃね
>>678 レジストリには間違いなく登録してる。
例えばVB.Netで実装するDLL側で、公開するクラスのメンバ関数を一つ増やしてリビルドすると、それを参照しているVBA（Excel）実行時にエラーが出る。VBAプロジェクトのコンパイルもできなくなる。
この時、DLL参照設定解除→DLL再参照をやると正常に読み込まれる。
なお上の例では、VB.Net実装のDLL側で増やしたクラスのメンバ関数を消去して元に戻した上で再リビルドすると、DLL参照設定解除→DLL再参照をしなくても、再びDLLが正常に読み込まれる模様ｗ。
>>663 おー、美しいな
Rubyの人は
>>665-666 みたいな声に全く耳を貸さずに延々と書いてる方で、このスレでもたまに見るのよ
ほとんど荒らしだから話しかけても無駄。丁重に無視して差し上げるのを推奨します
質問です
下記のように重複している項目を除いて合計値を算出するコードを教えてください。
調べたところ連想配列？を使えば良いと書いておりましたが、難しくて使い方がよくわかりませんでした・・・
素人すぎて申し訳ないですが、宜しくお願いします。
>>679 軽く試したけど再現しない
たぶん、タイプライブラリの変えてはいけない何か（DispIdが怪しい）が変わってると思われ
これ以上はVB.Netのスレ行け
>>681 SUMIFで良いじゃんと思ったけど重複は除くのか面倒くせぇな
配列にA～Cのデータを代入するだろ？
4列目にりんごなら1、みかんなら2を頭に付けてCのデータを連結した上で数値化して放り込むだろ？
そしたら
For RowCnt = LBound(TgtAry, 1) to UBound(TgtAry, 1)
For RowCtR = Ubound(TgTAry, 1) to RowCnt
If TgtAry(RowCnt, UBound(TgtAry, 2)) > TgtAry(RowCtR, UBound(TgtAry, 2)) Then
SavAry([略]) = TgtAry(RowCnt, [略])
TgtAry(RowCnt, [略]) = TgtAry(RowCtR, [略])
TgtAry(RowCtR,[略]) = SavAry([略])
[省略]
End If
Next
Next
みたいな事をやって配列をソートしてやるだろ？
あとは上から順に見ていけば4列目を無視しても重複が弾けるんじゃねぇかな？
連想配列だと練習問題みたいな課題やね
>>682 検証、ありがと。しかし、再現ならずか。
>>679 の書き込みは、一応、直前に確認してから書き込んだ。
こちらでは、管理者権限でVB.Netを立ち上げて、ビルド時にDLL登録してる。
あと
>>679 で試しに追加するメンバ関数は最後じゃなく、真ん中あたり（property getブロックとsubブロックの間）に追加している。
ところで、みんな、汎用の俺俺ライブラリをDLL化しないのか。
>>681 俺ならわざわざVBA書かずに関数追加してピボットテーブルで集計するけど。
キーは若干不安なので
>>681 Ruby では、
require 'csv'
input = <<"EOT"
りんご,A,2
りんご,B,4
みかん,D,1
りんご,B,100
EOT
input_ary = CSV.parse( input ) # 2次元配列
# 0/1列目が同じものを排除する。先に現れた行が使われる。「りんご,B,100」は使われない
input_ary.uniq! { |row| [ row[ 0 ], row[ 1 ] ] }
# [["りんご", "A", "2"], ["りんご", "B", "4"], ["みかん", "D", "1"]]
result = [ ]
# フルーツ名でグループ化する
input_ary.group_by { |row| row[ 0 ] }.each do |row|
sum = row[ 1 ].sum{ |row| row[ 2 ].to_i } # 合計
result.push [ row[ 0 ], sum ]
end
pp result #=> [ ["りんご", 6], ["みかん", 1] ]
>>687 なるべく簡潔に書きたくて、そのリスクは無視したw
実際は間に何か挟んだほうがいいね。
>>681 元データいじっていいなら重複の削除が超早い（ダメでもコピーすればいいだけだけど）
ってかSQLのサブクエリなら一行で行けそうだ
Sub Macro5()
Range("a:c").RemoveDuplicates Array(1, 2), xlYes
ActiveWorkbook.PivotCaches.Create(xlDatabase, Range("a:c")).CreatePivotTable Range("e1"), "p1"
Set p1 = ActiveSheet.PivotTables("p1")
p1.PivotFields("com").Orientation = xlRowField
p1.PivotFields("com").Position = 1
p1.AddDataField p1.PivotFields("v"), "合計 / v", xlSum
End Sub
すまん、"com"は"会社名"、"v"は"値段"などに適宜書き換えてくれ
D列に
いまだにIFとISERROR組み合わせてエラー回避やってる人いるんだ。。。？？
booleanで取りたい場合はIFとISERROR組み合わせた方が早い
Excelのセルって、Accessで言うところのコントロールの
教えてください
>>700 DBに入ってるんだったらSQLで最初からgroup byしたらいいだけ
>>701 すみません、
>>700 が最終形態ではなく、これができたら私のイメージのモノができるのでお聞きしました。
なのでvbaで回答頂けたら助かります<(_ _)>
>>702 VBAの中でシートに対してSQL投げて
結果のRecordsetをシートに貼り付けるだけでは？
>>703 すみません。
私がSQLを理解していないので、正直わかりません。
何か分かりやすいサイト等あったら教えてもらえますか？
ここの諸先輩方にとってSQLってどういう位置付け？ 常識レベル？
>>704 DBがあるんだったらそれをメンテしてる人間もいるだろ？
そいつに聞け
>>704 EXCELでどういうObject使ってシートにSQLを投げるかはVBA シート Sql 辺りでググればいくらでも出てくるけどとりあえず一例としてここかな
http://www7b.biglobe.ne.jp/ ~whitetiger/ex/ex2002088.html
SQLがどういうものかは流石に SQL 入門 辺りでググってくれ
今は使ってないとしても本来VBAと同等かそれ以上の優先順位で覚えるべきものだから絶対覚えておいた方がいい。
なぜインプロセスだかアウトプロレスだかの話を入れたのかがわからないな
Ruby on Rails は、MVC(model/view/controller)モデルだから、
オワコンRubyにしがみつくのはこういう馬鹿ばっか
言語の終わりを実体験するとかなかなか稀有な例だと思う
VBA使っておいて他の言語をオワコン呼ばわりする権利はないと思うが
>>716 は？馬鹿なの？
DelphiとかADAとかSmallTalkとかたくさんあるだろ
>>718 どれもこう、誰も使わなくなってから「あ、そういやなくなってたんだ～。D言語（だぶりゅー）なんてあったな～」程度だけど、
rubyに関してはこの狂信者だか超アンチが一強で荒らし回っていて強制終了させている
終わり目の言語に止めをさすとか、こんなん後にも先にもないだろうｗ
>>710 ありがとうございます。
ふとした疑問なんですが、基本データベースからの
処理が多い場合は、vbaよりもsql勉強した方がいいのでしょうか。
今vbaを一生懸命勉強している最中ですが、効率の悪いのかなって思ってしまって
Excel Access使うならVBAは必須
何するにしてもVBAは別に必須ではない
初歩的な質問ばかりですみませんでした(-_-;)
>>721 ＞ふとした疑問なんですが、基本データベースからの
＞処理が多い場合は、vbaよりもsql勉強した方がいいのでしょうか。
それはそうなんだけど
あくまで俺の場合はだけど
SQLをまともに勉強した記憶がない。
まぁ必要にかられたとき
必要な分だけ調べて覚えれば
基本部分は十分追いつけるものって
ことなんだろうな
vbaってどれくらいできたら、まあまあ使える人になりますか"(-""-)"
>>724 事務作業で死ぬほど役に立つのはvba。事務だけじゃなく営業でもちょっとした所で使えるなら、事務作業はほぼゼロになるだろう
sqlは使うべき時が来れば、その時に勉強すれば良い。その時に使うのはselectとjoinのはずだ
>>727 なりほど( *´艸｀)
私は事務ですけど、正直vbaもsqlも使わなくても力技でどうにかなってきました。
関数とピポットで・・・
でも時短でvbaしようと思ってやってるんですが、どっちがいいか正直よくわかってません。
勉強しないと
>>726 読みづらいし色々詰め込みすぎ。個人的にも使わないものが多い
・宣言（dim～）
・with
・do until
はそうそう使わない
＞For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
も
＞最終行＝Cells(.Rows.Count, 1).End(xlUp).Row
＞For i = 2 To .最終行
と分けたほうが読みやすい
for、if、setが使えれば大体良いと思う
>>728 毎回同じピボットを作っているなら、ピボットをvbaでボタン一つで作ってみるとか
普段やってることを自動化するとすぐに覚えられるよ
※ただ、ピボットマクロはかなり大変なのマクロの記録を全力で使ったほうが良い
質問者は現に今使うべき時に来ているのに何を言っているのか
実際SQLで一瞬でできることを知らないままVBAで
>>726 みたいな暗号を延々血反吐吐きながら垂れ流してる可哀想なVBAerは多いし、質問者もここでSQLを使えと言われていなければそうなっていただろう
SQLはVBAよりずっと簡単だから、あまりVBAを使い込む前にSQLは一通りやった方がいい
>>729 そうなんですか！？
私が使ってるサイトdimは全部に使ってました・・・
すごいショック😢
>>731 vbaを反吐がでるまで打とうと思ってました
私文系で詳しくないから、みなさん数を打って覚えているのかと・・・
一度sqlについて調べてみます。ありがとうございます。
あぁ、確かに一回は触っておいた方がいいか
>>732 どっちでもいいよ
宣言なんて間違えないため＋メモリ節約のためだけど、
今はメモリが潤沢にあるし宣言を書きに頭に戻るとかアホらしいし余計に間違うわ
前から気になっていたんだけどセルを1つ選んで右クリックして挿入や削除するときのメニューで
>>732 > 私が使ってるサイトdimは全部に使ってました・・・
それで正しい
今時コードの先頭にOption Explicitが入ってないサイトは無視していいレベル
ID:PaQQNn710はレベルの低いドヤ顔爺だから話半分に受け流しておけばいい
ここはドヤ顔爺の巣窟ですよ。
私の勉強方法が合っているのか分からなくなってきました( *´艸｀)
>>740 dimもwithもdo untilも安心して使っていいよ
ただ必ずしも関数の最初にdimをまとめておく必要はないのでiとかは必要になったときに宣言するのでも大丈夫
あとws1みたいな連番の変数よりは目的を具体的に表した変数名の方が良い
>>741 ありがとうございます。
粛々とがんばります・・・
実際
>>726 は綺麗ではないんですかね？
>>742 綺麗か綺麗でないかって尺度だとなんともだけど丁寧に書こうとしてるのは伝わるので応援したい
パフォーマンスとか考えるともう少し良くできそうなのと、個人的には関数を小さく分けた方が見通しが良くなるかもしれない（ちょっと曖昧な表現になってすまない）
俺ならこうなるかなぁ
間違えた、こうか
みなさんご丁寧にありがとうございます_(._.)_
>>742 Do Until ～ Loop
は他の言語だとあまり見ないから条件逆にして
While ～ WEnd
の方が馴染みのある人が多いっていうぐらいの話
あとコメント入れまくれとか言う老害は無視していい
>>745 そこまでやるなら i じゃ無くて 転記元行 とかにしろよ
入れまくれってのは程度にもよるけど読み返すときの手がかりとしてのコメントは残しておいた方がいい
ID変える、しつこく何度も質問する、わざとらしいへりくだり
>>749 すみません、誰のことを指しているか分かりませんが、私はあなたの想像している人ではありませんよ。
vbaで悩んでて、質問掲示板ってあったので使わせてもらっただけです。
>>729 VB6の開発プロジェクトやってたけど
どのソースコードでもdimもwithもdo untilも当然のように使ってたぞ
お前が使わないってだけじゃないの？
あとOption Explicitつけないのはバグの原因になるから推奨できない。
VBScript（WSH）はDimないし使わないのも自然だけどVBAはありがたくOption ExplicitもDimも使うな
俺は変数宣言するけどoption付けない事も多いな
With使わないのは、C#に採用されなかったように最近の流れだからまあいい
変数の宣言しないと型違いのエラーとか検知しづらくなるし、
基礎ができてなくて、型の使い分けがわからなくて全部Variantで書いてる人
>>755 しない
以下でエラーが起きないって時点で俺はアホらしくなって宣言をやめた
Sub foo()
Dim a As String
Dim b As Long
a = "1"
b = 2
Debug.Print a + b '3が出るぞ良かったな
End Sub
宣言しないと何ができなくなるのか、何を間違えるのかが分からん
>>758 それは暗黙の型変換が行われるから。
変数の宣言をしたほうがいいのは以下のような場合にエラーにできるから。
public sub foo()
hensu = 1
Debug.Print hansu + 1
end sub
2が出力されることを期待しているが、この場合1が出力される。（変数名の打ち間違い）
VB6やVBAは型が弱いので、変数名の先頭にintやlng、str等をつけてデータ型がわかるようにするのが一般的だと思ってる。
>>760 なるほど
そういう意味では型をつけずに全部variantで宣言はアリなのか
dim a,b,c
ってな感じで
>>761 変数名見れば何入ってるか分からないか？
>>763 ごめん一般的といったのは、自分がそう思ってただけなので、実際はそうじゃないかも。
何でもかんでもVariant型だと余計にメモリ食ったり速度面で劣るんじゃなかったっけか
簡単なマクロならメモリも速度もほとんど気にしなくていい
文字列 String
大量のデータをがばっと取るときはsql
変数宣言でいちばん重要なのは
>>769 いや、そもそも
外部とのやり取りはプロパティで行わないと
ブレイクポイント等仕掛けて
どこから呼ばれたか分かり辛くなることを考えると
変数をPublicで宣言する機会はまず無くなるだろう。
もちろんこのプロパティと言うのは概念的なものを含めて
Javaの様に関数と同じ様に設定することも含めるけど。
そうすればパブリック、プライベートの
判断のために変数名の考慮を行う必要も無くなる。
良かったな。
>>765 variantはかなり遅い
longをvariantにすると
0.001秒の処理が0.01と、処理時間が10倍近くになることも
>>769 vbaのグローバル変数はマジでやめたほうが良い。大体良くない事が起こる
グローバル変数使うなら作業シートに書いたほうがよっぽどマシ
逆にシートにないデータをconst staticみたいに使うならアリ
>>758 そもそもそのコードで３を期待しないのがおかしいとしか思えんのだが
"12"を期待するなら+じゃなくて&使えよ
>>761 ハンガリアンなついな
VBAあたりを最近書いてないからか
variantにすると型間違いでエラーがでないので
知恵を貸してください
>>724 はい、難しいです。簡単なら今頃VBマスターで溢れ帰ってます！
日々の努力あるのみです！
ワークシートをグローバル変数みたいなつかい方をする
uboundで現在の配列の最大要素番号調べて、そこまでループとかじゃないの？
ReDim Preserveは１番ケツの次元しか可変に出来ねぇのがとても残念
>>775 Sub foo()
Dim array1() As String
ReDim Preserve array1(3, 3)
array1(0, 0) = "いちご"
array1(0, 1) = "みかん"
array1(0, 2) = ""
array1(1, 0) = "あまい"
array1(1, 1) = "すっぱい"
array1(1, 2) = "にがい"
array1(2, 0) = "100円"
array1(2, 1) = "200円"
array1(2, 2) = ""
For Each dim1 In array1
If dim1 <> "" Then
Debug.Print dim1
End If
Next
End Sub
vbaの動的配列は本当にめんどくさいな
行数、列数はUBound関数で調べられる
ありがとうございます
ReDim Preserveの配列再定義は知っているのですが
例えば
>>782 のようだと
「いちご」
「みかん」
「あまい」
……
「200円」
のような2+3+2の7個出力されるだけですよね
「いちご,あまい,100円」
「いちご,あまい,200円」
「いちご,すっぱい,100円」
……
「みかん,にがい,200円」
のような2*3*2の12個を出力したいのです
行数が固定なら例えばArray（2,x）のように列数が不定でも
For i=0 To UBound Array（0,x）
For j=0 To UBound Array（1,x）
For k=0 To UBound Array（2,x）
Debug.Print Array（0,i）& "," & Array（1,i）& "," & Array（2,i）
Next
Next
Next
のようにして空白部分の例外処理を適当に入れれば良いのは分かりますが
行数が不定なので分からないというお話です
>>775 >>784 とりあえず、Array関数というのが存在するから、変数名にArrayは使っちゃだめ
ArrとかMyArrayとか何か別の名前に変えないと
自分で書くならこうかな？
再帰処理使わないでスッキリ書く方法は思いつかなかった。
これでだめ？
とりあえずもう一つ突っ込みたい
Preserveは不要だしパラメータも(3, 3)じゃない
ReDim array1(2, 2) が正解
>>788 ネストの深さが不定の時は再帰でやるのが一番自然だと思うよ
ごめんちょっと動作検証してたら、Uboundのとこxとyが逆だった。
>>789 おっしゃるとおりですm(_ _)m
せっかくご指摘いただいたので、直したものを上げ直します。
やってることは同じだけど画像だと入力が面倒だろうし、俺もほとんど同時に作っちゃってたんで貼らして
ありがとうございます
>>779 グローバル変数と言うよりストレージみたいなもんだと思ってる
ReDim使うのって要素数に変数使うときじゃなかった？
>795
再帰を使わない方法でやってみた
そもそもの疑問で、なぜVBAは初心者向けとか言われるのでしょうか。
>>775 総当りってよく考えればパワークエリでクロス結合すれば一発だろって思ったら、パワークエリにクロス結合が無かった・・・
https://www.shegolab.jp/entry/excel-macro-cross-join accessだとアホみたいなクエリで即完成
>>799 昔はプログラミングはもっと敷居が高かったんだよ
その中では、Excelさえあれば使えてUIはExcelのワークシートをそのまま利用できるという手軽さは初心者には魅力的だった
その頃の名残だね
今ではPowerAppsとかGASとかSalesforceとかもっと簡単で強力な選択肢は色々あるし、
プログラミングの勉強ならPythonとかJavaScriptの方が初学者には敷居が低い
>>802 レスありがとうございます。
今、流行りの言語に比べてなぜこんなに、と思っていました。
もっと難しかったのですね。
理解しました。
パソコン仕事を楽に短縮できるよう頑張ります。
ｖｂａは本当に楽。forとif覚えるだけで仕事がはかどりまくり
沢山の似たようなライブラリが公開されていて
条件付き書式や文字の縮小機能まであって、CopyFromRecordsetの異様な速さ
でも.NETに比べれば、メモリを意識するよ
VBA は、シェルスクリプトと同じ。
ExcelのAPIが優秀なのであってVBA自体は微塵も良くない
>>810 で、終わったRubyしか使えず
>>712 みたいな嘘を書き散らすようになると
先に道具を選択しないと言いながら、道具ありきの叩きｗ
>>801 それじゃ希望した動作にならないのでは？
テーブルの数が不定なのだから。
集計するごとにクエリを作り直すことになる。
>>814 クエリってAccess VBAで動的に生成できるんだぜ
>>816 適材適所だろ
全部VBAで組むより全然楽だし分かりやすいよ
無償のSQL Serverがあるのに、わざわざ有償で低性能のAccessを使う理由は、初級者であること以外にないですよ
ユーザーフォームのマルチページ、タブ自体のBackColorプロパティってありますか？
Excelフォームが中途半端な出来損ないだから
そうだね
フォームがもう少し何とかなればとは思うよ
>>819 然り、痒いところまであとちょっとって感じることがしばしば
>>822 アホか
ここは何のスレだと思ってるんだ？
VBA書くのがイヤなら
SQLSERVERのスレ立てて
そこでSQLでもストアドプロシージャでも
関数でも好きな話題してれば良かろう
ビジネスってよりワークで使うかな
使いどころはビジネスってよりワークかな
ワークってよりビジネスな場合もあるかな
なんでvbs採用したんだろう
>>835 そらもうvbaの登場時期が早かったからとしか言いようがない
vba開発チームが頑張ったんだろう
30年ぐらい前はBかCが当たり前で、インターネットもロクにないのに謎のjscriptなんて言語が勝つのは無理がある
>>818 www
初級者まる出しの文章で笑えるw
>>819 普通じゃ無理。
無理矢理タブもどきをつくるか、頑張ってWin32APIでやるか。
Win32APIでやるのは、まあ辞めとけ。
タブを切り替えた瞬間にバックカラーも切り替えれば良いだけ
勝手に見出しの色のことだと思ってた
681です
画像を貼り忘れておりました
会社ごとの重複を除く合計が出たんだからそれを足すだけだろ
>>841 もとデータをいじらないでも、もとデータを別のシートにコピーすればいじれるんじゃね
>>841 重複除けてるのなら、結果をSUM関数で合算するだけじゃん。
>>686 で上げたように、そもそもVBAすら使う必要ない。
君らも構うねー
>>681 への数多の回答を経て「皆さんのおかげで」としか言及しない礼儀知らずなんぞ俺なら２度と助けようと思えないけどな
>>841 SQLでやってるの？
VBAでやってるの？
SQLなら会社、氏名、数値でグルーピングしてから合計求めりゃいいだろうし
VBAでやってるなら上からループして会社、氏名、数値をコレクションかディクショナリーに登録しておいて
同じ組み合わせのものが登録されてたら飛ばせばいいだけじゃないの？
この｢いつものあいつ｣はperlスレで釣りしてたあいつだろ
ここに若い人はいないと思われ
>>854 煽り体制なさ杉
ゴミは無視して自分のやりたいことをしておけば良い
令和生まれの赤子が常駐してたらマジでびびるしこんな言語をやるべきじゃないと諭すレベル
答えたい人は答えて無視したい人は無視すればいいのに
>>859 支え合ってる人たちが気に入らない
という社会に馴染めない方の怨嗟
vbaという単語を知ってるだけでも見込みはあるのに、どうしてそうなったのか
定年したジジババだらけだったら異常だろ
ウィンドウズ95を25で迎えた人間は50歳行ってるよ
Lbound関数がどうもうまく出来ないのでお知恵を拝借させてください。
すみません。 LとUを間違えました。
>>867 F_Test = wRange.Count
>>868 横長だとアレでソレ
そういや関数には単純にセルの数を返す方法ってないんかね
>>868 >>869 なんと！
ありがとうございます。
配列 サイズ で検索すると Ubound関数を紹介するサイトばかりで，何のことはない count でOKとは！
>>869 セル数は一発では求まらないね
WorksheetFunction.COUNTA + WorksheetFunction.COUNTBLANK
とか、
UBound(1) * UBound(2)
とか工夫が必要
自分がわかっている事を、相手に伝えられない
>>870 ウォッチ式に「wRange」入れると中が見れる
「＋」押してそれっぽい奴探せばok
めんどい事しなくても、大体は元々用意されている
>>871 ありがとう
まぁ今まで気づかなかったぐらいだし、まぁ無くてもいいっちゃいいんだけど
Sub Func()
Dim objIE As InternetExplorer
Set objIE = New InternetExplorer
objIE.Visible = True
objIE.Navigate "
https://www.aguse.jp/" ;
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop
objIE.Document.getElementById("url").Value = "99.9.9.9"
objIE.Document.getElementsByClassName("btn1").Click
End Sub
なぜ、クリック処理の所でエラー発生するのでしょうか？
>>874 getElementsByClassNameは配列を返すから（同じクラスを持つ要素の配列が返る）
IDがあるならgetElementByIDの方が良いぞ
CSSっぽく指定できて最初の要素を返してくれるquerySelectorもｵﾇﾇﾒ
>>875 ~877
ありがとうございます。
クリックできました
>>870 だって配列じゃないからな
変に用語使わず素直に range 個数 とかでググった方がいいよ
上のレスにあるgetelemetsby系のメソッドも返すのは配列じゃなくてコレクション
MapだのArrayだの機能入れりゃいいだけなのに入れない
VBAは既に終わった過去の技術
そこにある幸せを制限されてる
Office365でしか動かないVBAV2作るぐらいなら他の言語使うわな
だったらそうすればって別に俺たちはマイクロソフトじゃねえけど
Office365には既にOffice Scriptsがあるからそこはとっくに解決済み
VBAからJavaScript書くと
だから若者はVBに興味示さない
jqueryでExcel.Applicationを操作出来るように拡張するのか
EXCELで簡単にプログラム組むことが出来るからな
>>893 完全に俺
経理だけど、vbaで楽してC#でゲーム作って、
jsでクラウドツールのサイト自体書き換えて勝手に機能追加したりphpでスクレイピングしたり
年中プログラム書いてるわ。楽しい
>>890 VBAでjs使うのは、一つは動的なサイトのスクレイピングする時
htmlだけの操作でしんどい時は、jsでclick辺りさせるだけでサクサク進む事がある
ってかこれ以外でjs書くことはほぼ無いと思う。
jquery使えない時は無理やりappendかなんかしてたけど、もうやり方も忘れたな
色々試している内にchromeのコンソールにぶっこむのが一番楽って結論にたどり着いた
Ruby で、Selenium Webdriver, Nokogiri で、
>>896 Ruby馬鹿は
>>712 のような嘘を書いて逃げる馬鹿
そんな事よりさ、おぢーさん達は加齢臭の処理ちゃんとしてくれよ
>>896 何でEXCELの利点であるシートやフォームを使わないの？
バカなの？死ぬの？
くっせぇーなマジで
5chは加齢臭ジジイの巣窟ですよ。
>>870 それはVariantの2次元配列にRange.Valueを代入して高速化を行う場合の話で、単に行数求める場合に使うのは筋が違う。
Dim varRng As Variant
varRng=wRange.Value
F_TEST=Ubound(varRng,1)
というか、Ubound使うなら引数をRangeにするのが間違い。
Function F_Test(wRange As Variant) As Integer
F_Test = UBound(wRange,1)
End Function
として、呼び出す時に
Debug.Print F_TEST(sht.Range("A1:A3").Value)
とする。
標準モジュールにcsvFile関連に関わるコードをまとめようと思ってます。
>>904 あれ？
EXCELのFormってNameプロパティ持って無かったっけ？
あわしろ氏は、Microsoft固有の言語は覚えないほうが良いと言ってた。
>>907 必要に迫られて覚えたもなにも、中学か高校で習うだろ普通。
>>909 .netもMS固有の言語みたいなもんだが、普通に色んな職場で使われとるやん
学習しなくても最初からできる天才タイプもたまにいるよマジで
そもそもマイクロソフト固有の言語ってなんやねん
microsoft固有の言語って今どきある？
あまいわ、Excel独自のルール知らないとまともなVBA組めんわ
>>917 それは言語の問題ではなくAPIの問題かと
環境に左右されないコード書く仕事なんてそうそうないだろ
VBAは覚えてからでなければ組めないほど難しいとも思えん
A:まず顧客名XXの行、商品とかいてある列のデータをとります
みんなすまん
最近Ruby信者やあわしろ教信者がこのスレに多発するようになったのはひょっとすると俺のせいかも知れない
ぶっちゃけ始めるのにいい言語て何 part4
http://2chb.net/r/tech/1615612545/ このスレでVBA推ししてたから
変な狂信者達がこのスレにうろつき出すようになったのかも知れない
そうだとしたらマジですまんかった
ユーザーフォームで行の選択位置を変えるボタン▲▼がクリック数と一致しない問題があったんだけど
はい、頭大丈夫か、いただきました～。
>>929 理由を知ってるからそう思えるのであって意外と分からんもんよ
>>931 常識だろ
コピペしかしない頭が弱い奴にはわからんだけ
そういう頭の弱い奴はWindowsの仕組みすらろくに把握していない
アイコンをダブルクリックする操作から類推する頭がない
はい、常識だろ、いただきました～。
良く考えてよ、そんなにVBAが楽だったらそこらじゅうでエキスパートが溢れ帰ってるわ
>>938 言えるぞ
そいつは世の中馬鹿だらけという当たり前のことを知らん馬鹿なのか？
あわしろ氏から見たらお前もバカの一人にすぎないのだが。
https://ja.asuka.io/whois/126.31.241.3 の”SoftbankBB ABUSE”を取得したいと思っているのですが、どのようにすればいいのでしょうか？
Dim objIE As InternetExplorer
Set objIE = New InternetExplorer
--省略--
objIE.Document.getElementsByClassName("whois-result")
>>937 そんな。。。いきなしベストアンサー出さなくても。
みんなさ、もうちょいもて遊んでよ(笑)
Ruby のnokogiri でスクレイピングして、
Rubyなんてカーバンクルの頭にめり込んでいるような気持ち悪い名前の言語使うくらいなら
>>942 roleが2つ以上あった時、どうやって選ぶの？
Ruby馬鹿は
>>712 のような嘘を書いて逃げる馬鹿
VBAを覚え始めて2週間だけど
人によってはワークシート関数よりマクロの方が難しいっていう人もいるからね。逆もいるしね。
perlなどがない環境もあるので、出来ればすべてVBAで出来ないかと考えています。
>>946 roleが２つ以上の場合は一番最後のroleにある値を取得したと考えております。
左手に電卓を持ち、右手は交互に電卓、マウス、テンキーを使い分ける上司とお局様とその下僕達
うん。だってエクセルが計算間違えたらどうすんの？
馬鹿が作った変な式やマクロのせいで合わないなんてこともある
>>962 初心者というより、ここで質問しなきゃいけないような馬鹿のことだな
あと、悪意のある熟練者が作ったマクロも信用できないけどな
>>964 正しいが悪意を言いだしたらキリがない
馬鹿のくせにで自分には作れると勘違いしている馬鹿も悪意のうちに含めるのならばわからんでもない
無自覚の悪意というこという意味で
>>961 Doubleとかの浮動小数点を使う型の場合、IEEE754準拠のために起こるやつのことだね
それは例えば小数点以下4桁までなら通貨型が固定小数点型だから使えるとか
一度割ったときの値が丸めを行うところまで10の倍数掛けて整数桁にしてから計算して、
その後最初に掛けた分で割ってやれば解決するようなことを知らない人が組むとそうなるわけで
別にEXCEL VBAに限ったことじゃないし、組む人の問題だよ
JavaみたいにbigDecimal型とか持ってる言語もあるにはあるけどね
後、VBAでは四捨五入も銀行丸めになるから
それがイヤならWorksheetFunctionでRound使うとかね。
回答者が雑な回答で悪い風潮あるみたいだけど、質問してくる初級者にも問題あるって話
分からないことが何か分からないぐらい分からないとそういう質問になるのはよくあることだと思うよ
>>951 昔は仕事でVBAやってれば
あんちょこ本屋で立ち読みして
傾向だけ把握してれば大体受かる
感じだったけど今はどうなの？
直接の会話だと不明点を確認しながら進めるのが普通なのに、掲示板だと後出しと言われる風潮はいいかげん頭が固すぎると思うなの
そういう奴はかまってちゃん
文句があるならヤフー知恵袋でやりとりしてください。
>>970 回答してもらっておいて文句いうような奴には教えんよ
>>970 程度問題だろ
ちゃぶ台返しになるような前提を後出しされても困る
何がしたくて何をして何を期待して何が起きたかぐらいは誰でも手間かければ書けるのにその手間を質問者側に押し付けるな
質問者あっての質問スレですからなあ。
在庫管理でクロス集計表を使ってるんだけど
他人に伝わる表現方法を考えたほうがいいと思う。いやまじで。
>>980 配列で取り込んだデータをデータがあったセル位置に戻すことが必要な理由とは？
>>980 配列に取り込んだ時と逆のことをするだけでは
Cells(2, 3) = 配列(2, 3)
みたいに
違うよ
元データが変化するわけじゃないならセルに返す必要ないんじゃないの
Cellの値の変更時の処理を記述する為に、WorkSheet_Change イベントを使ってるのですが、
Cellの値の変更時の処理を記述する為に、WorkSheet_Change イベントを使ってるのですが、
そもそも在庫管理なんてexcelでやる内容じゃないしな
お前らノーパソ？デスクトップ？
そもそもクロス集計をピボットで行ってるのか
>>992 MacBook
Windowsはもう持ってないしExcelも一切使わない
>>989 本当に値が変わったときのみ
Worksheet_Changeイベントを拾うのは恐らく無理。
元々のセル値をとっておき、Worksheet_Changeイベントの処理の中で対象セルの値が変わったを判定して、違っていれば処理を行うようにする。
紙の表を目で追いながら画面を見ずにどんどん入力するとか普通にある
このスレッドは１０００を超えました。
5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/ ▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php
このスレへの固定リンク： http://5chb.net/r/tech/1616072923/ ヒント： 5chスレのurlに http ://xxxx.5chb .net/xxxx のようにb を入れるだけでここでスレ保存、閲覧できます。 TOPへ TOPへ
全掲示板一覧 この掲示板へ 人気スレ |
Youtube 動画
>50
>100
>200
>300
>500
>1000枚
新着画像 ↓「Excel VBA 質問スレ Part70 YouTube動画>1本 ->画像>12枚 」 を見た人も見ています：・Excel VBA 質問スレ Part65 Excel VBA 質問スレ Part49 Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり) 【質問不可】Excel総合相談所スレの雑談・議論スレ5 【FFBE】 FINAL FANTASY BRAVE EXVIUS 質問スレ2 (c)2ch.net 【FFBE】 FINAL FANTASY BRAVE EXVIUS 質問&初心者スレ Lv2 ReplaceStr.txt活用、質問スレッド Part1 シノアリス質問スレ【SINoALICE】 Part4 シノアリス質問スレ【SINoALICE】 Part11 【facebook】フェイスブック初心者質問スレ28 【PoE】 Path of Exile 質問スレ part15 【PoE】 Path of Exile 質問スレ part26 【海外通販】AliExpress初心者質問スレ 30 【PoE】 Path of Exile 質問スレ part20 【PoE】 Path of Exile 質問スレ part19 【FF14】FINAL FANTASY XIV 質問スレ183 【FF14】FINAL FANTASY XIV 質問スレ174 【FF14】FINAL FANTASY XIV 質問スレ169 【FF14】FINAL FANTASY XIV 質問スレ166 【FF14】FINAL FANTASY XIV 質問スレ172 【FF14】FINAL FANTASY XIV 質問スレ123 【FF14】FINAL FANTASY XIV 質問スレ136 【FF14】FINAL FANTASY XIV 質問スレ124 【FF14】FINAL FANTASY XIV 質問スレ130 【FF14】FINAL FANTASY XIV 質問スレ116 ギター初心者スレ 68 ●雑談相談質問● ﾜｯﾁｮｲ有 ギター初心者スレ 67 ●雑談相談質問● ﾜｯﾁｮｲ有 【PoE】 Path of Exile 初心者・質問スレ part57 【FF15】FINAL FANTASY XV 攻略＆質問スレ No.7 【FF15】FINAL FANTASY XV 攻略＆質問スレ No.8 JaneXeno初心者質問スレ【JaneStyle移行組ご用達】 ヤフオク初心者質問スレッド ＃853（ワッチョイ有 【液晶】薄型テレビ購入相談・質問スレ58 【有機EL 【ソロ専用】アナザーエデン 時空を超える猫 質問スレ 41匹目 【アナデン】 【ソロ専用】アナザーエデン 時空を超える猫 質問スレ 34匹目 【アナデン】 【ソロ専用】アナザーエデン 時空を超える猫 質問スレ 33匹目 【アナデン】 【Switch】大乱闘スマッシュブラザーズ SPECIAL 初心者スレ26 【質問/雑談】 【MHFZ】MHFZの質問に全力で答えるｽﾚPart668【※このスレで晒しに噛み付く馬鹿＝HN:めらるー＠★本人 リトルノア 質問スレPart15 Mozilla Firefox質問スレッド Part170 Mozilla Firefox質問スレッド Part194 Mozilla Firefox質問スレッド Part160 Mozilla Thunderbird 質問スレッド 26 Mozilla Firefox質問スレッド Part172 サマナーズウォー: Sky Arena 質問スレ35 サマナーズウォー: Sky Arena 質問スレ45 @2ch.net Mozilla Firefox 57に向けて代替拡張質問スレ2 【LoVA】LORD of VERMILION ARENA 質問スレ 4 サマナーズウォー: Sky Arena 雑談質問スレ56 サマナーズウォー: Sky Arena 雑談質問スレ67 Granado Espada -グラナド・エスパダ- 質問スレ128 HIPHOP質問スレ バス釣り質問スレ２ FEH 升質問スレ 気軽に質問スレ4 Ventura質問スレ CM板総合質問スレ 2 固定に質問してもいいスレ 仮想通貨なんでも質問スレ8 職務質問苦情スレ 149 職務質問苦情スレ 109 職務質問苦情スレ 145 鉄道懐かし板 質問スレ Tasker 質問スレ 19 なんでも質問していいスレ45
10:07:19 up 65 days, 11:06, 0 users, load average: 8.64, 8.82, 8.87
in 1.3986129760742 sec
@1.3986129760742@0b7 on 062123
