Excel VBA 質問スレ Part63
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part62
https://mevius.2ch.sc/test/read.cgi/tech/1561303297/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
967 デフォルトの名無しさん (ﾜｯﾁｮｲ 1fce-Nl8y) sage ▼ New! 2019/09/13(金) 00:48:49.27 ID:VS8vqVEc0 [1回目]
文字列として読み込めば0は消えない
あとLineInputよりクエリのがずっと速い
サンプル
Sub CSVread()
With Worksheets("Sheet1") '読み込むシート
With .QueryTables.Add(Connection:="TEXT;C:\tmp\test.csv", Destination:=.Range("A1")) 'ファイル名とセル位置
.TextFilePlatform = 932 '文字コード指定
.TextFileCommaDelimiter = True 'カンマ区切り指定
.RefreshStyle = xlOverwriteCells 'セルに上書き
.TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat) '各列を文字列に指定
.Refresh 'シートに読み込んで表示
.Delete 'クエリを切断
End With
End With
End Sub
用途としては強引にunsigned Long的に使う為のオフセットなのですが#を付けない方法はありますか？
式は書けないんだったっけ…
ブックに保存されたクエリをOLAP等で使い回すためにODCファイルとしてエクスポートしたいんだが、「既存の接続」コマンドからクエリのプロパティを開いても「接続のエクスポート」のボタンが無効になっていてうまくエクスポート出来ない
どうしたらうまくエクスポートできるのか知りたい
エラーが分からず・・・教えてください。
下記コードで、”型が一致しません”というエラーが出ています。
Dim Ringi1 As Worksheet
ThisWorkbook.Activate
Set Ringi1 = Workbooks(Range("B6")).Worksheet("Sheet1") ←エラー
ThisworkbookのB6には”テストファイル.xlsx”が入っています。
よろしくお願いします。
Worksheet(Range("B6"))じゃなくてWorksheets(Range("B6").Value)でしょう
あとRange("B6")はどのシートのB6セルなのかな？
この書き方だとThisWorkbookがActivateされたときにアクティブになってるシートのB6セルが参照されてしまうので、ちゃんとシートを指定して書いたらどうかな
例えばThisWorkbookの一番目のシートのB6セルにファイル名が書かれている前提ならこうなる
Dim Ringi1 As Worksheet
ThisWorkbook.Activate
Set Ringi1 = Application.Workbooks(ThisWorkbook.Worksheets(1).Range("B6").Value).Worksheets("Sheet1")
つけないのは無理だったと思う
今スマホだから試せないけど # が嫌というだけなら ^ ではどうかな？
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/longlong-data-type
マルチポストはやめよう
アドオン入れるなり作るなりするとマシになる
コードをヒントにして、成功しました！
ありがとうございました。
めっちゃお優しいですね！！
初めてなので許してください
そして教えてください
オススメ教えて
ブックAのシートでループ
R、馬鹿
うるせえウンコマンクソして寝ろ
ならマルチポスト放置してないで一つに絞ろう
考えてもわからないので教えてください。
Dim Wb2 As Workbook
Set Wb2 = Workbooks(Range("B7").Value)
エラーメッセージ：インデックスが有効範囲にありません。
B7セルには＜テストファイル.xlsx＞が入っているとします。
Workbookにワークブック名を入れようとしているのですが、
なぜエラーなのでしょうか・・・？
自己解決しました。
失礼しました。
dドライブ直下にあるとして
Set Wb2 = Workbooks.open ("d:¥" & Range("B7").Value)
なら自動的にファイルを開いてオブジェクト扱いになる
そんな書き方もあるんですね！
勉強になります。
（私のコードは無駄が多そう・・・。）
ターゲットのサイトでは、一度に２０件のデータしか表示されず
一番下までスクロールするたびに２０件ずつ追加されます（データは全２００件です）
htmlでは、20件のデータの下に「::after」と書かれており、スクロールが一番下に近づくと
新たな20件がロードされ、その下に「::after」が現れます
質問ですが、一度に200件全てのデータを取るためにはIEでスクロールさせる必要があるように思いますが
その場合、SendKeysを使って、SendKeys "{PGDN}" のようにするしかないのでしょうか？
それとも他に、何か良い方法があるようでしたらアドバイスをいただきたくお願い申し上げます
非表示部分に貼り付けつつ、非表示のままにするにはどうしたらいいでしょうか？
貼り付け先シートの元々の表示・非表示状態はそのままにしたいんですがよい方法はありますか？
ページの作りによる。
例えばあなたは20件ずつなどと言っているけど、URLの入力など次第で200件全部表示できるかもしれない。
スクロールが必要かも分からないがSendkeysなんて使うのは子供と考えて良い。
レスありがとうございます。
私もSendKeysは使いたくなかったので質問した次第です
> ページの作りによる。
ターゲットサイトは、ｄアニメのランキングのページです。
https://anime.dmkt-sp.jp/animestore/CR/CR00000013_001
ここからランキングのデータを抜き出して来ようと思ってますが、20件ずつしか表示されず…
何かいい方法はないでしょうかねぇ
いーろづいたっ
入ってきたんですが、色々Excel作業の自動化をお願いするために
現行の作業手順をお見せしたら、「ここの、Excel関数を使っているところは
意味が分からないので、関数の使い方から説明してください。」といわれ、
VLOOKUPとは、からお話ししないといけないそうで、もう自分でVBA
書こうかと思ってしまいます。
はじめはこういうもので、すぐ慣れてくれるんでしょうか？
「SEの資格」を持っている、という触れ込みの、部長の知り合いなので扱いは
要注意なのです。はぁ。
結論から言うと、解雇できる場合もあればできない場合もあります。
一口に経歴詐称といっても、軽微なものから重大なものまであり、全てのケースで解雇が可能とすることは合理的ではないからです。
解雇ができるケースは、「重要な経歴」を詐称されたときに限られます（重要な経歴とは何を指すのかは下記で説明します）。
職歴に関する経歴詐称
職歴を詐称していた場合は、採用後の仕事の内容、賃金に直接影響を及ぼすもののため、重要な経歴を詐称していると判断される可能性が高いと言えます。
判例では、グラバス事件（東京地判平成16年12月17日 労判889号52頁）があり、プログラミング能力がなかったにも関わらず、あたかもスキルがあるかのように経歴書に記載。
採用面接でもそのように説明して、ソフトウェア会社に採用されたが、経歴詐称を理由とする懲戒解雇が認められたという事例があります。
元SEが本当なら、少なくともVB（VBAじゃなく）は書けるけど、普通のオフィスワークはあんましてこなかった、とかじゃないの？
そんな感じのSEさんと一緒に仕事したことはある。ちょっと教えてあげたらあっという間に習得したけど。
でもやっぱ利用頻度の低い関数（LOOKUP系）や若干特殊な使い方（SUMPRODUCTを複数条件の判定や抽出に使うとか）には苦慮してた。
バリバリ書けるSEならExcelの基本的な関数ぐらい自分で調べられるものだがそれすらできないのはバリバリ具合すら怪しい予感
バリバリのエンジニアがVBA使う仕事に応募なんてしません
そもそも謎の「SEの資格」とか言ってるお前も似たようなもんだろ…
ホントにやばいやつってのはな・・・
スクロールしないで取得したかったんだが解析面倒で断念。
スクロールはSendkeysではなく、HTMLWindow2のscrollToなどを使う。
https://pastebin.com/V7S3XW71
VBA使いでExcel関数を使わない人もいるからな。
俺はどっちも使うけど両方同時に使うのは避けることが多い。
簡単にそんなこと言うと、その時点でバレるぞ。
普通は分かってたら詳細や、かつてその技術でハマッた体験談を語るもんだ。
> スクロールしないで取得したかったんだが解析面倒で断念。
> https://pastebin.com/V7S3XW71
おお、わざわざここまで！
大変お手数をおかけすることとなってしまい、申し訳ないやら嬉しいやら…ありがとうございます！！
> スクロールはSendkeysではなく、HTMLWindow2のscrollToなどを使う。
最近、ネットのブログなどを参考に
見よう見まねでExcelのVBAとIE操作を両方一緒に始めたのですが…
ループで200項目取り出すまでの条件の書き方、スクロールの書き方、すごく参考になります！
ランキングデータの取り出し方…、ここまでシンプルに書けるものなんですね！！
恥ずかしながら、まだオブジェクトとかコレクションとかアイテムとかがごっちゃになってて頭で整理できておらず
文法エラー（？）の嵐に悩まされつつコードを書いてる段階で…"ChildNodes"とかもまだ使ったことないです…
本当に感謝です。
Range("A1".Offset(0,12)).Activate
はだめで、
Range("A1").Offset(0,12).Activate
が正しいのはなんでなのでしょうか？
VBAでそのへんを正しく理解するのはまず不可能だしその必要もないから、定型句だと思って暗記しなさい
ちゃんと理解したかったらJavaのようなきちんとしたオブジェクト指向言語を学ぶことをお勧めする
引数が間違ってるから
一番目の式の方は、"A1".Offset(0, 12)という表現がVBAの構文上無効で何も値を返さない式になっている
なので、参照先のセル範囲の名前をバリアント型の引数として要求しているRangeプロパティ式の評価に失敗してしまい、Rangeオブジェクトの取得にも失敗する
文字列や数値のリテラルに.(任意の値)と続けて何らかのオブジェクトにアクセスしようとしても、そもそもそのようなアクセスルールが定義されていないので当然失敗する
反対にRange("A1").Offset(0,12)の方は構文上無効な表現がなく、RangeオブジェクトのメンバのOffsetプロパティ式を正しく用いているので、Offsetプロパティを介してA1セルから12列分座標移動したセルを取得することができる
他言語だと型変換とかあるんだけど
ドラックすれば良いんじゃない?
位置調整は難しい場合があるけどウィンドウ枠の表示が変わった時に離すとドッキングするから試行錯誤してみれば良い。
移動させる時に判定のシビアなガイド枠みたいなのが出るから置きたい位置にハマるまで頑張る
もしそうなったらVBA界隈の閉塞感も変わるかな
エクセルやってる一般社員様がpython始めたらどうなるんだろ
未だにこういう馬鹿がいるのか
どなたか>>46わかるかたお願いします。
>>89
>>未だにこういう馬鹿がいるのか
gasはそもそもスプレッドシート自体の機能が物足りないからイマイチだったんだけど
Excel自体クラウド上で使うようになってきてるから
マクロみたい使うならJavaScriptなのかもね
こーのよーるー
PowerQuery(M言語)、PowerPivot(DAX)、JavaScript、Python、PowerShellのどれかで書く方が楽だしメンテも簡単
工程が1,2,3…とあって、それぞれの工程で使う部材は今のところ重複はなく(今後どうなるかわからない)部材毎に色違いやグレード違い等の派生品があり、
用途としては工程毎に使う部材を別シートにリストアップしたり、規定量を割ったものをピックアップ
部材の管理番号を振るとき
番号は工程や派生に関わらず一列で一意の連番
3列で工程ｰ工程内の部材を連番ｰ派生を枝番
工程に関わらず部材毎に連番ｰ派生品を枝番
マクロを組むときこれらのうちどうするのがよい構造になるでしょうか？
100〜のスレッドの続きを読む