コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part56
http://mevius.5ch.net/test/read.cgi/tech/1534976724/
探検
Excel VBA 質問スレ Part57
レス数が1000を超えています。これ以上書き込みはできません。
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part56
http://mevius.5ch.net/test/read.cgi/tech/1534976724/
と他所では負けっぱなしの奴らが集まってくる。
ここはそんなスレ
消えるってどういうこと？
仕様だと思う
具体的にどういう現象?
Z
VBAから使えるの？
俺はひとつ覚えでdictionaryだわ
.NETランタイム仕込むの？
ドトネトーのmscorlibはcomがあるんよ
CreateObjectでインスタンス化できる
参照設定でmscorlib.dllを読み込めば型指定できる
感動した
職場では似非プログラマの自分とその他しかいないのでメンテ出来なくなりそう
コメント入れまくるんだ
汚いコードのコメントは汚くて結局わかりにくいままになるぞ
主な操作対象が配列なのだったらむしろ分かりやすいのでは？
配列のサブスクリプト、コレクションのインデックス、ハッシュテーブルのキーの相互の違いが分からなかったりするからな
具体例を豊富に。
俺にはわからん
ただプロシージャさえ使わず変数名にaとかbとか付けてたりで数百行書いてるようなマクロが散見されるほどうちのレベルは低いからちょっと不安
「配列っていうものもあるんだなー」程度でも認識さえしていれば、
むしろ配列しか使ってないコードならそのうち理解してくれそうな気がする。
途中でコレクションとか辞書とかヘンなオブジェクトとか自作クラスとか使ってなければ。タブン。
ともあれ、職場に何人かVBAが書ける人がいるようだから（非常に素晴らしいことに）、
適当に何人かひっ捕まえて使わせてみて率直な感想を言ってもらうといいんじゃなかろうか。
どんなデータ構造にもそれなりに難しい点はある、と言われればそうだが、
配列で難しい点を具体的になにか挙げないと意味ないぞ。
意味がない、ではなくおまえには意味がわからんのやろ
知ったことかそんなもんw甘ったれんなカスw
いくない、Excelはゲーム作成用ツールじゃない
いいんじゃね
テトリスができるようになれば次の課題が見えてくると思う
VBAらしく事務処理の自動化をやるくらい楽勝だよ
そこまで求められてないから無駄。
字面だけでいえば、「Excel VBAでテトリスが作れるレベル」なら、「Excel VBAはそれなりに使いこなせる」と言える。
ただ、それを訊いて何をしようとしているのか分からない。内容次第ではおすすめしない。
それ以上の人はVBAできますなんて恥ずかしくて言わない
どうせならエクセルで機械学習とか実務に使う余地があるものやれば
なんてわざわざ言わない
他言語ができればできて当たり前だから
vbaを使いこなせられるというか、これが作れるようになれば、この先いろんなツールをつくろうが、
応用がきくという意味で、テトリスという題材を選んでみた。
俺、間違ってることいってる？
vba使いこなせられるになる基準として、何かこういうの作ってみろ的なことがあればいってほしい。
完璧にシステム仕様が決まっていて、テストも十分終えたもの以外は、一つのExcelファイルに
プログラム
設定データ
蓄積データ
をまとめるのはやめとけって忠告したのに・・・。
プログラムのバグ修正のたびに、支社の端末を直接操作しているVBAマスターを自称する後輩が・・・。
土日ももう呼び出し呼び出し。完全に病んでしまった。
あれほど忠告したのに・・・。
安易な作りでデータ等々を抱えると、プログラムの修正だけしたくても、簡単にはいかないから、
せめて蓄積データだけは別のエクセルファイルなりに保存して開いて使うなりの仕様にしとけと・・・。
勘違いしてるようだが、テトリスはプログラミングの練習ネタとしてはかなり難しい部類だ
テトリスを自分で設計して作れたら、VBAを使いこなせるどころか世の中でVBAのプロを自称する連中の中でいきなり上位に入るレベル
それくらいVBAのプロのレベルは低い
つまり何が言いたいかっていうと、テトリスはやりすぎ
家計簿くらい作れたら十分面接でドヤっていいよ
どういういみかもう少し噛み砕いてほしい
私よく意味はわかってないけど今まさに同じ道を辿ろうとしてるような気がする
で、データの方はプログラムとのやりとりに支障が出ないようテーブル名、スキーマ、データフォーマットを固定したソースファイルに別途保存させる方がいい
VBやｳﾝｺｽｸﾘﾌﾟﾄでｶﾞﾘｶﾞﾘ開発してるのは
ｻﾙがｵﾅﾆｰしてるようにみえる
もしくは奴隷が単調な動作を繰り返してるようにみえる
取っつきにくさでいうと、すでに子供の頃から馴染んでおかなければならないイメージ
俺みたいに遅蒔きで大学に入ってC++を初めてさわったレベルでは追い付けないな、と思った
きっかけは分析ツールみたいなアドインってどう作るのか知りたかったという位、その程度の熱意じゃ無理
>>53
モダンC++は昔とくらべてびっくりするぐらい生産性高いからね
アマチュアの限界が来たんだね
後はプロに引き継ぎなさい
"aiueo"
とか
≪aiueo≫
が格納されていたとして、
囲い文字だけを抽出するにはどうすればいいですか？
"aiueo"の場合は、全部半角なので、配列に代入して、配列の先頭と末尾を参照すればいいのだが、
≪aiueo≫の場合、全角・半角の区別がつかないので（どちらでもない？）、どうやればいいのか。
まともなプログラマなら正規表現を使う
VBA厨止まりでいいならLeftとRightを使う
1 "aiueo" =(LEFT(A1,1))&(RIGHT(A1, 1)) ⇒ ""
2 ≪aiueo≫ =(LEFT(A2,1))&(RIGHT(A2, 1)) ⇒ ≪≫
ｵﾚならVBAなんか使わずにこうする
正規表現を使う場合
①事前に囲い文字を把握しておく
②コード内では、囲い文字をキーにgrep
③grepの結果から、先頭/末尾に囲い文字が含まれていれば確定。
という流れですか？
正規表現使えば何とかなるよ
基本的には、aiueoが見つかった場合に見つかった文字列の開始位置と終端位置からそれぞれ一文字分外側にオフセットさせた文字列を取ればいい
"ａiueo"のようにaiueoの中に2バイト文字が混在してる場合も抽出しなきゃならないような特殊な場合は文字列の範囲指定がちょっと面倒かもしれないが
これ使えるね
全角の＜、半角の<に入れ替えても、ちゃんと囲い文字だけを抽出してくれてる。。
囲い文字が特定できるならそれが正解
囲い文字以外を置き換えで消しちゃえばいいんじゃね
検索文字列は"[^\(\)\[\]\"\'「」『』《》]"みたいな感じで
最初の一文字と最後の一文字取るだけならもっとスマートに出来るけど囲い文字が無い場合は括弧以外を抽出しちゃうし
回転もあるし、壁にめり込んだり、
そもそも1秒に10回でも、描画できるか？
そんな性能あるか？
>①事前に囲い文字を把握しておく
で、囲い文字があるかないか、事前に分類しておく
分類後、囲い文字があるものに対して、
vbaを使わずにleft、rightを使って抽出。
これで囲い文字の種類を全部押さえていることになる。
後は、コード内で正規表現(grep)使ってうまくやればなんとかなりそう。
"aiueo≫
とか
≪"aiueo"
とか
≪"aiueo≫ "
はエラーとして除外するの？
エラーとして除外する。
VBAテトリスって余興みたいなものだから
応用力を見る題材というならたとえば
在庫や売上の情報から在庫切れや長期在庫
利益率ランキングを算出するとか
株式情報から各種指標を算出するとか
そういうのがビジネス寄りで適切だと思う
>>49
テトリス自体はそんな難しくない
しいていえばゲームは全部GUIに依存するから
その部分が複雑になりがちなだけ
＞一つのExcelファイルに
＞ プログラム
＞ 設定データ
＞ 蓄積データ
＞をまとめるのはやめとけって忠告したのに
分かる
要はハードコーディングでしょ
正規表現がプログラミングの正攻法
なお「<a><b>c</b></a>」
こういうタグの入れ子構造は
正規表現で処理するのは難しい
俺はそのままやってみたらいいと思ってる。Excel VBAでアニメーション作った動画とかもポロポロあるわけだし。
（https://twitter.com/excelprog/status/993022444221808640とか）
目標が分からないし、何をやりたいにせよ好奇心を止めることはできないし。
https://twitter.com/5chan_nel (5ch newer account)
こうやってVBAを使うことそのものを目的にして遊ぶのは悪くないと思う
テトリスってそんなに複雑か？
ゲームの中では簡単に制作できるほうだろ
既に存在するけど、テトリス
他人のソース読むとき、公式のやつが英語のみで辛いんです……
ゲームを題材にするならRPGが最適じゃないかな
RPGならデータをこねくり回すしExcelVBAの勉強には良さそうだが
キャラや地図のデータをワークシートに保存して
VBAでそれにアクセスしながらゲームを進行させる感じで
作ろうと思えば、ある程度までは可能だろう
もう技術がある人がそれを承知で芸をやるのは良いけど
実用にしたいならビジネス用の題材を取った方が良い
RRGはテトリスよりは題材としてマシだと思う
ドラクエみたいな普通のGUIのRPGを
エクセル方眼紙で再現するとかだと筋悪いけど
そうじゃなくてCUIのRPGで
アイテムとかデータ構造の構築と管理を中心に組めば
ビジネスにも応用が利くと思う
表が崩れてしまう。
csvの中身
--
1,my name is taro
2,hello,world
--
excelに読み込ませると以下のように表が崩れてしまう。
A B C
1 1 my name is taro
2 2 hello world
期待値は、hello,worldをコンマ(,)で区切らず、B1セル内に格納したい。
まずvbaを使わずになんとかできない？
確かにRPGのほうがワークシートの保存とかデータ構造の管理とか色々関わってくるのでテトリスよりは題材としてマシなレベルですね
CSVの意味わかってる？
CSVデータの仕様が悪い気がする。
カンマを含むデータならダブルクォーテーション""で括られているべき。
CSV（コンマで区切って表示するもの）なので、
hello,world→helloとworldに分割されるのは当然と言えば当然ですが、、。
CSVはこうしたほうがいいというﾒﾓを
無視してるのはｷﾐﾗ低学歴知恵遅れなﾜｹ
ｶﾝﾏか改行かﾀﾞﾌﾞﾙｸｫｰﾃｰｼｮﾝが項目に含まれる場合
ﾀﾞﾌﾞﾙｸｫｰﾃｰｼｮﾝでくくるべきだ
さらにﾀﾞﾌﾞﾙｸｫｰﾃｰｼｮﾝが含まれる場合、
2個のﾀﾞﾌﾞﾙｸｫｰﾃｰｼｮﾝでｴｽｹｰﾌﾟするべきだ
https://tools.ietf.org/html/rfc4180
6. Fields containing line breaks (CRLF), double quotes, and commas
should be enclosed in double-quotes. For example:
"aaa","b CRLF
bb","ccc" CRLF
zzz,yyy,xxx
わかった？
1,my name is taro
2,hello,world
↓
1,"my name is taro"
2,"hello,world"
※my name is taroは括られている必要はないが、統一した方が良い
そもそも何がしたいのか？
1列目：ナンバー
2列目：内容
という固定フォーマットで区切りがカンマだってならそのように分解すればいい。
InStrで最初のコンマを探せばいいだろうよ。
つまり、CSVデータの仕様が悪いので、これ作った人になんとかしろというしかないか。
カラム数が一定かつ「hello,world」なカラムが一つしかないなら、泥臭いやり方で直すことはできなくもない。
はっきり言ってCSVデータとして「壊れてる」
というかどのカンマが残ってどのカンマが区切りなのか
理論的に説明できないならVBAだろうと無理
適切に読み込める
普通に矛盾なく読み込めるようになってる
ちゃんと読み込めないのは頭悪いから
自分が頭悪いのを棚にあげるのはよくない
A B C D E
AHO " hoge,huga boo CRLF foo CRLF woo BAKA
baka
↓
AHO,"""","hoge,huga","boo CRLF foo CRLF woo",BAKA crlf
baka
この形式で出力されてないﾃﾞｰﾀはそもそもcsvじゃない
最終的には表を
1列目：ナンバー
2列目：内容
にそろえたい。
2列目の内容には、英文が入る。英文には文章の区切り点としてコンマ(,)がよく使われる。
・1行の列数はn列
・カンマが含まれる列は最も右の列だけ
の場合なら、左からn-1個目のカンマから右の文字列は全て問題のフィールドと解釈して処理すれば良い。
たぶん、CSVファイルを作成した後のことは何も考えないで作ったか、
あるいは特定のプログラム内でしか使わないことを想定したデータ（つまりCSVじゃない）かのどちらかだろうと思う。
もし前者なら、その仕様でCSVファイルを作成した（ツールを作成した）人には言っといた方がいい。
読み込む前に整形すれば良い
PowerShellならワンライナー
cat test.csv | % {
$i = $_.IndexOf(",")
($_.Substring(0, $i), "`"$($_.Substring($i + 1, $_.Length - $i - 1))`"") -join ","
} | Out-File "dest.csv"
どちらにしろ元データは要修正だよ
そうそうCUIベースのRPG
ワークシートごとにキャラデータやアイテムデータ、地図データなどを設定して
CUIで画面構成して進行する感じ
クエリワークシートなども用意して簡易データベース的に
データを利用してゲーム進行してやれば結構いい勉強になると思う
powershellならget-content使え
置き換えも-replace一発で正規表現で出来るだろ
そんなややこしい事しなくても
cat test.csv | %{ $i = $_ -split ',',2; "$($i[0]),""$($i[1])""" } > dest.txt
でいいでしょ
catはget-contentのエイリアス
正規表現使わなくてもできる
自分はこう書くっていうのがあるなら
僕にレスせずにそれを出すべきかと
ここはVBAスレだからせっかくなのでVBAで解答を書いてみてよ
だいたい5行ぐらいでできるかな?
作った人に、CSVか確認してみます。
列内で、カンマを使いたい場合は、\ でカンマをエスケープする。\"
列内の文字列、a\"b
列、"a\"b"
それか、TSV。タブ区切りを使う。
ただし、これも列内にタブを使わないようにすべき
基本、システムを知らない人には、設計(SE)はできない！
こんなの誰でも知っている常識だからw
列のﾃﾞﾘﾐﾀや行のﾃﾞﾘﾐﾀ、もしくは引用符を含む場合
引用符で括る
引用符が含まれる場合、引用符は引用符の前に引用符を1つ記述する
csvの場合、
列のﾃﾞﾘﾐﾀはｶﾝﾏ
行のﾃﾞﾘﾐﾀはCRLF
引用符はﾀﾞﾌﾞﾙｸｫｰﾄ
になる
ﾀﾌﾞ区切りの場合、列のﾃﾞﾘﾐﾀはHTになる
わかった？
Dim fs, src, dest, line, i
Set fs = CreateObject("Scripting.FileSystemObject")
Set src = fs.OpenTextFile("test.csv", 1)
Set dest = fs.OpenTextFile("dest.csv", 2, True)
Do Until src.AtEndOfLine
line = src.ReadLine()
i = InStr(line, ",")
Call dest.WriteLine(Join(Array( _
Mid(line, 1, i - 1), _
"""" & Mid(line, i + 1, Len(line) - i) & """"), ","))
Loop
Call dest.Close()
Call src.Close()
RFCはそうだけど
"を\でエスケープするやり方もあるよね
低学歴知恵遅れのﾏｲﾙｰﾙが通用するｼｽﾃﾑでないと通用しない
低学歴知恵遅れのやりかたの別のﾌｧｲﾙ形式になる
低学歴知恵遅れのやりかたとcsvの形式は一切関係ないからな
なんで低学歴知恵遅れは
低学歴知恵遅れのﾏｲﾙｰﾙを押しとうそうとすうんの？
低学歴知恵遅れの世界でしか通用しないのに
A B C
aho boo"foo baka
aho boo"foo baka
普通に
aho.csv
aho,"boo""foo",baka
aho,"boo""foo",baka
と出力される
aho,"boo\"foo",baka
aho,boo\"foo,baka
結果はこうなる
A B C
aho boo\foo" baka
aho boo\"foo＝@baka
こんな内容のaho2.csvをExcelにｲﾝﾎﾟｰﾄする
aho2.csv
aho,"boo""foo",baka
aho,"boo""foo",baka
結果はこうなる
A B C
aho boo"foo baka
aho boo"foo baka
当然
はっきりいってな
低学歴知恵遅れのﾏｲﾙｰﾙなんかどうでもいいわけ
低学歴知恵遅れが出力するﾌｧｲﾙはそもそもcsvじゃない
エクセルの動作の話をしておられるわけですね
それについては異論はないっす
一般的なCSVの仕様として"を\でエスケープすることも
あるよねってことです
RFCは後付ですし
7. If double-quotes are used to enclose fields, then a double-quote
appearing inside a field must be escaped by preceding it with
another double quote. For example:
"aaa","b""bb","ccc"
RFCにもちゃんと書いてあるからな
excelでは読み込めない
ｺﾚはもう業界ではﾍﾟｹなﾜｹ
もうﾃﾞﾌｧｸﾄｽﾀﾝﾀﾞｰﾄﾞなﾜｹ
それが分からないから
低学歴知恵遅れなﾜｹ
RFCができる前からCSVは存在してるよ
RFCとは違う仕様も存在するんよ
デファクトスタンダードはそれはそうだと思いますよ
規格として標準なわけではなく事実上の標準だから
"を\でエスケープするものがあってもおかしくないっすね
いくら世界がそうあるべきだと言ったって
現におかしなフォーマットのｃｓｖが目の前にあったらどうにかしないといけない
半角君はどうするんだろう
どうしてもｴｸｾﾙにｲﾝﾎﾟｰﾄしてほしいという依頼がきたら
ｻｸﾗｴﾃﾞｨﾀつかって正規表現使って最初のｶﾝﾏの部分をﾀﾌﾞに置換してｺﾋﾟﾍﾟする
ﾌｧｲﾙがｸｿでかいばあい、sedで正規表現使って最初のｶﾝﾏの部分をﾀﾌﾞに置換する
ということになるからな
個人情報の問題で、ﾃﾞｰﾀを格納できる計算機が制限される、ｱﾀﾘﾏｴだが
実際に出てきたcsvでやるしか無いんだから出来ない言い訳並べてもしょうがないでしょ
それはcsvじゃないといってるﾜｹ
低学歴知恵遅れの世界で呼称されてるcsvは
低学歴知恵遅れの世界のcsv（）といってるﾜｹ
わかった？
低学歴知恵遅れのﾏｲﾙｰﾙを押し付けようとするから困るﾜｹ
＞VBAでプログラミングを学びたい
VBA「の」じゃなくてVBA「で」？
学びたいのはプログラミング自体？
それならVBAはGUIがついてて便利なので入門用言語には良いが
最終的にはVBA以外のプログラミング言語も習得した方が良い
というのはあくまでVBAのベースはBASICなので
VBAプロパーだとプログラミングの筋が悪くなる
＞おすすめの参考書やサイト
まずは大きな書店に行って
PC関係の売り場で中身をパラパラめくって
分かりやすそうな入門書を一冊買って読もう
もちろん「VBA」で検索して出てきたサイトを見れば
金は掛からないが説明が微妙なところもあり不安が残る
delimiter : フィールド区切り。カンマ・タブが多い
quotechar : フィールドを囲む文字。" が多い
escapechar : フィールド内に、quotechar を含む場合に、その前に付けるエスケープ文字。
\ か、" が多い。
a\"b → "a\"b"
a""b → "a""b"
filesystemobjectとか使うの？
別にマイルール押しつけてるつもりはないよ。俺はプログラミング歴本当浅いし。
間違ってれば指摘して訂正すればいいだけの話じゃない？
それはさておき、なんだかんだで、答えてくれてるので、回答どうもｗ
Private Sub Workbook_BeforeSave()
のサブプロシージャで適当に。バックアップ世代管理をどこまでやるかで変わるが簡単にやるならSaveCopyAsでいい。
そのもののイベントがあるのね
ありがとう
ありがとうごじゃります
おっしゃるとおりで！
古本屋には無かったのでネットでサンプルでも見ながら探します！
Excelで開いて崩れるならそれは無理すじというもの。
見えるデリミタが既に嫌なので、見えない文字をデリミタに使ってCSVもどきとかにしてたこととかあったな。
3270が吐き出したCSV(といっても結局プログラムが吐き出してるわけだけど)とか、固定長CSVとか。
カンマ区切り以外は何でもアリと考えるべき。
どうせ、どんな仕様でも対応できるだろ。
大した話じゃない。
基本的な話だがCSV開く時はOpenTextって話がまだ無いようだが、それでダメなら自前でどうとてもするだろ。
開く前にファイルコピーでも何でも良いじゃん。
VBAからpowershell呼び出すのって↑こんなまわりくどいの？
powerhellの実行結果を一旦テキストファイルとかに出してそれをまたVBAで読み込むとか？
めんどくさ…('A`)
でも世の中には実在するんだろうな
こんなことやるならPS側で処理した方が絶対良いよな
PSから直接Excel触れるんだから
Ruby で、VSCode の拡張機能の、Excel Viewer で十分
働いたこともないニートだったか
>>156
オレもPS側から処理する方が基本的に筋が良いと思う
PSの方が汎用的で記述性が高いから
VBAの使い道を必死で探してるが見つからない
VSさえ自由に使えるなら安全で良い
言語として使いやすいから、とか
その皮肉はちょっとよくわからない
君の作ったのがExcelの完全上位互換でもない限り、上司からセルの色が変えられないとか関数が使えないとか言われるのがオチ。
ニートの意味プログラムの世界では成立するかもね。
そういうエクセルを使うことが目的になってる残念上司にはエクセルをエクスポートして渡しておけばいいよ
こっちはあくまで生産性上げるためにやってるわけだからね
もちろん色を変えることにビジネス上の合理性があるなら実装するがね
色を変えて遊びたいだけじゃ話にならん
それだったらExcel使う必要無いわけだ。
上司や社長にそう言ってみれば良いんじゃね。
色だけの問題じゃねえっての。
完全上位互換で気付かないかねえ。
だから二―トと言われるんだぞ。
馬鹿が頭良く見せる時によくやるけどその内相手にされなくなるよ
？
「なんでも出来る方が良いに決まってる」
でも、実際には逆なんだな
例えば標準エクセルの完全上位互換なら、すべてのセルの色を変えれることになるが
そうすると色を変えてほしくないセルまで変えてしまう人が現れる
色だけじゃなく、ありとあらゆる機能について似たようなことが言える
先人たちは失敗に学び、なんでも出来るツールよりも、僅かな仕事を上手くやるツールを組み合わせたほうが良い、という答えにたどり着いた
事務員のみんなは、学ぶべき先人が居ない環境でプログラミングを覚えてきた
だから、こういう基本的なことが身につかないままの人が多いんだ
あれあれ?
「関数が使えない」を無視した上に、「完全上位互換でもない限り」の文意を読み取ろうともせずに「具体的なことを言わず」と相手を批判ですか?
何でも全て自分は悪くないですか。
そうですか。
それじゃ既に誰もExcel使ってないっての。
ところが現実は違う。
それだけリテラシーの低い人が多いということ
多数派が賢いというのも典型的な勘違いの一つだね
コピペのやり方とどこに貼り付けるか次第かなー
値貼り付けならまぁなんとか
コピーしてそのまま貼り付けは鬱陶しいな
要望に限りはないな…
コピー元のセルとコピー先のセルをそれぞれRange型変数に格納して、あとはコピー元の任意のプロパティの定数値をコピー先のプロパティの値としてそのまま代入するだけ
罫線だけ貼り付けあるで
???
多数派が賢いとは言ってない。
そもそもの話から理解出来ないなら引っ込んでろよ。
会社は君一人だけで成り立っているわけじゃない。
そりゃ事務作業がほぼ0になるんだからイキってもいいよ
https://qiita.com/nodakoubou/items/1c92d33855cfd09ccc57
vbaの場合、入門書にロクなのが無いってのが大きいと思う。
モダンな文法や機能の導入
Excel.Applicationのインターフェース改善
洗練されたIDEの導入
これらを怠った結果でしょう
特にIDEの影響が大きいと見たね
インテリセンス、サジェスチョン、ワーニング、リファクタリングツールが充実してると大分変わる
素人マクロじゃなくて業務開発ならば
それでもスレに来るのは何なの
とにかくVBAをけなして自分のチンケなプライドを満足させたい、その一点のみ w
あるセルとその下のセルに数値データが入っている
この2つのセルの中身を他のセルを使わずに入れ替えてください
いや○○でもこうすれば××できるんやでという回答を引き出すメソッドや
Dim Rng_Target As Range
Dim Val_Target As Long
Set Rng_Target = 目的のセルを取得するexpression
Val_Target = Rng_Target.Value
Rng_Target.Value = Rng_Target.Offset(1, 0).Value
Rng_Target.Offset(1, 0).Value = Val_Target
RangeA = RangeA Xor RangeB
RangeB = RangeA Xor RangeB
RangeA = RangeA Xor RangeB
End If
確認だけど日本語は読めるよね？
VBAの使い道を探してるって書いてあるけど見えなかったのかな
いや、必要もないのに探す意味がわからないし
暇なの？
ん？
高い金出して買ったExcelを使いこなさなきゃもったいないだろ
プライベートで有効に活用できないかってことね
趣味にもよるしなあ
vbaはつかわない
なんやかんや言いつつ文句の対象がVBAだけなの草
VBAは所詮「実行できる操作手順」だから、慣れてしまえば頭が弱くても分かりやすい
数式の方が論理的な思考が必要で突き詰めれば難しい
変なこというヤツだな
途中で確認するからな
複雑な数式を一行やろうとなんか考えない
なぜか20年間全く変わらないままだな、もうアホかと
Visual Studioで言うところの「すべての参照の検索」ぐらいできないと不便でしょうがない
君の愛する Visual Studio にも昔はExcel VBAと同様にCOMオートメーションによるマクロ機能とその専用開発環境が付属してたけど、いつの間にか消えただろ？
完全に時代遅れの死んだ技術なんだよ
Excel VBAを削除したら大量の自称プロが露頭に迷って電車のダイヤに多大な影響が出るから踏み切れない、
でも車内のポリシー的にレガシー技術への新規投資はできない、というわけで放置するしかないわけ
圧倒的に多いのは一般のオフィスワーカー
なくなったらむしろプロの側はビジネスチャンスじゃん
タブ区切りtxtファイルを複数読み取り，指定の場所に貼り付けるVBAをMacOS上で制作したいのですが，ファイルパスの仕様？などの関係でうまくいきません
．
どなたかMacOSでのVBAに詳しい方はいらっしゃいませんか？
まずコードを貼れよ。話はそれからだ
恥ずかしながら，コードはまだ完成していないのです．
そもそも他ファイルの読み込みすらままならないので・・・
練習として，同じフォルダ内にあるEXCELファイル(Sample.xlsx)を開くだけのコードを描いてみたのですが，それすらうまく回りません．
同様のコードでwindowsでは問題なく回ったのですが・・・
Sub Sample()
Workbook.Open Filename:=ThisWorkbook.Path & "./Sample.xslx"
End Sub
この問題の解決法から教えていただけるとうれしいです．
初心者で右も左も分からず，基本的な質問になってしまい申し訳ありません
ドットが不要。マックは知らんけどWindowsは本来パスはバックスラッシュ、拡張子はxlsxな
/boot/hoge/fuga.xlsm
だとして同じ階層の
/boot/hoge/Sample.xlsx
を開きたいなら
相対指定では../Sample.xlsx
.ではだめ。
https://qiita.com/nukie_53/items/4e9226ac8f747e772afd
なるほどこの発想はなかった
むしろプロは喜ぶね
Vbaそのものが目的化してるアマチュアのほうがきついんちゃう？
さすがにそろそろVBEは標準では付属しなくなって、
MSのサイトの分かりにくい場所から別途ダウンロードが必要になるくらいの弾圧施策は打ってくるんじゃないかな
営業が喜ぶかもしれないってだけだな
2019にPythonが実装されるという噂だが…
結局COMやらないと駄目、ってなったら旨味がほぼゼロ。
Excelが.NETに完全対応するんならVBAとか今すぐ無くなっていい。
ん？
Excelに搭載するならVBA並みに使えるようにするだろ
COMで使うなら今でも使えるし
わざわざローカルのOSベッタリの技術にリソースは割きたくないでしょ
というかVBAの前にIEが消えると思う
そんな噂はねーよ
とっくの昔に否定されてる
負け惜しみ言ってるんじゃねーよ、死ねよ
それに合わせるだけだ。
逆に待ち望んでた奴らはまたコレジャ・・・がダメとか言い出すんだろう。
結局今と変わらない。
自分の能力の低さを言語のせいにするような奴らなんだから。
作業自動化とか見て心がわくわくするけど、うちの会社誰もVBA使えなくていまいちどんな感じなのか想像できない
自分でやってるExcelの仕事を、この部分を自動で出来たらどうなるかって考えてみたらよろしいやん。
出来るところ出来ないところ色々あるだろうけどさ。
今からやるならdotnetやpythonがいいよ
どの言語でもエクセルを処理できる
業務はエクセルだけじゃない
だからどうせなら簡単で色々できてパワフルな別の言語を使ったほうがいいというわけ
やっぱりPython信者は一味違うな
VBAが一番都合が良いんだね。
なのでエクセル依存のVBAはビジネスではイマイチなんだね
凄く良くなるかは分からん
業務の種類と自分が出来る自動化のスキルによる
うちはシステム化ダメダメだったから日報を2時間掛けて作ってたらしいそれを2分で出来るようにした
土日も作ってるらしいからそこそこになった
>>252
まさにそんな感じで日報も作ってるわ。部署ごとにわけて～で2時間は余裕でかかってる
これがもし2分で終わったりしたら夢あるなぁ
で、そのファイルは他の人が開いたらどうなるんや
何に使うの？
ユーザー定義関数を定義する事が目的化してない？
標準関数で書くと低速になるような式のとき、VBAに移す事で大幅に高速化できる。
必要になった時にその場で作るものだから、c#の場合VS起動してコンパイルしてとか論外。
その後、計算書完成したから後よろしくって上司に渡すとかよくある
それに経過の計算を残すことが重要な書類じゃないのか？
無意味に速度なんて気にして誰も解読できないオナニー関数とか使うなよハゲ
定義した関数をデリゲートとして渡してコレクションをソートしたり
メタデータを取得してデコレーターを生成したり
再利用可能なモジュールとしてシステムに登録したり
とかできないの？
使い捨てのシートに表示するのを高速化するだけのために重いエクセルとVBEを開いてVBAで我慢強くコーディングして動作確認とか辛いんですけど
VBAが適している場面もあるって話や
あと数秒で計算終わるなら必要ない。物によっては諸元入力のたびに再計算に1分かかる場合とかあるんよ。
エクセルエアプには分からなくても仕方がないが。
エクセルプロ()さんは凄いですね
非同期処理のサポートが残念だから
入力するたび重い計算を同期で待ちってユーザーが激怒する典型的なパターンだよ
お前、VBAに何やらせようと思ってるの？
VBAはあくまでOfficeアプリケーション上で使える便利機能でしかないんだよ？
お前が言ってることはデカいシステム作ることに対応した言語持ってきて
アレが出来ないコレが出来ないと騒いでいるに過ぎない。
そもそもそういうことをやるならそれなりのフレームワークを使ってEXCEL吐き出させろ。
標準の関数ってスピードすごい早いプログラムじゃないの？
自作のほうが上回るとかあるんか
VB6標準の組み込み関数じゃなくてエクセル組み込みの標準的なワークシート関数のことを言ってるんじゃないかと理解してたんだけど違うのか？
デカイシステム？
日常的な規模のツールもC#やパワーシェルのほうがいいよ
小規模ならまあほとんどパワーシェルだな
エクセルはスケールデカイときは論外だけど
便利で基本的なクラスや言語機能がないからスケールの小さいちょっとした物にも実はそんなに向いてないんだな
外部コマンドの出力結果をパースして並び替えてフィルターしてエクセルに出力してファイルをwebサーバーにHTTPポスト
これぐらいの簡単な作業ですら着手に躊躇してしてしまう
いやワークシート関数で合ってると思うけどあれを超えられるユーザー定義関数を作る自信はないわ
たとえばSplit関数がワークシートに無いのでパスをバラすときとか糞めんどい。
A1：C:\hoge\fugafuga\piyo
C:・・・・・=MID(A1,1,SEARCH("\",A1,1))
hoge・・・=MID(A1,SEARCH("\",A1,1)+1,SEARCH("\",A1,SEARCH("\",A1,1)+1)-SEARCH("\",A1,1)-1)
fugafuga・・・=MID(A1,SEARCH("\",A1,SEARCH("\",A1,1)+1)+1,
SEARCH("\",A1,SEARCH("\",A1,SEARCH("\",A1,1)+1)+1)-SEARCH("\",A1,SEARCH("\",A1,1)+1)-1)
しかしこれを定義するだけでシンプルになる。
Function SPLIT2(v, deli, idx)
SPLIT2 = Split(v, deli)(idx - 1)
End Function
C:・・・・・=SPLIT2(A1,"\",1)
hoge・・・=SPLIT2(A1,"\",2)
fugafuga・・・=SPLIT2(A1,"\",3)
だから文字列変換が出てきたら大抵VBAで関数組むかな
書いてから思ったけど、パス分解するだけなら区切り文字で出来るから例が悪かったわ
上の関数は文字を数式で繋いでコネコネするときによく使う
vbaで処理完結したほうが良いと思うけど
それも場合によるかと
帳票、単票みたいなのをササっと作るときは、セル毎に式を組まないといけないから適してる。
あと行・列挿入が多い表に埋め込むときとか。
たぶんPowerShellerが想像してる表から表に変換するような場合にはあまり適してないね。
あと元の値が頻繁に変化するものは、そのたびにマクロ走らせないといけないから更新漏れが起こるのが困る。
大量にあったりすると重いしメンテしづらかったりするし
データ処理するだけならPowerShell使えって奴も多いんじゃね
汎用的な関数をワークシート内で使ったほうが見通しがいい
他にもMAP、FILTER、REDUCEみたいなのも自作して使ってるわ
帳票にデータを埋め込みたいなら式じゃなくシンプルにセル参照を使うといいよ
参照先はプレーンなデータ専用シートね
こうしとけばセキュリティ監査的に面倒なマクロ付きにしなくていい、
データ供給元の言語に依存しなくなる、
データ供給元のコードがシンプルになる、
データモデルがわかりやすくなる、などなどメリットが多い
MAPやREDUCEに渡す無名関数はどうやってる？
関数の入力と出力だけ書いておけばVBA読めない人でもすぐに理解できる。
ワークシート関数使うのは使い捨ての帳票が大半だろうし>>280は全然違うものを想像してそう。
やらせてるのは女の子がやる様な簡単な仕事なんだからこんなどーでも良い大して役に立たないVBAなんかに時間を使わずに他の人を手伝うとかちゃんと勤務中は仕事してね
分かったね？
特にエクセルの柔軟すぎる型変換は予想しない結果になってしまう
>>283
君はまずハローワークに行こうな
老害かな
使い捨て帳票ならそれこそ手入力で十分
デザインするついでにデータも入れればいい
プログラムするものは何度も繰り返し出力するもの、何人もの社員が出力するものだ
そういうのは先ほどレスした理由でセル参照を使ったほうがいい
パワーシェルって.Net Freamworkの寄生虫みたいなもので
単体だとただのシェルと変わらないって本当です？
最近はだいたいbashで済ませてるけど
ソルバー 機能をvbaで使ってるんだけど、目的や制約をセルを対象じゃなく、vba内の変数に対して適用したいんだけど不可能？
クッソダサいしなんちゃってmapだけど文字列で渡してる
=MAP(A1:A10,”$$*EXP($$)”)
みたいな感じで
その計算範囲のセルの値を書き換えた場合に合計値が更新されないことがあるのですがなぜでしょうか？
そのあと値を書き換えたセルでF2を押して入力状態にし、そのままエンターを押すとようやく合計値が更新されます。
自動再計算が手動になっているのでは？
是非使いたいから公開してよ
似たようなことやってる。
ユーザー定義関数じゃないけど昔のAPIビューアをドッカブルにした奴をVB.netで作って使ってる。
ただ、ワークシート関数は重くなる場合もあるし自分は敬遠する傾向だな。
でも一長一短でワークシート関数の方が良い場合も当然ある。
バカ丸出しだなあ。
あのね、それで使う側にとって何が良くなるの?
そこを語るべきだろ。
それが納得できるような話が今まで殆ど語られたことがない。
何度言っても分からない人だねえ。
エクセルのファイル作るだけなら何使っても良い。
別にVBAが有利なことも無い。
逆にファイル開いた状態から動かす時は1ファイルで済むVBAが有利だろう。
だからVBAの話題になってるこのスレなんかもメインはそういうVBA有利な場面の話なんだよ。
実際、VBA不利な場面なんていくらでも知ってるけど、不思議とアンチの言葉とは丸っきり被らない。
アンチの言葉は全く説得力がない。
被れば、こっちも「確かに」となる筈なんだけどね。
VBA以外の言語でもCOMオブジェクトとしてアクティブなブックを操作できるわけだし、想定ユーザーのスキルレベルや運用条件や処理の内容によってVBAを使うべきか使わなくても良いかの判断なんて変わってくるでしょ
VBAを普段使いしているひとはどういう用途・目的でエクセルを開いた状態でマクロを使っているのでしょうか？
そんなクソ言語を覚える意味ないもんな
だから、それはそもそも何の言語でも良い話だろ。
VBAのスレなんだからVBA有利な話になるのが当たり前なんだよ。
だから1ファイルの話になるのが当然なの。
何で当たり前のことも出来ない話をしなきゃならんのかって話。
それはそもそもVBAである必要の無い話だろうに。
何でこのスレに来てるんだということになる。
こっちは殆どブック開いた状態が基本だよ。
だから最初から噛み合わない。
CSVなら分かるけどExcelのブックは開いて人の判断なりを使って何かするのが基本。
じゃなかったらそもそも人間が理解出来る表である必要もなく、単なるバイナリのデータで良いわけだ。
キミのエクセルに対する姿勢はそうだってだけで
他の人は閉じた状態でもエクセルを扱う、
複数のファイルを扱う、エクセル以外との連携もする
その前提は崩しちゃいかんと思うのよ
上にあるプログラマー板のどっかそういうスレで話し相手探せっつーの
それすら判らんようになってんのかいな。
ここで思いっきりマウンティングしたいというか、ここでないとマウンティング出来ないのは判るけどさー
違うっちゅうの。
閉じた状態でブック触るならそもそも何の言語でも良いし、というよりむしろVBAは不利なんじゃないの?
じゃあ、何でVBAのスレが有るかと言えばそれは開いた状態で何かする話をしたいからだろ。
そりゃ、VBAだってある程度は汎用的に使えるから閉じた状態からVBAでどうにかする話題が有っても良いけどメインじゃないでしょ。
そもそもvbaがいらない場面でvba使おうとして、あげくの果てにvbaが有利やないとか
訳わからん事言いだすプロさんがおると質問が収束せんねんw
端的に言って迷惑やねんプロさんw
>>312おまえの事やでw
ｺﾞﾐっぷりも似てる
ｺﾚは間違いない
しかしｴｸｾﾙのｵﾏｹ機能のvbaはｳﾝｺ
ｺﾚは間違いない
すいませんあなたが何を言いたいのかよくわかりません
ブックを開いた状態から起動するマクロで有用な具体例はなにかありませんか？
抽象的な答えでごまかそうとしてませんか？
いい加減に板を荒らすのは止めな
とあるコードで
If 条件1 Then
MsgBox "メッセージ1"
End
ElseIf 条件2 Then
MsgBox "メッセージ2"
End
Else
End If
という記述を見たんですけど、Ifの中でEnd使うことってあるんですか？
やってる内容は
If 条件1 Then
MsgBox "メッセージ1"
End If
If 条件2 Then
MsgBox "メッセージ2"
End If
と同じなのかなと思ったんですけど、ご存知の方御教示頂ければ幸いです。
Endのことはさておき、そのふたつのコードの意味は異なるよ
本来意味が異なるのは分かるんですが、処理内容がそんな感じだったのでEndにはそういった意味があるのかな？と思って質問した次第です。
全く意味が違う。END使ったらプログラムが強制終了されてしまう。絶対に使うべきではない。
Sub main1()
Call sub1(True, True)
MsgBox "main終了"
End Sub
Sub sub1(条件1 As Boolean, 条件2 As Boolean)
If 条件1 Then
MsgBox "メッセージ1"
End
ElseIf 条件2 Then
MsgBox "メッセージ2"
End
Else
End If
End Sub
'結果：メッセージ1しか出ない
Sub main2()
Call sub2(True, True)
MsgBox "main2終了"
End Sub
Sub sub2(条件1 As Boolean, 条件2 As Boolean)
If 条件1 Then
MsgBox "メッセージ1"
End If
If 条件2 Then
MsgBox "メッセージ2"
End If
End Sub
'結果：メッセージ1、メッセージ2、main終了
Ifの中でEndを使うことがあるのかと訊かれれば、文法上は問題ないが俺だったら使わん。
もっとも、「早く返す」や「早く終了する」を追い求めたその人なりの結果かもしれんので、見かけたとしても内容次第で、問題のあるコードでなければとやかくは言わない。
Endステートメントを使うと、単にコードの実行が止まるだけでなくアプリケーションで保持していた全ての変数の値がリセットされ、アプリケーションに対する外部プロセスからの参照も遮断される
モードレス表示でフォームを表示している場合、値管理やカスタム常駐クラス使用のためにグローバル変数を使っている場合等には問題が生じるので本当に要注意
>>321のコードは微妙にそう言うコード片な感じもするし
多分エラーメッセージの後、後続処理をやりたくないのでendって書いたんだろう
exit subで抜けても呼び元に帰って続行するから
ちゃんと読んでみたら終了するコードでした…お恥ずかしい…
今後質問する際は頭をリフレッシュさせて読み直してからに致します。
ご迷惑をお掛けしました。ありがとうございました！
ところで
If 条件1 Then
・・・
ElseIf 条件2 Then
・・・
End If
と
If 条件1 Then
・・・
End If
If 条件2 Then
・・・
End If
では意味が違ってくるのはわかってますか？
いや、>>323のレスを見ると不安になるだろ
ほんと何処に目をつけていたのか自分でも分からなくてお恥ずかしい限りですがElseの意味は分かっています。申し訳ないです…
訊かれてるのは ElseIf の意味だぞ
いつもながら薄気味悪い
誰に語りかけてるんだよ？
そもそもの考え方が違うから思い付かないんだろう。
例えば日付毎の生産量を表す表とグラフが有ったとする。
表示する期間を指定することでグラフ表示が変化するプログラムが有ったとしよう。
何でそんな機能が必要かといえば、表とグラフをにらめっこして、1週間後のグラフはどうだろうという要望や判断が有るからだ。
こんな例すら思い付かないんだから知識や技術が有ってもダメプログラマーなんだろうな。
webってそういうもんだよ
知らないの？何十年前の人間なの？
qiita VBAタグの劣化は許しがたい
そうは思わないか？
どの言語でも簡単にできる上にそういうツールって今はいくらでもあるんでVBAでやる理由としてはちょっち弱いですね
これはエクセル開いた状態のVBAじゃないと絶対無理だっていう事例を知りたいです
頭大丈夫か？
バーカ。
何でブックで保存するんだ?
そのファイルは結局どうするんだ?
Excelで開くんだよ。
何の為にそんなことするんだ?
業務では開いた上で人間が何らかの判断をする為だ。
そうじゃ無かったらExcelは必要ないし、人間が開く必要も無いし、ファイルもバイナリで良い筈なんだ。
開いた上で動作するものばかりである必要は無いが開いた上で作業するのが基本なんだからプログラムも開いた上で動作するのがメインなのは当たり前だろう。
意味不明ですね
エクセルを開いたままVBAを使うことのメリットを納得させる決定的な具体例はまだですか？
お前の主張はExcelである必要も無い場合も含んでる。
というかその割合も多いだろう。
だからお前がここに来てるのもまったくおかしい。
絶対に無理とか
紙とエンピツでOKという話になる。
開いて作業するのが基本。
わざわざ開かずに作業する方がおかしい。
エクセルを開いたままVBAを使うメリットを納得させる決定的な事例を聞いてるのですが
そのような事例は存在しないのですか？
意味不明なのはお前。
開いて作業できること自体メリットだよ。
既に説明済みだが。
そのメリットを納得させる決定的な事例を聞いてるのですが
そのような事例は存在しないのですか？
じゃあ、お前はどうしても絶対にVBAではいけない事例をあげられるのか?
そもそもVBAを否定する奴の主張の方が絶対どころかほとんど大した理由になってないものばかりじゃねーか。
既に説明済み。
結局、お前の主張を要約すると「VBAは嫌い」というだけだ。
思わない
エクセル以外の処理をvbaで色々やるのが間違ってるんだよ
C#にでもまとめて、コマンドプロンプトで処理すればいい
もう文字コードだのお節介機能で自動変換だの疲れた
ってか、”1-1-1”を普通に取り込めないとかもうウンコofウンコすぎてしんどい
いけないということはないですが楽で効果的な手法があるなら常識的に考えてそちらを使うのが自然ですよね
あえて非効率な方法を選ぶならそれなりの理由が有るはずです
その理由とそれを納得させるような事例を知りたいのです
ただ単にその事例に興味があります
自然w
頭の悪さが滲み出てるわw
よくそんなこっぱずかしいことが言えるな。
Excelのブックは開いた状態で作業するのが「自然」なんだからお前の主張に則ればVBAが一番有利という結論だな。
エクセルを開いたままVBAを使うことが他の言語やツールと比べてメリットがあると納得させる事例は存在しないのですか？
使うのに必要なスキルが極めて少ない
いったい、どういう頭の構造になってるんだろう。
そういう前提に立つ人間は少ないのかな？
ジョークとか皮肉で言ってる？
ちょっとよくわからないんだけど
まあ人それぞれということだ
なぜ皮肉だと？
「とても良い」とまでは言わないが、そこそこ良い言語仕様じゃないか。
そう思う人間も多いだろう。
言語仕様は基本VB6なので当時としてはよくできてた
でもさすがに20年も経つと色々見劣りするところが出てくるわけで
気にしてもハゲるだけなんじゃねーの
>>364
閉じた業務系でVBAと肉入り以外の選択肢を潰されてやむを得ずVBA触った俺みたいな変人もいるし、
まぁその手の固定観念でもあるか、あるいは構ってちゃんなだけじゃねーの
それはもちろんそうだが、それによって致命的に使いにくくなっているわけじゃないしな。
なんか上の方の議論が「使いにくい言語をあえて使う理由は何なの？」みたいなノリで、
言語として使いにくいことが前提みたいになってる点が気になった。
「VBAは十分使いやすい言語だ」という前提を下ろすつもりのない人間もいるわけで。
まともなプログラミングの基礎のない低スキルな人間が、新しいことを一切学ばずとも20年間仕事できてるわけで、これはすごいことだよ
当時からガチ勢と比べれば見劣りすることだらけだったわw何知ったかしとんねんプロさんwwww
使い易さなんて他の言語との相対的なもの
他の言語の便利機能知ってしまったらあの機能もないのか…とかこの機能があれば…ってなるのはしょうがない
>>374
はいはい w
うむ、バカはしゃべらん方がよろしいw
しかしちょっと込み入った処理をしようとすると近代的な言語で書きたくなることは確かにある。
そこで質問です。
エクセル上でボタンを押す
→VBAでイベントを受ける
→外部プログラムにSelectionを渡す
→Selection（Range）を元に処理を実行
→処理結果を二次元配列データでVBAで受け取る
→VBAでデータを加工する。
→ワークシートにデータを書き出す。
尚、本エクセルは共有フォルダ上において複数名が交代で使用する。
こういったことがしたい場合何で書いたらいい？C#？PowerShell？
既存のVBAも活かしたいので、全部C#とかに一新しろっていう回答は無しでお願い。
VBA資産とかいうゴミは捨ててC#で一新しよう
csvか何かに吐き出せばどんな言語でも処理できるっしょ
ってかその程度ならvbaで頑張るわ
＞ →Selection（Range）を元に処理を実行
＞ →処理結果を二次元配列データでVBAで受け取る
この2点からしてVBAで完結する案件
最初からRange→配列にして処理すればいいからね
シンプルに書きすぎた。
たとえばSelectionの中身がファイルのパスで、そのファイルが複雑なデータ形式（たとえばAutoCAD dwg）を外部プログラムで解読したいとする。
（VBAのクラス関連の機能がショボすぎて無理だったので、前にC#で書いたものがある）
これをVBAから呼び出して使いたいってこと。
諸事情によりエクセルブックと同じフォルダにps1なりdllを置く必要があって、これを呼び出せると助かる。
じゃあSelectionとか関係なくファイルパスを引数にするDLLを書いてVBAから呼び出せばいいじゃん。
VBA側では
ByVal path As String
で
まあCだと諸般の事情から文字列を渡す場合でも
ByVal path As Stringじゃなくて
ByRef path As Varian ってインタフェースがいいわけですが
C#だと知らん
VBA->C#(COM)->PowerShell->(PS, C#, CMD, VBS, etc.)
同じフォルダのDLLを呼ぶように出来るの？
COM使うとしたらregasmが必要になるらしいけど・・・
ネットワーク共有フォルダ上のは設定出来ないのでは？
あ、遅延バインディングで出来るんだろうか
自作DLLをVBAから呼ぶっていう単純な話だよね？
別にどんなフォルダにあろうと関係ないけど。
あとSelectionそのものじゃなくて配列化したデータを渡すんだったらCOMなんていらなくて
WIN32APIだけでできる。
そうだね。.NET系のDLLの関数を使いたい系。
COM登録せずに呼び出す方法あるのか。
参考URLとかもらえないだろうか。
>>388
メタ情報じゃないかなー図形情報の位置関係から特定の情報だけリストアップしてる。
まぁ例だからこれに限った話じゃないのだけど、VBAで書き直すのは無理ゲーすぎる。
確かにそれだと自作DLLぐらいしか解決策なさそうだな。
んで、C#で書いた.NET系のDLLの関数をRegAsm使わないで呼び出したいと・・・悪いけど正直やったことない。
が、DLLをEXCEL.EXEと同じ所に置けるなら↓の方法が使えるかもしれない。
http://www.ka-net.org/blog/?p=6198
全然見当違いだったら申し訳ないが。
オプションボタン2にチェックがあるとき、リストボックス2表示、リストボックス1,3は非表示
という具合に、オプションボタンにチェックがあるときに対応するリストボックスを表示、それ以外を非表示にしたいです
Private Sub UserForm_Activate()
If OptionButton1.Value = True Then
ListBox1.Visible = True
ListBox2.Visible = False
ListBox3.Visible = False
ElseIf OptionButton2.Value = True Then
ListBox1.Visible = False
ListBox2.Visible = True
ListBox3.Visible = False
ElseIf OptionButton3.Value = True Then
省略
end if
と書いてみたのですが、リストボックスの表示、非表示をコントロールできません
どうすればいいでしょうか
プロフェッショナルなら可能
オプションボタンのクリックイベントに書かないと動かなくて当然
まず、そのDLLはCOMなのか、通常の呼び出し用なのか、.NET用なのか
COMなら参照設定なりCreateObjectなりで
通常のDLLならDeclare Function(SUB)で呼び出せば良いだけ
.NETのDLLは.NET以外から呼び出すのは難しいので、素直にCOM公開する方が楽
まあその相手方(たとえばAutoCAD?)がCOM公開してくれるのが一番楽だろうけど
あーそうでした！お恥ずかしい
ありがとうございました
現在、VBAからoracle12cにado接続してデータアップデートを行う処理を作成しています。
ですが、更新はうまく行くのですが、なぜか処理件数がどうしても0になってしまいます。
何時間も色んなサイトを参考にしたり、したのですが、ダメで…
色々なサイトにあるソースをコピペして接続先やテーブル名のみ変えて貼ったりもしてみましたが、実行するとやはり更新はされるのに処理件数が取得できません。
もう自分ではどうすることも出来ず、どなたか助けて下さい…お願いいたします。
どうやって取ろうとしている？
当然、これを見てlong型の第2引数を指定した…ってのは勿論やったんだよね？
https://msdn.microsoft.com/ja-jp/library/cc364125.aspx
サンプルコードがありましたらご教示願います。
プロパイダ（ドライバ）によってはレコード件数返さん奴があったはず
一回プロパイダ変えて試してみ
最悪は更新と同じ条件のselect投げて件数取得してから更新かけれ
コマンドオブジェクトから、以下のようにしてやっていました。
com.execute(re)
comはADODB.COMMANDで、updete文を設定してあり、更新自体はうまくいきます。
reはlong型の変数です。
マニュアルのとおり、コネクションでexecuteもやってみたのですが、結果は返らず…
400
Microsoft ACTIVEX data objects 6.1を使ってみているのですが、ほかのバージョンにしてもダメでした…
ADO接続を使用する上で、必要な参照が上記以外にあるのでしょうか…
皆さんすみません、ほんとうに素人丸出しで申し訳ございません…
まずやりたい事を考えるといい。
最初は既存の関数の真似するプログラムでも書いて基本的な書き方を覚えるとかオススメ。
関数使えばチェックできるし。
慣れてきたら、百ます計算を作るでもいいし、ナンプレを作るでもいい。日常的にエクセルでやってる操作があるなら自動化してみるでもいい。
そのために必要なことはググれば全部出てくる。
・普通に日英両方でググっても出てこなかったら他のモダンな言語の出番だと察する癖をつける
・bufとかSub Sample1()とかobjFsoといった特徴的な表記をサンプルコードで多用しているサイトは悪いコードの見本市なので極力真似ないように今から気を付ける
12cならOracle.ManagedDataAccessがオススメ
いきなり参考書から始めないほうがいいってネットに書いてありましたけど、本当ですか？
初心者が浣腸プレイに挑戦する時は必ず上級者に直接教えてもらうようにしまちょう。
それ、面白いと思って書いたの？
面白いと思ったの？w
いや、微塵も
笑わせるつもりがないのなら何で書いたのかなと思って
じゃなんで面白いと思ったの？って書いたの？w
滑ってるようにしか見えなかったから
結局おまえが盛大にスベっとるやんw恥をしれw
画面で一行ごとの動きを見ながら勉強した方が解説読むより理解しやすい。タイピングする時間も解説を読む時間も無駄。
まず入門書かって読めばいいんじゃね
どうしても必要で困っています
どなたか詳しい方がいらっしゃったら作成をお願いします。
SUMIFSで出来ると思うよ。
VBA使うにしてもSUMIFSを使うのが効率の良いやり方だと思う。
サンプルデータあげてくれれば作るよ
そのファイルの上から30行くれ
まぁやることは
JAN ＆ 有効期限 ＆ ロット番号の作業列作ってピボットに突っ込むだけだけどな
ありがとうございます。
ググってその関数を見つけたのですが、どう記述したら実現出来るのかが分からなくて…
サンプルデータってどこにどうやってアップロードすればいいですか？？
SQL書けばきっと簡単にできる
VBAなんか不要
http://fast-uploader.com/
「ファイルを選択」
「アップロード開始」
これが出来ないなら流石に何もしない
http://fast-uploader.com/file/7093610017708/
ありがとうございます。
426のコメントでアップロードしています。
ご確認ください(^-^)
sheet1
https://i.imgur.com/CswmAtc.png
sheet2
※ sheet2にsheet1の結果を抽出
↓この抽出結果
SELECT min(`Sheet1$`.aho) , sum(`Sheet1$`.baka) , min(`Sheet1$`.じゃま)
FROM `himistu\baka.xlsx`.`Sheet1$` `Sheet1$`
group by `Sheet1$`.aho
完成
間違ってない？
ユーロジンが一つになっている
早速の作成ありがとうございます。
私の伝え方が不十分だったかも知れませんが、430のコメントの通りです。
お時間があれば修正していただけると助かります。
よしなおした
ありがとうございます。
ちなみに、新たにデータを作成するのですが、そのデータに対して処理するにはどのようにすればよいですか？？
http://fast-uploader.com/file/7093612906901/
ピボットで表みたいにするやり方がわからんかったわ
https://i.imgur.com/PgDSjOe.png
↓[ﾃﾞｰﾀ]ﾀﾌﾞ→[すべて更新]押下
https://i.imgur.com/mSvw0XM.png
ｾﾊﾟｿﾞﾝ錠２が155個になってる
ｶﾝﾍﾟｷ
この集計、どうやって作ったか教えて下さい！
テーブル作る所までしかわかりませんでした
[ﾃﾞｰﾀ]ﾀﾌﾞ → [その他のﾃﾞｰﾀｿｰｽ] → [Microsoft Query]
↓
Excel Files
↓
このﾌｧｲﾙ
↓
Sheet1$ > → 次へ → 次へ → 次へ → 。。。ｸｴﾘの編集を行う → 完了
↓
SQL
↓
SELECT `Sheet1$`.YJコード, Sum(`Sheet1$`.前月末在庫数), Min(`Sheet1$`.前月末評価単価), Min(`Sheet1$`.薬品名), Min(`Sheet1$`.単位名), Min(`Sheet1$`.薬価), Min(`Sheet1$`.通常仕入れ先コード),
Min(`Sheet1$`.発注点), Min(`Sheet1$`.JANコード), Min(`Sheet1$`.棚番１), Min(`Sheet1$`.棚番２), Min(`Sheet1$`.枝番), Min(`Sheet1$`.包装名称), `Sheet1$`.有効期限, `Sheet1$`.ロット番号
FROM `ひみつ\サンプルデータ.xlsx`.`Sheet1$` `Sheet1$`
GROUP BY `Sheet1$`.YJコード, `Sheet1$`.有効期限, `Sheet1$`.ロット番号
↓
[ﾌｧｲﾙ] → Microsoft Office Excelにﾃﾞｰﾀを返す
ｺﾚでｲｹﾙ
一件落着
ありがとー！
凄すぎて泣けてきた。もっと早く知りたかったな
作成を依頼したものです。
まだ詳しく確認できていませんが、色々とスピーディーに対応していただきありがとうございます。
悔しいか、屑
おっ！
天才様の登場だ～～～ｗｗｗ
この板で役に立つﾚｽは
ｵﾚしかしてない
でもお前、VBAしか出来ないじゃん
Excel2010じゃ動かないんですかね
2. aho.dqyをﾀﾞｳｿ（http://fast-uploader.com/file/7093764952195/）
3. aho.dqyをﾃｷｽﾄｴﾃﾞｨﾀで開く
4. aho.dqyの【ひみつ】をサンプルデータ.xlsxがあるﾃﾞｨﾚｸﾄﾘﾌﾙﾊﾟｽに置換
5. aho.dqyをﾀﾞﾌﾞﾙｸﾘｯｸ
ｺﾚでｲｹﾙ
ﾊﾞｶでもﾁｮﾝでもｲｹﾙ
>>432はExcel2010がﾀﾞﾒなﾜｹじゃない
知能が著しく低いﾔﾂには動くようにはできない
Jet 4.0 は64bit版には対応していない
まぁ理解できるならSQLでもいいだろうけどさ。
>>440
開業医んとこか薬局んとこか分からないけど・・・まぁその、お疲れ様。
とりあえず分からないようなら他の解決策もあるのでその旨言ってね。
ついでに。
＞元の在庫管理データっぽいの
数値であった方が良い部分が文字列として入力されてる。問題なければそのままで良いけど。
それより、有効期限とロットNo.が空欄の薬剤があるけど大丈夫？ たぶんデータの取り出し方の問題か何かだと思うけど。
＞SQL
作ってくれた人には申し訳ないけど、JANコードじゃなくてYJコードで集計しちゃってるので一応注意。
まぁどっちでも大して変わらないんだけど。
（修正前）
SELECT aho.YJコード, ①
Sum(aho.前月末在庫数),
Min(aho.前月末評価単価),
Min(aho.薬品名),
Min(aho.単位名),
Min(aho.薬価),
Min(aho.通常仕入れ先コード),
Min(aho.発注点),
Min(aho.JANコード), ②
Min(aho.棚番１),
Min(aho.棚番２),
Min(aho.枝番),
Min(aho.包装名称),
aho.有効期限,
aho.ロット番号
FROM
`【ひみつ】\サンプルデータ.xlsx`.`Sheet1$` aho
GROUP BY
aho.YJコード, ③
aho.有効期限,
aho.ロット番号
（修正後）
SELECT Min(aho.YJコード), ①
Sum(aho.前月末在庫数),
Min(aho.前月末評価単価),
Min(aho.薬品名),
Min(aho.単位名),
Min(aho.薬価),
Min(aho.通常仕入れ先コード),
Min(aho.発注点),
aho.JANコード, ②
Min(aho.棚番１),
Min(aho.棚番２),
Min(aho.枝番),
Min(aho.包装名称),
aho.有効期限,
aho.ロット番号
FROM
`【ひみつ】\サンプルデータ.xlsx`.`Sheet1$` aho
GROUP BY
aho.JANコード, ③
aho.有効期限,
aho.ロット番号
この修正で、どう集計されてるか理解できるﾊｽﾞ
内容的にドラッグストアだと思う
ってか俺がドラッグストア勤務
Jetの後継でACE.OLEDBってのがある
64ビット版もある
問題は、32ビット版と64ビット版の共存ができないが
フィルタオプションを使ったVBAなのですが、上手い方法がないものか・・。
用意するシート
「総合商品情報」、「抽出条件」、「denpyou」「date」「tantou」「kata」「kazu」の7つを用意
総合商品情報のA1に「伝票No.」、B1に「日付」、C1に「担当」、D1に「型番」、E1に「数量」と記載され、
そして各項の2行目以降にデータが延々と羅列されている。
そこから特定の条件の情報を抽出したい。
条件はシート「抽出条件」にある。
シート「抽出条件」のA1～E1は各項目の名前があり、
A2～E2の条件で抽出したい。
A1＝「伝票No.」 A2=「1001」
B1＝「日付」 B2＝「2018/1/1」
C1＝「担当」 C2＝「山田」
D1＝「型番」 D2＝「A-001」
E1＝「数量」 E2＝「1」
抽出条件が伝票No.「1001」で抽出したデータはシート「denpyou」のA1に抽出
日付「2018/1/1」で抽出したデータはシート「date」のA1に抽出
担当「山田」で抽出したデータはシート「tantou」のA1に抽出
型番「A-001」で抽出したデータはシート「kata」のA1に抽出
数量「1」で抽出したデータはシート「kazu」のA1に抽出する。
ただし、抽出条件に記載があっても、総合商品情報には記載がない場合もある。
（※例えば、抽出条件「山田」が総合商品情報のC列にはないとか）
その場合はエラーを無視して、他のシートの抽出を実行して欲しい。
※分かりにくい説明かもしれませんが、よろしくお願いします。
ｵﾚなら余裕でｻｸｯとできるわあ
ｷﾐﾗ低能にｺﾚできる？
VLOOKUPでは行は1行しかとれない
少なくともｺﾚではできない
http://fast-uploader.com/file/7093874344745/
こんな漢字でしょ
テキトーに作ったけど多分もんだいはないと思う
自己紹介好きだねぇ
君はエクセル覚えたての中学生かなんかだと思うけど、もう少し頑張れ
これぐらいなら見た瞬間に完成図が思い浮かぶよ
vbaにするまでも無い
どこにVLOOKUP使ったの？
ん？ いってみ？
本気で言ってるのか？
レコードがあって、並び替えの基準列が例えば
0
4
1
0
5
となってたとします。これを
0
0
4
1
5
に並び替えたいのです。要は特定の値とそれ以外に分離させたいんです。
現状は行の下からループを回して、特定の値ではないならば行をカットして一番下に挿入するというコードなのですが遅いです。
なにかいい方法はないでしょうか
すべて配列に突っ込んで、配列上で並べかえてから書き換え
=A1=0
の列を追加してソート
うーん
VLOOKUP使えと言ってる人がいるけど
VLOOKUPは複数行に同じデータが存在したとき
最初の一つ目を取得して来るんで
キー項目が無いと厳しいんじゃね？
>>470もそうだけど、このスレ見てるとすぐVBA使いたがる人ってちょっと頭が残念なだけなのかなと思っちゃうね
回答する方はVBAでやるべきかどうかと考えないのか。
その発想は無かった……
なるほどbooleanに変換してしまえばいいんですね。ありがとうございました。
質問する方は関数で出来るのを承知でVBAの答えを求めていると考えてVBAでしか答えないというスタンスもある。別に関数や操作で出来ることを教えてあげる点については異論はない。そういう答え方をしたい人がそう伝えればいい
今のパソコンでは違う場所で使おうとしても記憶した場所でしか動かなくなったけど
（長いプログラムは無しで）
例えばなんだけど
①IEを起動して指摘のURLに飛ぶ→②管理者ユーザーでログイン→
③ユーザー情報検索のページに飛ぶ→④プルダウンでユーザーの種別を選択→
⑤ユーザー名をフォームに転記→⑥検索ボタン押す→⑦ユーザーデータが表の形式で表示され、ある行をラジオボタンがあるので選択→
⑧決定ボタン押す→⑨ページ内のリンクをクリック→⑩ページ内のリンクをクリック→
⑪表示された文字列をコピーしてエクセルに出力
なんてことできるの？
説明がわかりにくくて申し訳ない。
①から③まではできたんだが…④からができるか不安だ。
どうにか③を応用して繋げていけばできるんじゃないかと思っているのだが、これをユーザー分取得するという繰り返しをするとなると、全くイメージ出来ない。
自分でもイメージ出来ていないのに聞くのも難だが、流石に実現不可能かな？
出来る出来ないの返答を求めているようなのでそれだけ答えると「出来る」
あえてvbaとieを使う理由はないけどまあ出来るよ
>>484
ありがとうございます！
出来ると聞いて安心しました。頑張って作ってみます。
vbaとieに拘りはないですが、導入が簡単そうだったので…
申し訳ない。②は自動ログイン設定というか、IEの機能でidとpassをオートフィルしてくれる機能あるから、わざわざログイン情報を入力せずに、そのまま決定ボタンをクリックするようなコマンド？を記載したよ。
③はその文字に埋め込まれたリンクを、htmlで探して指定した。
②が苦労したな…javascript:loginとかいうので、どうやったら良いのかわからなかったけど、その頭にあるinputがページで何番目なのか数えて、4番目だったから4番目のinputをクリックしてね！って文を書いたら移動できた！
>>465に答え書いてるよ
>>480
vbaでフォームは置けない気がする
?の文字を置くなどで対処はできないか
相当しんどいと思う
chromeの拡張機能を使ってみては？
「クローム 拡張機能 マクロ」で検索すると出てくる
後はjsごと覚えた方が良さそう
仕事なら買ってもらえるだろ
robo-pat？
あるがライセンス切れてて使えない…ライセンス到着待ちなんだ。
でツールが明日必要になってしまったから、仕方なくvbaで…と。
iMacrosってやつ？試しに使ってみようと思う！
どこにも見当たらない
ｵﾂﾑだけじゃなくて目も悪いの？
Seleniumデザインパターン&ベストプラクティス、2015、オライリー
この本は、Ruby で、Selenium WebDriver を使って、ウェブサイトを自動テストする本だけど、
まさにこういう事を、Rubyでプログラミングする
どのページ(URL)へ飛んで、入力フォームに入力して認証して、
買う商品を選んで、カートに入れて、決済する
まさに、Ruby・Selenium WebDriver が定番
簡単なものなら、iMacros, Selenium IDE で出来るかも
普通におけるけど。
rubyとselenium webdriverか。こちらも試してみます！ありがとうございます。
プログラマーは、Ruby で、Selenium WebDriver、
非プログラマーは、iMacros, Selenium IDE
漏れなんて、自分のPC 内の画像フォルダの画像でさえ、
Ruby・Selenium WebDriverでプログラミングして、ブラウザで見てる
HTML のimg タグに、画像のパスを設定して、ブラウザに表示させている
たどりつかねーよｗｗｗ
エロ本は画像ビューワ使ったほうがサクサク動いて良い
頭悪すぎだろ
ちょっとおもしろかったわ
https://jizilog.com/vba-checkboxop
これをショートカットキーに割り付けるだけで行けそう
この本の著者がこう言ってる
最初は、ウェブページの自動テストを、Selenium IDE でやっていたけど、
大量の自動テストをこなすために、Ruby・Selenium WebDriver でプログラミングするようになった
これは、誰もがたどる道
既にVBAでRPAもどきを作ってある。
適当なスクレイピングでよくてHTML解析する情熱が無くなった場合に使ってる
> HTML のimg タグに、画像のパスを設定して、ブラウザに表示させている
プロさんて20年前からタイムスリップして来たんかなw
技術的負債
返済されることのない借金は負債ではない
事務員は保守性など気にせずクソでも動けばいいのでとにかく作る
プログラマを企業間のパワー差を活かして発給で雇いこき使ってメンテさせる
これがVBAerの正しいあり方だ
そうか
まぁ頑張れよ
さて、忘年会用に何かでビンゴのソフトでも作るか
INPUTのテキストファイルの中身次第で出力するセル範囲が変わるんだが、
想定される最大のセル範囲をrangeに代入するよりは、セルひとつひとつにアクセスして最小限の範囲で出力したほうが処理時間早いんじゃないか…
個人がちょっとしたマクロを書くぐらい
レスくれた方ありがとうございます。
>>465さん、作成ありがとうございます。
ダウンロードしてみたのですが、私の自宅のPCだとなぜか文字化けして画面に表示されません・・。
明日、会社のPCでやってみるべきか・・。
どなたか親切な方がいたら、画面をコピーしてくれると助かります。
マクロが禁止されるわけだ
出力に必要な行列の数だけ要素数を指定して適切なサイズの配列を使うようにすればいいじゃん
複数セル値の逐次更新は更新するセルの個数分だけプロパティ関数が実行されてイベント処理が走るので、同じセル数を更新する場合で比較すると配列による一括処理と比べて格段に重いよ
返答ありがとう。
INPUTのデータ次第で1行～9999行目まで出力されるので、現状9999行までのセルを配列に格納している。
ちょいと処理時間を計測してみたんだが
出力件数によっては、
例えば200件程度だったときの場合、セルに都度アクセスしたほうが早かったのよね。
実行する度に、INPUTのデータ量次第で配列に格納する範囲が変えられると便利なのだが、それがわからないため9999行まで格納してるって感じかな
ﾊﾞｶが作ったのはまったく使い物にならないから
ｵﾚのを使いなさい
ﾀﾞｳｿした
総合商品情報.xlsx
を
c:\tmp
に入れればとりあえず動く
保存する場所やﾌｧｲﾙ名変えたならSQLに入ってるﾊﾟｽ変更すれば
とりあえず動く
↓↓↓↓
社内のデータ加工で困っています。
VBAじゃないかもしれないのですが、
賢い方々助けてください。
やりたいことや実際のデータは下記URLにUPしています。
よろしくお願いします！
http://fast-uploader.com/file/7094034688478/
用意できる環境に書いてある「Microsoft Office 2016」は「Excel」を意味しています。
INPUTがどのような形でコードに渡されるか分からないが、例えばテキストデータを読み込んでいるなら、行数をeofになるまで数えて変数に代入して、その変数で配列要素数を指定すれば簡単だと思う
3回以上セルにアクセスするなら確実に配列に取り込んだほうが早い。
体感出来ないのはコードが完全に最適化出来てないだけ。
あと数式の埋め込まれたセルがあったりするとあり得ないくらい遅くなる。
（ある程度はスイッチで解消できるけど）
あとInputはめちゃくちゃ遅いよ。
バイナリモードで開いて一括読み込みがオススメ。
http://tetsucom.blogspot.com/2011/03/vba_9799.html
このサイトでは数倍しか差がついてないけど、元データの行数が増えるほどInputと差が開く
アップロードしたファイルに店名が含まれているんだが大丈夫か・・・
処理のイメージとしては、1行ずつ読み込んで色々判定した後、1行ずつ出力していく感じです。
頂いた助言を試してみて、
事前にeofまでのループ処理で変数をカウントアップさせて、必要な行数を配列に格納させることはできました。
バイナリモードの件と合わせて、パフォーマンスの向上を目指しますm(_ _)m
Rangeオブジェクトへのアクセス回数を減らすよう意識すると、案外パフォーマンスが上がったりする。
あとオブジェクトの特定のプロパティ・メソッドがやたら遅かったりすることもあるから注意。
気がつきませんでしたが、ダミーデータなので大丈夫です
1行ずつ出力じゃあまり恩恵無いかもしれないけどまとまって出力すれば劇的な変化がある。
Dim i As Long
Dim j As Long
Dim varRng() As Variant
Dim t As Single
t = Timer
For i = 1 To 50000
For j = 1 To 50
Cells( i, j ).Value = i + j
Next j
Next i
Debug.Print Timer - t
t = Timer
Redim varRng( 1 To 50000, 1 To 50 ) As Variant
For i = 1 To 50000
For j = 1 To 50
varRng( i, j )= i + j
Next j
Next i
Range(A1:AX50000).Value = varRng
Debug.Print Timer - t
これをやると、1月１日にExcelが日付と解釈して変換する。
これを防ぐにはどうしたらいいですか。
文字列として格納するために""で囲むという手があるがそれをやりたくない。
理由は値(1-1)に加工していじってるから。
ちなみに、1-1は番地のつもりです。
書式を明示的に文字列にしてからやってみたら？
.NumberFormatLocal = "@"
その式だと1-1で0が格納される訳だが？
セルに文字列として格納させるなら532の方法か、先頭にシングルクォーテーションを付与
>>521さんありがとうございます。
文字化けしない環境で試してみたら、画面は見えました。
ですが、肝心のコードが見当たらない・・・orz
シートに記載されてる情報を見る限り、恐らく>>521さんのが一番私が求めているものに近いかな、と思いました。
>>521さん、ダウンロードしてもコードが見えないので、
このスレにコードをコピーしてもらえないでしょうか？
これだとhiddenで隠れている行は無視されてしまいます
あくまでも最後に入力されている行を取得したい場合はどうすればいい？
もちろんhiddenを一時的に表示にする以外方法で
隠れていてもデータ行として扱う方法
http://fast-uploader.com/file/7094133678468/
[SQLの編集]ﾀﾌﾞに編集の仕方が載ってる（denpyouを例にしてるが、編集の仕方は他も同じ）
※ vbaじゃないからな、ｺｰﾄﾞはない
※ ちなみにﾃﾞｰﾀとﾃﾞｰﾀの抽出結果を出力するﾌﾞｯｸは別でも問題ない
新規に自分で作成したい場合は
>>437 ← ｺﾚ
を参考にしなさい
used range使えば？最終行取得でググれ
うっかり列範囲全体に書式設定なんかしてると最終行は1,048,576行目なんてことになるので注意
列に対しての書式設定ならそんな風にはならない。
貼り付けするとそうなる危険性はあるけど、今のエクセルは警告出るし、実行に時間かかるし、めちゃくちゃ重たくなるから、マクロ以前にブック修復すべき案件
これを繰り返して変数をA列に積み上げいくようにしたいんですが、どうすればよいでしょうか
①chromeを起動
②あるwebサイトのユーザーページにログイン
③ユーザーページ上で作業
という操作を自動化しようとしています。
①、②は良いのですが③が複雑なため、その部分のコードで試行錯誤しております。
しかしコードを修正するたびに①から行っているため時間がかかっております。
①②で起動したブラウザを利用して、③から別のsubプロシージャにして、③だけ実行して検証したいのですがどのようにすればよいのでしょうか。
下が①②のコードです。
sub 1()
Dim driver As New SeleniumWrapper.WebDriver
driver.Start "chrome", "https://aaa.com/login?";
driver.get ("/")
driver.findElementByName("UserID").SendKeys ("yamada")
driver.findElementByName("pass_word").SendKeys ("1234")
Sub Init()
①
②
End Sub
Sub Work()
driver.get(ユーザーページ)
③
End Sub
他のスクリプト言語に変えたほうが楽ですよ
ありがとうございます。
やってみたのですが、getメソッドでSystem.NullReferenceExceptionというエラーが出ます.....
他のスクリプト言語というとRubyということになるのでしょうか？
driverを初期化してないからだと思うぞ。
大変申し訳ないのですが詳しく説明して頂けないでしょうか....
勉強不足ですみません
Private driver As SeleniumWrapper.WebDriver ←モジュール領域（各プロシージャの更に上位）でdriverを定義。ただし初期化していない。
Sub Init() ←Initプロシージャを実行する時にdriverを初期化し①・②を実行する必要がある
Set driver = New SeleniumWrapper.WebDriver ←ココ
①
②
End Sub
Sub Work() ←Initプロシージャを実行してからWorkプロシージャを実行すると、色々（③）を実行してくれる
driver.get(ユーザーページ)
③
End Sub
念のため言っとくと俺は>>546じゃないがついでに解説しただけで、
>>545が求めているものがこれで満たせるのかまでは関知しない。
VBAでコールバックを行うとき
クラスが対象の場合はCallByNameで行う事が出来ますが
標準モジュールの場合、どうするんでしたっけ？
確かAPIを使った様な気がしたんですが
どのAPIを使ってどうするのか
忘れてしまいました。
忘れたけど ariawase を見れば出てくるんじゃね
とても丁寧にありがとうございます。追加質問させてほしいです。
A: 今回「driver」はオブジェクト変数となるため、定義の際はnew演算子を使用する。またはsetで格納する必要がある。ということで良いのでしょうか？
B: >>550で「ただし初期化していない」とありますが、あるサイトで「vbaでは変数宣言したときに初期化が行われる」という記述を見ました。
これは、setで格納されてないから初期化すらされてない という意味でしょうか。
C: プロシージャが実行されるごとに初期化されればよいならば、private変数の定義をやめて、①～②、③それぞれでDim driver As New SeleniumWrapper.WebDriver と定義すればエラーは出ないと思ったのですが、
やはり③のgetメソッドのところで「System.NullReferenceException」エラーが出てしまいました。何故なのでしょうか・・・
長文ですみません どうか宜しくお願いいたします。
A: あってる
B: だいたいあってる
C: まずコードが動くことを確認してから弄れ。>>546の意図が汲めないならすっぱり諦めて別の方法を考えろ。
流石にこれ以上は自分で調べろ。
追伸
B: とりあえず「値型は宣言と同時に初期化される、オブジェクト型はNewやSetをしてからでないと使えない」と思っとけ
C: 要はWebDriverの「使い回し」がしたいという質問に答えたのが>>546
・モジュールレベルで宣言すれば、各プロシージャ内から変数「driver」を通じて同じ実体（インスタンスという）にアクセスできる
・Initでモジュールレベル変数「driver」を初期化したりStartなどのメソッドを実行すれば、Workでdriverにアクセスした時にその続きのアレコレができる
・逆にInitで初期化やStartその他を実行したにもかかわらずWorkで新たな変数「driver」を宣言したらInitで行った処理が水泡に帰する
・またInit内で新たな変数「driver」を宣言し初期化等をした場合も、Init終了と同時に実体が消えて無くなる
仕事中なんであれこれ端折って書いたので間違ってる部分もあるかもしれんが、「インスタンス」とか「スコープ」とかでググって調べてみてくれ。
本当に丁寧にありがとうございます。
伝えるのを忘れていましたが、言われた通りにコードを記述しうまくいきました。それを踏まえてのCでした。
インスタンス、スコープで調べてみます。ありがとうございました。
Dim cell As Range
For Each cell In Selection
cell.Value = cell - 1
Next
これはOK。
「セルの値がブランクまたは0のとき、ブランクにする」を追加して、
Dim cell As Range
For Each cell In Selection
If cell.Value <> 0 Then
cell.Value = cell - 1
Else
Next
としたら「Nextに対応するForがありません」と怒られてしまいました。
どこがいけないのでしょうか？
お前の知能に障害がある
インデントが適当だからそういうミスに気がつかない
レベルアップするたびにポイントをVBAにばかり振り分けてきたんだよきっとｗ
根本はエクセルのエラーメッセージが明らかに間違っているから混乱する
けどプログラムの世界って大体そんなもんと諦める必要がある
で、対処法としては
>>559
が正解
インデントが適切なら楽勝で気づける問題
>>562は最悪。開発が超遅くなる
テキストファイルの中身をセルに出力する処理をやっているのですが、一部のテキストファイルの文字が正常に出力されません。（縦線 " | "のみが出力される）
ただし、判定によってセルの色を変えているのですが、その機能は生きているので、読み込み自体はできているみたいです。
また、全部のファイルで不具合があるわけではなく、特定のファイルの特定のレコードにのみ起こるっぽいです…
補足すると、テキストファイル自体はメインフレームの伝送機能で送ってます。これが原因に関係あるのかはわかりませんが…
詳細聞かれたらお答えしますので、解決にご協力頂ければと思います。
本題を載せ忘れていました。
原因、改善方法がわかる方いましたら、ご返答願います。
その特定のレコードを教えて
俺はブロックを先に区切らずにダラダラ書いていく方が効率悪いように見えるんだけど、End Ifを先に書かない方が速度上がるの？
本当だったらそうしてみようかな
コンピュータのベンダーや年式が違えば文字コード字形の割り当てが違うことも多い
手順
・テキストファイルの文字エンコード、記述形式を正確に把握する
・化けた部分前後数行のみのテストデータを作る
・ウォッチウィンドウを活用して原因を探る
INPUTはJCL（COBOLアプリを動かすためのスクリプト言語）をテキストファイルに落としたものです。
特定のレコードなのですが、テキストファイルを確認しても、他の出力されているレコードと見た目は全く変わりません。（スペース、データの末尾にも問題なし）
にも関わらず決まったレコードのみに不具合が発生します。
マクロが手元にないため画像は載せられませんが、
JCLについては、画像検索して出てきたものとほぼ同じですので参照頂ければと思います。
やはり文字コードがきな臭いですかね
shift-jis になる仕様のはずなのと、他レコードは大丈夫なため問題ないと判断していたのですが、
vba上でも文字コードを明示してあげる必要がありそうですね
ちょっと気になるんだが、正常に出力されない時に表示される縦線は、
元のテキストファイルにデータとかデリミタとして含まれている文字なのか？
それとも変換できなかった文字が縦線に置き換わっているのか？
なんかコピペしたときにend ifが抜けてた
縦線はデリミタではなく、元のレコードにも存在しない文字です。
処理としては、テキストファイルのレコードをそのままセルに出力するだけなのですが…
読み込んだ時点では問題なく、出力したときに縦線に置き換わってる感じですねー
馬鹿は死ねよ
ファイルからレコードを読み込んだら、イミディエイトウィンドウにも出力しておく
データをセルに書き込んだあと、もう一度セルから読み出して縦線になってたら中断するようなコードを書く
中断したらイミディエイトウィンドウの内容を確認
どこで化けたか、1つずつ追跡するしかないです
意外なところでミスをしていたり、仕様だったり、落とし穴があるもんです
1.入力するテキストファイルに「ろくでもない見えない文字」が含まれている（たとえば制御文字）
→普通のテキストエディタでは見えないことが多いのでバイナリエディタで確認する
2.テキストファイルのレコードを読み取りセルに出力する処理のどこかに問題がある
→特定のレコードで発生するということは、特定の文字列のパターンか、特定のレコード数でのみ発生している可能性もある
こんな月並みなことしか考えつかないな。
個人的には、文字化けだったとしたら全部縦線に置き換わるのはおかしいと思うが（化けた文字が一切見受けられず縦線だけってのが妙に気になる）
SHIFT-JISのはずって言ってるし、ホスト側に大抵変換ツールあるだろ
文字コードや制御文字の可能性よりプログラムのバグの方が確率高い気がするなぁ
まあコード出せばどっちの問題かはだいたい判別できるはず
化けるデータのダンプでもいいけどな
コードが掲示できなくて申し訳ないですが、
文字コードについてはホストの変換機能があるはずなので、プログラム上のバグとみてデバックしてみます。
>>569
正解。
でも、頭の使い方を知らない人にとっては理解し難いんだろう。
頭を使う作業と単純作業を分けるのが自然になってる人はEndIfを先に書く。
他にもEndWithやNextも先に書くな。
Ifまで書いて条件をどこからかコピペするのに気付いた時はIf a Then...EndIfまで書いてからaと差し替えるとか。
あるいはaの差し替えは中身書いた後の時もあるな。
文字化けはイミディエイトでは分からない場合も多い。
こういう時はデバック用にバイナリで出力するものを作っとくべきだね。
二ワトリか?
閉じタグみたいな単純作業を人間がやるのは馬鹿らしいと気付いて別の言語に移行するのが大正解
ｲﾝﾁｷな制御文で空文を回避する必要がある
つまり、cが言語として一番単純で簡単
C言語が扱うのはDelegateじゃなくて
ポインタだから不慣れな人が使うのは結構危険
https:～～/～～～/～～.pdf
で終わるURLが1000件以上あり、業務でそのすべてを印刷しなければならないのですが、
１つ１つIEで印刷していくのが大変面倒で、VBAで一気に印刷することができないか
調べたのですが、.pdfで終わるファイルをwebから自動で印刷するのは不可能なようでした。
そこで、その1000件以上あるpdfファイルを一気にローカルに保存できないかと考えております。
具体的には、
A列にひたすらURLを貼り、マクロを起動するとローカルの任意のファイルにPDFが保存されていくようなVBAが組めないかと考えております。
(一気に印刷することができれば、尚よいのですが)
どなたかコードを組んでいただけないでしょうか。
お手数ですが、よろしくお願い致します。
VBAだとそこそこ面倒な気がする
難しいだのなんだの言われてたけど、テキトーにやってたら簡単にできて拍子抜け
http://fast-uploader.com/start/7094526398997/
Book1.zip
を
Book1.xlsm
にリネームしてくれ
A列はファイル名
B列はURL
C列はokかNGか。アテになるかどうかはシランので、落とした後のファイル数はなどは確認したほうが良い
コードの編集は適当にやってくれ
今はテスト用に3つだけにしている
あと保存するファイル名は被らないようにかなり適当に作っている。適当に変えてくれ
で、pdf印刷はこの辺に任せるといいと思う
https://dekiru.net/article/1745/
あと、参考にしたサイト
https://tonari-it.com/excel-vba-windowsapi-urldownloadtofile/
特に何の関係もない、無害なサンプルpdfが置いてあったサイト
http://www.shikisensha.com/pdfs.html
powershellスレで聞いた方がいいよ
一括ダウンロードも印刷もけっこう簡単にできる
VBAでもできるけどちょっと面倒だから
そんなのjdownloader2とか
webブラウザのアドオン使えよｗ
あれ、そうか
PowerShellあんまり知らないから見てみたかった
死ねよ
拡張機能探すのあんまり得意じゃないわ
結局作ったほうが早い
>>603
ざっこｗ
URLDownloadToFile というAPIがあることをいま知った。
これまで都度 MSXML2.XMLHTTP を作って .Open "GET" していた。
API一発ならその方がスマートだしプログラムをそれベースに書き換えようかと思ったけど、
IDとパスワードを渡さなきゃならない場合は使えないのかな？
但し一部の行はブランク
時刻データは"00：10：00"のように時・分・秒が指定されている
表上は"00：10"つまり「時・分」のみを表示
この時刻データの分の1桁目が9の時のみ1分繰り上げて0にしたい
つまり
"00：19：00"→"00：20：00"
"00：59：00"→"01：00：00"
になるようにしたい
セルは複数セルを不連続で選択し、ブランクはパスして
分の1桁が「9」の場合のみ1分繰り上げするにはどうすれば良いでしょうか？
秒はどうするの？19分30秒だったら20分00秒にするってこと？
とりま、基本的な処理は分を10で割った余りを求めて、9だったら1を足す
それを選択された全セルに対して繰り返す
O1=N1+IF(MOD(MINUTE(N1),10)=9,TIME(0,1,0),0)
Ruby で、そのテキストの該当部分を表示して、確かめる。
他の言語でもよい
>>606
いったん時刻に変換して、1分足してから、また元の形式へ戻す。
つまり、表示形式 → 時刻 → 表示形式
制御文字の可能性があるから、文字列をバイナリで見る
文字コードや、UTF-8 ならBOM の有無
セルに入力した時に、特別な意味を持つ文字が入っているとか？
シングル・ダブルクォーテーションなど？
(まあ、このようなシステムはどこにもあると思いますが。)
これ、どうにかして大元のデータベースのデータを丸ごとExcelにインポートする方法ってないですか？
Webのソースを見れば、データベースのサーバのアドレスが書いてあって、それをVBAで取り込む、みたいなのをイメージしているのですが
技術的には可能ですよね？
イメージが見当違いだ
大抵PHPか.Net実装でソースからは見えない
わたしは怒ったら怖いんだぞ
会社のシステムなら上司に相談しろよ
社内規定に違反すると最悪解雇もあるからな
怒らせたくはないけどまともなシステムならクライアントから見えるところにデービーのアドレスは書かれてないよ
ブラウザがやり取りするのはWebサーバ
その先にはアクセス出来ないのが普通
自作コードでサーバーを直接叩くのはいろんな意味で危険
出発点から「自分で勝手に何かする」というのが間違い。
他の人も言うとおり、まずは自社で管理してるDBなら管理部署に、ベンダのシステムであればそのベンダに、やりたいことを伝えて対応してもらう。
対応してもらうのが無理なら、管理部署やベンダにAPI等を利用してツールを作成して良いか確認を取る。
もしOKなら、API等を利用してツールを自作する。完成したら必ず管理部署やベンタにツールを見てもらう。
勝手にベンダのAPIを利用してSQL発行ツール自作してクビ寸前まで行ったことがある人を知ってる。
大幅減俸で落ち着いたらしいけど今はもういないから実際のところどうだったのかは知らんが。
ども！
ワークシート上なら"00：59：00"＋"00：01：00"→"01：00：00"みたいに単純に繰り上げが出来るので
マクロで同じような計算が出来ないかと考えたんだけど（>>609さんのコメがそうかな？）
具体的な手順が思い当たらなかったので、原始的なやり方で作ってみました
strTime = Format(cell.Value, "hh:nn:ss")でセルの時刻を文字列に読み込み
時（strH）・分（strM）・秒（strS）を切り分け、分の1桁目が9の時だけ
intH = val（strH）、intM＝val（strM）で数値化した値から
sumM = ntH*60 + intM + 1
intH = int(sumM/60)、intM = sumM - intH *60 を計算し
これを時刻に直してセルに戻す、という手順で出来ました
あれから例のマクロをデバッグし、無事原因がわかりました。
文字コード云々ではなく、単純なロジックミスという落ちでした…。
お騒がせをしましたが、ご助言くださった方々ありがとうございました。
クローズ報告ありがとさん、燻りそうだったのでクローズ連絡は助かる
やっぱそっちだったか。解決したようで良かったわ。
ヒントはF5、表示セルのみ
>>621
信じられない。
なぜツール作っただけで解雇とか減給とか？
チームは違うけどチームの作業効率をはるかに高めることをするという非常にほめられることをするというのに。
別に会社になんの不利益も与えない。
普通にある
＞非常にほめられることをする
ほめられない
ってか考えが浅すぎるから本当に気をつけろ
問題は色々あるが、まずは許諾を得ずに勝手に構造を解析するということ。つまりリバースエンジニアリング。
次にシステム上想定していない勝手なSQLをこれまたシステム上想定していない勝手な方向から流すということ。
「会社のために」の枕詞を取り払えばこういうことになる。その枕詞が付いていたとしてもリスク管理の観点から非常に危ない。
特に、決められた手続き決められたデータが抽出できる環境がありながら全データ抽出したいとか、クラッキング以外の何ものでもない。
自分で勝手に作ったSQL発行ツールが原因でサーバに異常な負荷をかけてしまったら責任が取れるのか？
そのツールが悪意のある第三者に見られあるいは持ち出され、悪用されたら責任を取れるのか？
自分の会社に対する誠意を完全に証明できる自信があるとか、完全無欠に誰にもどこにも迷惑をかけないツールを作成できる自信があるとかなら、なおのこと手順を踏むべきだ。
黙ってやろうとすること自体が会社を納得させる自信のなさと会社への不誠実さの顕れだ。
普通に「ODBCでアクセスしたいからID発行してプリーズ」って管理部署に頼め
外からDBアクセスできるなら
トランケートされても文句言えねえわ
エクセルのＡ１セルに入力されている住所をgoogleearthで開きたいのです。
マクロでgoogleearthを立ち上げるとこまではshell関数で作ったのですが，そ
の先をどうすればよいのかさっぱりわかりません。
googleearth左上の検索のところにA１セルの住所を自動で入力して検索ボタンを押す，
というマクロを教えて頂けないでしょうか。
よろしくお願いします。
しね
よろしくお願いします
iMacros, Selenium IDE とか。
それか、Ruby で、Selenium Webdriver を使う
hyperelink関数で良いんじゃないの
=hyperlink("https://earth.google.com/web/search/";&"皇居")
とか
大げさな。
ちなみにそのデータは顧客関係の個人情報は一切含まれてなくて、含まれているのは製品や購入パーツの在庫情報だけだ。
ある作業で、その製品や在庫パーツのあるデータを使って簡単な計算をしなければならず、
現状ではいちいちWebサイトで1個1個フィルードに入力してSUBMITボタンを押して出てきたデータをExcelに貼り付けてそれを計算しなければならない。
しかしそのデータベースをexportすることができればWebサイトで1個1個地道に長時間かけて手入力で全部データをコピペしなければならない。
こんなアホなことはできない。というかこんなアホなことを真に受けてまじめにしようとする人(うちのチームの人う)ことアホだ。
ちなみにWebからExcelにexportするためのボタンはあるがなぜかほしいデータが入らないようにしているため利用できない。
あとはvlookupを使ってすべての作業が一瞬で終わり。1分。
それができないから、上司からしめきりが1か月後みたいに設定されてる。
ちなみにそのデータは顧客関係の個人情報は一切含まれてなくて、含まれているのは製品や購入パーツの在庫情報だけだ。
ある作業で、その製品や在庫パーツのあるデータを使って簡単な計算をしなければならず、
現状ではいちいちWebサイトで1個1個フィルードに入力してSUBMITボタンを押して出てきたデータをExcelに貼り付けてそれを計算しなければならない。
しかしそのデータベースをexportすることができればWebサイトで1個1個地道に長時間かけて手入力で全部データをコピペしなければならない。
こんなアホなことはできない。というかこんなアホなことを真に受けてまじめにしようとする人(うちのチームの人う)ことアホだ。
ちなみにWebからExcelにexportするためのボタンはあるがなぜかほしいデータが入らないようにしているため利用できない。
【正】
ちなみにそのデータは顧客関係の個人情報は一切含まれてなくて、含まれているのは製品や購入パーツの在庫情報だけだ。
ある作業で、その製品や在庫パーツのあるデータを使って簡単な計算をしなければならず、
現状ではいちいちWebサイトで1個1個フィルードに入力してSUBMITボタンを押して出てきたデータをExcelに貼り付けてそれを計算しなければならない。
しかしそのデータベースをexportすることができればWebサイトで1個1個地道に長時間かけて手入力で全部データをコピペする必要はない。
こんなアホなことはできない。というかこんなアホなことを真に受けてまじめにしようとする人(うちのチームの人う)ことアホだ。
ちなみにWebからExcelにexportするためのボタンはあるがなぜかほしいデータが入らないようにしているため利用できない。
>>631
SELECT権限すらつけてくれないってなら殴れ
普通に権限を貰うか、システム改善を依頼してくれ
他の部署の人が頼みにきて、裏口でやっている話はよくきくけど、危険な行為。
ルール自体を変えないで、ルール違反の形で、黙って下の者がよくやるけど、
上の者が把握・管理していないから、会社として成立していない
ドイツ車で、大問題になった。
下の者が、勝手にプログラムを書き換えていた
大げさでも何でもない。
Webから取ってくるのだって関係部署に連絡して承認をうけるのが普通。
ましてDBに直接繋げたいなら上司に相談しとけ。
外部の部署と言うより「データは社内の共有データでDBはシステム部が所管している」
ように読めるけどね。
昨今のデータ活用・データ民主化の流れでエンドユーザにSELECTさせるのは当然になってる。
もちろん無断でやるなんてのは論外だが。
どういう意味？
可視セルをそのまま配列に放り込んでも連続した部分しか取り込めない仕様だけど
今の人件費はこれだけです
RPAでやったらこうなります
DBへのアクセスを許可してもらえればこうなります
だからこうして欲しい、と、数字を出して説得するのが
いんじゃないかな
いや、改めて試したけどできるぞ？
アマチュアならこういう意識が薄くてもしょうがない
SELECTは危険ではないけど重くなるんだよ
特に初心者が書いたwhereもしないSELECTとか重くてかなわん
だから素直に頼んでくれ、ほんと
>>649
それでいいよ
全件SELECTしてからaccessでフィルタする奴は本気で死ねとしか思わん
目的：Web系在庫管理システムのデータ抽出の際の項目選択の手間を省きたい
手段：以下の作業を自動実行する
1.在庫管理データベースからすべての情報をその都度抽出する
2.全データから必要な情報のみを抽出し、加工（計算など）を行う
この、小さな目的達成のために払うリスクがでかすぎることを解っていないところとか、
俺の知るクビになりかけた人物と同じこと言ってて流石に寒気がした。
もっともその人が作ったのはエンドユーザーが抽出条件をある程度自由にカスタマイズ・保存できる文字どおりのEUCツールで、
ハイコストなSELECTが発行されまくった結果システム全体のパフォーマンスが微妙に落ちて、それでベンダのSEが気づいたんだが。
はじめから管理部署なりベンダなりに相談しておけば：
A.システム内に解決する手段が既にあるかもしれない（標準のEUC機能に抽出条件を保存できたり）
B.システムで対応可能だったかもしれない（SEが管理する簡易的な抽出機能への追加など）
C.システムで対応できずともベターな解決手段を探れたかもしれない（APIへの接続許可など）
>>652も言っているがDBもサーバも回線（帯域幅）もタダではないし有限だし消耗品と思え。
そうだね、業務用途のサーバーと回線は従量制と知らない人が多すぎる
逆に従量制じゃなければ全員に迷惑がかかるって事になり、それまた迷惑
開発の端の端にいるなら、回線ってとんでもない金額がかかってるって知っておいてほしい
自分のPC内でぐるぐる回すだけならまぁわからんでもないけどな
実行計画を見て、確認したり
高度情報処理資格のDB スペシャリストを取ったり、ミックの本を読んだり、
勉強した人しか、DB を触っちゃいけない
DBスペシャリストで扱うのはデータモデリングやアプリケーション設計が中心で、
クエリチューニングのような運用寄りの出題はほとんどない
ビジネスで競争に負けてたらシステムの予算だって出なくなるんだぞ
上司から、レコードの絞り込みが甘いと注意されました。
表設計をどう直しますか？
もちろん、出題されている
それなりの流れがある
マスターの方のテーブルの登録や更新、削除をトリガーとして
別途作った同じ内容のテーブルに反映させた側のテーブルを見に行くようにしたりする
システムには当たったことがあるけどね。
何にせよ余計なことはやらせない方が無難ではあるよ。
Accessのウィザードで作ったリンクテーブルやインポート使ってるんだけど
これって該当します？
sharePointのリスト取り込むときってどうするのがいいんだろう？
勝手に接続してるなら、どういう方法だろうとアウトと思っておいたほうがいい
重さで言うなら、SQL直接書くかせめて確認するのが一番確実
とにかく最初にwhereでフィルタするんだ
そのフィルタしたテーブル同士で結合したりするんだ。それだけ覚えておけばどうにかなる
リンクしてるだけだと特に意味はないわ
ってかこの辺はDB板行ったほうがいいだろう
しょうがない
どこにｲﾝﾃﾞｯｸｽはってるか見もせずに
where句で巨大なﾃｰﾌﾞﾙをいきなり検索したりするからな
そしてﾌﾙｽｷｬﾝになる
そしてcountで件数を確認もせずにいきなり大量抽出する
知能が低いﾔﾂﾗにSQLさわらせるとこうなる
もうね予見できるﾜｹ
低学歴知恵遅れの知能が低いﾔﾂにｵﾌﾞｼﾞｪｸﾄ指向はｷﾁｶﾞｲに刃物
銃刀法違反なみの重罪
ｺﾚは定説
こわい
こっちのほうが重大な問題だからな
表ごとにｾｷｭﾘﾃｨﾚﾍﾞﾙがあるのも当然
そういった制限すらないのはﾔﾊﾞｲ会社
だれがいつそういった情報を取得ｽしたか
どんな業務で誰の承認で取得したか
ちゃんと履歴が必要になる
excel vbaで語るなら、それを併用して得られるﾒﾘｯﾄぐらいしかない
excel vbaでなんかいいことあった？
おまえはなんの話をしているんだ？スレ名読めんのか？
その質問はご法度
無視されるか話をそらされるだけ
>>677のようにね
彼女ができました
総ム省の、『憲法改正國民投票法』、でググって
みてください。拡散も含め、お願い致します。
困るから言っておるのだ
回答者もうんざりしてる
https://jp.wsj.com/articles/SB10750612626653313748604584520883598309574
「次々と人がやって来ては『エクセル...
csvを一度メモ帳に全部貼り付けて、それをexcelに貼ったあとデータ区切りでカンマを選ぶと上手く取り込めます
この挙動の違いがイマイチよく分からないんですがどうしてメモ帳に貼り付けることで上手く読み込めるようになるんでしょうか
Excelは既存の機能の動作がわずかでも変わったら必ずマクロが動かんようになったやないかどないしてくれんねんボケと山ほどの馬鹿が怒鳴り込んでくる
似た機能を追加したから共通化しますね～と安易に仕様変更できず、大量の機能の重複を抱えながら昔のバグっぽい挙動も尊重して個別にメンテしてるの
このスレにいるような連中のせいでな
データのせい
メモ帳貼り付け保存後、と前とをバイナリー比較すれば理由は見えてくるはず
bomとかそういう感じですかね
また、うまく読み込めないのは一部utf8形式の文字コード？があり、それをsjisに変換出来ないのが原因のようでした
データインポートでutfを選択したら無事開けました
一部だけUTF8？
混在してたってこと？
あたりまえ、UTFもShiftJISも英数は同じ
ｺｺﾆｶｹﾙｶﾅ
改行コードは何種類もあるし、読み込み方法によって正常に認識してくれないケースがあるから
メモ帳経由だとうまくいくってのと整合しない
まずダブルクォーテーションやカンマはないです
あと自分の理解と説明が足りてませんでした
一部utf8ではなく全部utf8で基本普通の英文字と数字なのでsjisでもぱっと見問題なく開けるけどクエリストリングのカラムにノーブレーキングスペース？やsjis対応してない文字列があり、そこで上手いこと処理出来てなかったみたいです
utf8をsjis指定でデータインポートしようとしたのが間違いの発端でしたスミマセン
対象が単体ならApplication.Undoで比較できますが、複数の場合1セルずつに対してUndoができないため
対象全体の内容を一時シートにコピー→For Eachで元データと1つずつ比較しているのですが、もっとスマートな方法はあるでしょうか？
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Color = -16776961
End Sub
これで良いのでは？？？
「対象セルの値が変更される前と一致しない場合にのみ」文字色を変えたい、です
あぁそういう事か、すまん
今「excel change before」で調べただけだけど、そうするしかなさそう
selectionchangeでselectionの内容を保存しておくみたいだねぇ
よー考えるわ
そうだねぇ
なんか赤にする以外の方法の方が良い気がする
セルにtagプロパティでもありゃ前値保持できるのに。。
赤字にしたい目的がわかれば、そもそも別の簡単な手とかあるかも？（逃げ）
Excelをフロントエンドにしたデータベース管理です
一度に複数のデータを弄ることが多いため、フォームではなくテーブルに直接データを読み込み、編集後に更新といった流れで、この更新部分の判定を文字色で行っています
作業者自身も更新前にどこを変更したかひと目でわかると考えてこの方法を取ってますが、もっとベターな方法があるなら全然乗り換えたいです
この間に変更する予定のセルに対して処理をかませることができそう、というか出来るだろう
データ更新前後のフックは、無いのか？
イベントプロシージャもダブルクリックだけは理解した
Constで柔軟なコード書くのも学んだ
配列はいまいち便利な使い道がわからない
処理の制御自体は分岐と繰り返しを覚えれば大抵なんとかなる。
ロジックをよりスマートにしたい。処理時間を短縮したい等なら、配列やアルゴリズム等の効率的なやり方が必須になる。
特に、セルを使うならば配列は絶対使ったほうがいい。二次元配列と聞くとよくわからなそうだが、
(y軸,x軸) を指定するだけだから、一見難しそうに見えても簡単だよ。
あとは、何をやりたいかによるかな。それによって取得するべき技術が決まってくると思う。
配列使った方がいい理由を補足すると、
配列変数を使えば、変数の数を大幅に減らすことができるかつ、ループ文を使って1から最大数までアクセスがしやすいから。例えば、人間という名前の違う変数を別々に100人定義するのは面倒。
だが、配列変数を使えば1行で定義できる。
セルに関して言うと、VBAはセルにアクセスした際に大幅に時間を使う。値を編集するたびに毎回セルにアクセスするよりも、配列変数に格納をして、まるごとセルに代入するようにすれば、アクセスは1回で済む。
（それっぽく例えるなら、積み木を片付ける時に1つずつ摘まんで箱に入れるか、形を整えた後まとめて箱に入れるかの違い）
次は違う言語を学ぶといいよ
pythonとかがオススメ
シートはセルの二次元配列
ブックはシートの一次元配列
合わせて三次元の配列
元々エクセル自体が配列の塊なので、
vba上だけで配列を持たなくてもなんとかできるようにはなっている
他のプログラムだと配列なしなんてありえないんだけどね
vbaで配列を扱う大きなメリットとしては、爆速にできる事
で、そこまで来たら何を覚えるかだけど
・objectの扱い。set foo = sheets("name")
・fso（filesystemobject）
この辺かね～
他言語やるなら俺もpythonがオススメ
>合わせて三次元の配列
「三次元配列」と書かないところが正確でイイ！
配列を学ぶことでの処理の高速化も理解できました
setはサンプルコードでよく見かけるなとは思ってたけど、詳しく掘り下げてみます
fsoは初耳なのでじっくり学びます
Pythonも並行して学びたいと思ってたのでちょうどいいタイミングみたいですね
ありがとうございました。
余裕があるならアセンブリ言語をちょっと齧っとくのがいいと思う
アセンブラとか環境とかはどう調達すればいいのでしょうか？
っていうか、vbaの範囲外のことまでここで聞くなよ
デバッグの方法（VBEの機能）
ユーザーフォーム
for next以外の繰り返し（do loop）
齧るだけだからネットで調べてだいたいの仕組みが分かればそれでいいんだよ
「アセンブラ 入門 casl」でググって見つかったサイトで勉強してみるのがいいと思う
資格の勉強にもなるし
やる気あるなら機械語が使えるポケコンを買って実際に
ハンドアセンブルしてみるのもいいかも
casl2 は気が進まなくって…だってハードがないんでしょう？
うん、ハードはないな、仮想CPUだから
でもコンピューターの仕組みは分かるようになる
俺はアセンブリの知識のおかげでデバッグとかで役に立ってる
これ実際にvbaでプログラム作れって言われても絶対作れないな。
何が言いたいかって、お前らすげーわ。
ハートもないやつがなにいってる
後の機能追加等考えるとクラスモジュール使って役割ハッキリさせた設計が良いんだろうけど、結局書くのが楽な手続き型チックになっちゃうのよね
それは別に反省ポイントじゃない
VBAがあるだけでメンテができる人が数十分の一になるんだから
別にVBAで飯食ってる人を批判するつもりはないよ。
プログラミングにおいて>>734の言ってるような適切なモジュール化(VBのModuleではなく広義のモジュールだぞ、念のため)を行う目的は、メンテナンス性を良くすることだ。
そして、Excelのメンテナンス性を高める最善の方法は、VBAのコードを綺麗に書くことではなく、VBAの使用を極力控えることだ。
VBAのメンテナンス性を高めようという発想は根本的に矛盾してるんだよ。
文面から見て、メンテできる人（使用者）が少ないからという風に捉えているんだが…
もしそれが理由ならば、職場によるのではないか？
初めて他者の書いたコードをしっかり見ることになったが…まぁ見辛いし目的が捉えづらく苦労した。
ろくなドキュメントも残っていなかったしね。
でもそれは、コードの改善や仕様書をしっかり残せば解決する問題であって、決して言語そのもののせいではないと私は思っているよ。
言語や開発環境が悪いからユーザーが育たない
言語や開発環境が悪いから汚いコードが作られやすい
全てとは言わないが大きな影響力を持ってるのは否定できないな
言うてもそんなに長くならないので、コメントさえしっかり書いておけば大丈夫だよ
何を目指すかによる
プログラマーならexcelはまず触らない
事務職ならpythonを触らない
両方知っておくことは悪いことじゃないが、どっちっつかずになりそう
VBA、大学教養のC課題、ネトゲーマーのUWSC自動化の三馬鹿うんざりトリオをなんとかして欲しい
今はアセンブラの知識なんて
まず糞の役にもたたない
悪いことは言わないから
IL止まりにしておいて
残りの時間を他の言語の学習に回した方がいい
入力もエクセルのシート利用できるし使いがっていいなこれ
自分だけ使うものはこれで十分な気がしてきた
特別な技能を持たない人間の能力的限界がExcel
テンソル入れ物にするメリットってあるか？
レベル上がると有益になるのかな
文字列と数値。ってかこれ以外セルには入れられないでしょ。オブジェクトは入れられないし
って質問に対して間違っちゃいないが...
変数型のことじゃなくて、どんな
データかって意味じゃね？
なんでハゲてるか自問してろ
当然だがWinAPIだけじゃなくVB呼び出しに適う任意のAPIが呼べるから、自分だけの環境なら何だって可能
え、ないでしょ？
あるんだっけ？
下手すると感謝すらされない
そう、気づかないんだよな・・・
食いついてこなかったら諦める。
いままで動いていたものが GET PUT で 「レコード長が一致しない」となります。
一部こんな感じです。
Const MONTH_SIZE As Long = 60
Type M_Rec
S_code As Long
Stock As Long
byCode As String * 8
M_id_Cre(MONTH_SIZE) As Integer
End Type
Public S_MAIN_REC As M_Rec
Open FileName For Random As #SmainNO Len = Len(S_MAIN_REC)
Get #SmainNO, indexNo, S_MAIN_REC
この標準モジュールを破棄して同じモジュールをインポートすると
正常に動きますがワークブックを保存して再起動し同じ処理をすると
エラーになります。
Public S_MAIN_REC As M_Rec の 記述場所を移動させると正常に
動きましたがモジュール内に新規プロシージャを追加したらまた
エラーが出るようになりました。
モジュールが壊れていると思い新しく作成しても同じでした。
ご意見お願いします。
現在ユーザ定義 の M_id_Cre(MONTH_SIZE) As Integer の配列を
６１に変更し正常動作中です。
そんな黴の生えたゴミカスは今すぐ捨てて普通にワークシートで管理するかDBにしろ
もともとはワークシートで管理していたのですがファイルのほうが
都合が良いので変更しました。
直ちに戻しなさい
動きません
エラーが起きます
決して具体的なエラーメッセージを書かない
書いてあるエラーメッセージを理解できずに自爆 w
> GET PUT で 「レコード長が一致しない」となります。
ただコード具体例とエラー詳細はいずれにせよ求められるけど
馬鹿は表面的なことしか見えない
表面的なことすら見えてないバカの自爆乙 w
その心理の正体は一体何でしょう？
・自信ないのでミス指摘されたくないなどの自尊心問題
・コンプライアンスリスクとの取り違え
・個人情報リスクとの取り違え
エラーは書いてあるとおり「レコード長が一致しない」
Openステートメントで指定された長さと異なるということなのですが
レコード変数やOpen Get Putのプロシージャなど変更せずに
このエラーが発生しました。多分VBAのバグだと思うのですが
詳しい方に教えていただきたく思いまして書き込みしました。
タイミングが悪かったですね。
20年遅いわ
今回お前が苦労して解決しても後で他の誰にも分からないんだぞ？
そんなもん押し付けられる方の身にもなってみろ
まぁ言語の方に責任を押し付けたくなるのは判るがなw
バイナリエディターでレコードファイルを確認するのと、テスト環境作ってレコードを減らしても発生するかみる
頼む
エラーになる状態ですと、新規にファイルを作成しても１レコード目でエラーとなりますので
ファイルがおかしいとは思えません。ユーザー定義のレコードサイズ、モジュール変数の
メモリ設定があやしいと思うのですが。
エクセルで消費税を算出したいのですが、一つのセル内で完結できないでしょうか
ググっても税抜き価格と税込み価格の、二つのセルを使うものばかりでして
まさかな、と思ってぐぐってみたら本当だった。
しかもqiitaの新着記事にもそんなのあるし。
なぜなのか？
最小条件での動作確認しないなら俺はなにもいわない
それVBAの質問なの？そもそも
税抜き価格を入力したら、そのセルの数値を自動的に1.08倍するマクロ
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = Int(Target.Value * 1.08)
Application.EnableEvents = True
End Sub
因みに幾らくらいかかるものでしょうか？
仕様がわからないので見積もれません
4000億円ぐらいみとけば間違いない
Dim dic As Dictionary: Set dic = New Dictionary
Dim lc As ListColumn
For Each lc In lo.ListColumns
＿dic.add lc.name, WorksheetFunction.Transpose(lc.DataBodyRange.value)
next lc
以上で作成した「Dictionaryの値」に格納した「配列の値」に代入が出来ません。
例えば
debug.print dic(見出しA)(1) '「ピカチュウ」が表示
dic(見出しA)(1) = "ライチュウ"
debug.print dic(見出しA)(1) '「ピカチュウ」が表示
となってしまいます。しかし以下の様に配列を格納し直すと反映されます。
debug.print dic(見出しA)(1) '「ピカチュウ」が表示
dic(見出しA) = Array("","ライチュウ", dic(見出しA)(2),・・・
debug.print dic(見出しA)(1) '「ライチュウ」が表示
修正があるたびに配列を代入し直すのは面倒なので出来れば値を直接書き換えたいのですが、どうすればいいのでしょうか。
そもそもlo.ListColumns(lc.Name).Range.Item(Index).Value でテーブル内のセル値のセッターにアクセス出来るので、わざわざそんなことをやる必要がないと思う
仕様上ListObjectは列名重複が許されないし、ListColumnsコレクション自体がDictionaryと殆ど等価のハッシュテーブルになる
現在はそうしているのですが（元々それがやりたくて全部テーブルに置き換えたのですが）
値を取り出すときに毎回ListColumns(lc.Name).DataBodyRange(Index).Valueと長々書く為コードが読みづらいのと、配列にすればちょっと速度改善が見込めるかなと思って試していました。
あと追加で質問なのですが、先ほどのTransposeの様にワークシート関数を利用するなら配列ではなくセル範囲の方が速いという記事を見つけました。
どういう原因でそうなるのでしょうか？
C#とかよりC++ネイティブの方が数～倍速くなるのと同じ
組込みの機能はアプリケーション内でリソース管理が最適化されてるのでね
VBAで
組込みの機能はアプリケーション内でリソース管理が最適化されてるのでね
VBAでやると不要な大きさのバッファを確保してたりして無駄が多くなる
実際に直線を引いちゃうのは山ほどネットに転がってるけど、引くのは任意でやりたい。
出来ない。
それぞれの行やある文字についてフォントや色などで装飾したいんです。
そんなことはできますか？
なんかできなそうなんですが。
でもこれをしないとものすごく不便なのです。
うまくいけば残業せずに遊びながら居残りしてお金だけはたくさんもらえるのですが・・・
できるよ。
サルでもできるよw
単にボタンにマクロの登録をすればいいだけ。
う～ん...
俺もできるとは思うけどそんなに簡単か?
何を登録するんだ?
ボタンを挿入して右クリックしてマクロの登録を選び実行させたいプロシージャを選ぶだけ
直線を引く直前の状態にするプロシージャって簡単に書けるのかい?
やったこと無いけどHTMLメールにして本文をHTMLにすれば良いんじゃない?
あとはテキストメール作成と同じじゃないの?
HTML書けるならこの辺りを見ればわかるだろ
https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.bodyformat
じゃ具体的なコードはどうなるの？
例えば、「こんにちは、うんちと申します。」の文で、うんちを太字で茶色にしたい場合。
こんにちは、<B><font color=brown>うんち</font></B>と申します。
？
できないから聞いたんだが？
えてして書いてある要件とまったく違うもんをあげてくるよくいる軽い池沼入ってるのと似てる
Excelのマクロの記録はVBAコードで表現できないものは原則できない
操作自体の記録再生ができるUWSCとかRPAといったツールを呼び出せばできる
あなたはサル以下ということだ。ウイッキー。
あれ？ まだコードあがってないですね。
じゃぁExcel2010用ですが、サンプルを、、、
目的に合わせてShapeIDを変えてください。
Sub CreateShape()
Dim ShpID As Long ' ShapetypeID
Dim iShpCnt As Long ' Shape Count (追加待ち判定)
Dim SHP As Variant ' Loop用Shape
' Create Shape
'--------------------------------
ShpID = 409 'Freeformの場合
' ShpID = 1119 'Ovalの場合
' ShpID = 1042 'LineConnectorの場合
iShpCnt = ActiveSheet.Shapes.Count
Application.CommandBars.FindControl(ID:=ShpID).Execute
Do
DoEvents
Loop While iShpCnt = ActiveSheet.Shapes.Count
End Sub
描かずに連続で押すと処理が入れ子になってしまうのが
難点ですが、、、
なるほど
できた！ありがとうございます！
これで出来たんだね。
コード書ける環境じゃ無いから試せなかったけど、この方法かUIAutomation使うかどちらかかなあと思ってた。
CommandBarControl.ExecuteでもShapeの場合トグルっぱい動作だから思う状態になるか自信が無かった。
自分が作成してたら動かんかったと結論出してたかも。
StackOverFlowかどっかのサイトの受け売りなんですけどね。
どこからもらったのか忘れた、、、
あ、後続の処理用の変数消し忘れてた。
Dim SHP の行は不要です。
なくても同じ動きすんだけど。
元々書いた後に何か処理をするプログラムの一部だったんだと思う
今回はCommandBarControlのコマンドが実行された時点で仕事は終わってるから要らないかと
ループ無くても動くんなら思った通りだった。
違いが有るとすれば自分はFindControlは使わず、コントロールの指定もIDじゃなくて名前使う所。
名前はFor Each使ってCommandBarを列挙して名前をDebug.Print、そのCommandBarに対してFor EachでCommandBarControlを列挙して名前をDebug.Printなどで調べる。
ん？ Do - Loop 部分ないとちゃんと動かんよ？
VBEから実行してない？
ボタンに割り付けると、ボタン押した瞬間に十時カーソル消えるはず。
Excel2010より新しいVersionは動きが違うの？
ボタン押したらクリックしたら線がかけるようになったよ。
2003でも動いたし、2007でも動いた。
勿論ボタンのクリックイベントから
ActiveXコントロールのイベントで呼べば描けるが
フォームコントロールって何のために有るんだろう・・・
セルをコピーした状態からマクロ記録を取って、ペーストするだけのマクロを作ったのですがうまくいきません。
教えてください！
VBAで作るフォームと処理を共有できる、とか？
マクロの記録だと余計な処理が追加されるから、それを削るだけでうまくいくはず
まずは記録したマクロをここに書いてみ
ただしCtrlを押しながら複数のセルをコピーした場合はかなり難しくなる
ああ、なるほど。
確かにフォームボタン使ってた。
そのために余計な苦労をしたってわけか。
情報Thx!
Sub Macro5()
'
' Macro5 Macro
'
'
Range("AH11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
こんな感じです。これはセル１つ選択です。（最終的には複数選択してシート間でコピペする予定です）
================
A社 1000円 営業
A社 2000円 事務
A社 1500円 事務
A社 3000円 販売
B社 1500円 事務
B社 3500円 営業
C社 1000円 営業
C社 3000円 営業
C社 1500円 販売
D社 2000円 事務
こんな感じのA社⇒D社のように整列されたデータに対して
================
A社 1000円 営業
A社 2000円 事務
A社 1500円 事務
A社 3000円 販売
A社 営業計 1000円 <
事務計 3500円 <
販売計 3000円 <
計 7500円 <
B社 1500円 事務
B社 3500円 営業
B社 営業計 3500円 <
事務計 1500円 <
計 5000円 <
C社 1000円 営業
C社 3000円 営業
C社 1500円 販売
C社 営業計 4000円 <
販売計 1500円 <
計 5500円 <
D社 2000円 事務
事務計 2000円 <
計 2000円 <
全社 営業計 8500円 <
事務計 7000円 <
販売計 4500円 <
計 20000円 <
こんな感じに行の間に小計、最後に合計を挿入するようなコードありますか？( < が追加行）
小計は必ず 営業、事務、販売の順番に並び、0円の場合は行自体挿入しません
実際ののデータは会社数、部門共に30以上あるので速度重視であれば望ましいです
お前に必要なのはVBAではなくExcelの入門書
span使え
とりあえずピボットでググったら？
誰かもっと開発しやすいやつをくれ
だからそれはグループ集計でできる
単にシート間で複数セルの値を同期させたいだけならそもそもクリップボードを経由しない方が早いのでは？
VBAでコピーしないでワークシート関数でシート間参照させるとか、コピー元のセルのValueプロパティなりFormulaプロパティなり、必ずコピーしなきゃいけないプロパティだけをコピー先のプロパティに直接代入するとか
ユーザーによるコピー操作そのものを再現しなきゃいけない理由でもあるの？
シート間で照合するデータだとマクロ使わずできるのですが、
コピー元のシートのデータが大きいので、ペースト先のシートには必要なものだけを張り付けて、
印刷用のフォーマットに変換させて、終わったらペースト先のシートは保存せず元に戻すという操作をしたいと考えています。
お願いします。
元データの書式や印刷用シートの体裁、印刷するデータの抽出方法などがわからないが、やりたいことからすると、Range.TextプロパティかValueプロパティの値をコピー先にそのままコピーするだけで良さそう
コピー元とコピー先のデータの体裁によっては、Range.AdvancedFilterメソッドで印刷用シートの方にフィルタ結果を出力するとかもできる
DBは相性からいってSQLServerで
Excelで作ろうとしてる理由が能力の問題なのか、それともExcelのワークシートの機能が必要だからなのか、それ次第だな
C#やVB.NETやJavaで作れる能力があるなら普通に作れるし、無いなら無理
能力が無いならAccessでも使ってろ
たぶん>>867が手作りするより遥かに高品質なものが一瞬で作れるよ
Excelで検討する理由は、ADによるシートとセルの権限管理ですかね
当然、SQL Serverなら問題なくADで制御できる
その調子じゃ厳しそうだね
Excelに限った話ではなくC#などでクライアント作る場合でも同じことで、プロなら絶対にありえない設計
Range.Textプロパティ、Valueプロパティが良く理解できなくて困ってます。
セルの指定で合ってますか？
コピー元の表の中からから1行（５セル分）コピーして、隣のシートの所定の位置に貼り付けたいです。
１行選択した後、マクロ起動させて隣のシートに張付けという操作です。頼みます、教えてください！
Sub CopyToPrintForm()
ThisWorkbook.Worksheets("データ用シート名").Range("コピー元セルの行番号:コピー元セルの行番号").Copy Destination:= ThisWorkbook.Worksheets("印刷用シート名").Range("コピー先セルの行番号:コピー先セルの行番号")
End Sub
印刷するデータの行をユーザーに選ばせる場合、ユーザーに行選択させた状態で以下のマクロを実行させるようにするとかでいいだろ
文字通り一行コピーしてしまうので要注意
>>875
Sub CopyToPrintForm()
ThisWorkbook.Worksheets("データ用シート名").Activate
ActiveCell.EntireRow.Copy Destination:= ThisWorkbook.Worksheets("印刷用シート名").Range("コピー先セルの行番号:コピー先セルの行番号")
End Sub
ありがとうございます。
Pasteはいらないのでしょうか？
>ペースト先のシートは保存せず元に戻す
マクロを実行すると「元に戻す」は使えなくなるから、一々開きなおさないといけないけど大丈夫なのかな
もしその作業が連続して行われるなら、テンプレート用シートと印刷用シートを別に用意した方が楽な気がする
保存せずは間違えでした。
ペーストしたものをデリートするマクロを作って、元に戻す予定です。
引数付きでCopyメソッドを実行するときはPasteメソッドは書かなくていい
印刷用シートはデータと切り離してテンプレート用の別のファイルにした方が良い
そうすれば、印刷処理のとき一時的にテンプレートから印刷用フォーマットを書き起こした後、印刷用フォーマットのブックを削除するだけで済む
印刷後に印刷用シートを初期化するマクロを更に走らせるなんて、手間を増やしてるだけだと思うぞ
端末aのデスクトップに目当てのファイルがあり、他の端末はネットワークで繫がっている端末aのデスクトップを覗きに行く感じになってます
ファイルパス & filenameで参照したいんですがどのように書くべきなんでしょうか
のぞいてる？
スケベ！
ネットワークにつながったPCの名前に「\\」を付けるとアクセスできる
http://officetanaka.net/other/extra/tips15.htm
\\端末a:\Users\Admin\Desktopみたいな感じですね、ありがとうございます
ちなみにこれは端末aでも端末a以外でもこの書き方一つで参照出来るんでしょうか
端末aのフォルダを共有設定にしておかないとアクセスできない
共有になってれば、どのPCでもアクセスできる
エクスプローラーで共有フォルダを開いて、アドレスバーをコピペしてみると書き方が分かる
基本情報はJavaやCできない文系カスならExcel選べばいいでしょ
ワークシート関数を使いこなせれば十分で、VBAなんか全く要らん
1行まるごとコピーしているので重いのでしょうか？
dim a
a = sheet1.Range("コピーしたい範囲")
sheet2.Range("sheet1と同じ大きさ") = a
シート切り替える必要あんの？
1,"my name is taro"
2,""hello,world""
3,"hello,world"
これをエクセルに変換して期待値は以下としたい
どうしたらいい？
A B
1 my name is taro
2 "hello,world"
3 hello,world
あら不思議！
A B C
1 my name is taro
2 hello world""
3 hello,world
csvで"をｲﾝﾎﾟｰﾄするには
"を""にして
"でくくらないといけない
1. test.txtの中身を置換で「""」にマッチする箇所を「"""」として保存する
2. 拡張子をcsvにする。
期待値になったのでよしとする。
さらに一歩質問いいですか？
1,"my name
is taro"
2,"""hello,world"""
3,"hello,world"
これをエクセルにして期待値として以下としたい
A B
1 （※）
2 "hello,world"
3 hello,world
B1セル内に
my name
is taro
が格納され、適切に改行が入っていることを期待。
が、csvにしたら、ちゃんと期待値になってた。。
んー、、途中で改行が入るケースではまってた記憶があったんだが、、、、。これでよしとするか。。
"がつかないケースで、改行が入っている場合
test.txtの中身
1,my name
is taro
エクセルにして期待値として以下としたい
A B
1 （※）
（※)
B1セル内に
my name
is taro
が格納され、適切に改行が入っていることを期待。
拡張子をcsvに置き換える前に、"で囲むようにすればいいが、置換でなんとかならないものか。
http://d.hatena.ne.jp/stealthinu/20170127/p1
それのどこに配列が絡んでるんですかね？
昔方法探したけどできなかった
陰線処理ってエロくないのにちょっとエロく思える単語だよな
質問する奴はそういうスレだからともかく
答える奴が池沼なのはもう少し何とかならないか？
VBAだから無理か
えっ?
絡んで無いと思ってる?
今となっては初心者でも使う手法だと思うんだが。
それとも何か勘違いしてるのは俺か?
おまえだけやプロさんw
変数代入のときにSetステートメント使ってないから、変数にはセル値の配列が入ってるぞ
SQLServer側でセルの権限管理？？？
プロ？？
暗黙のルールぐらい守れやカス
セルの権限管理なんぞサーバーから見たら何の意味もないよ
ここにアクセスしたら不審サイトであると警告が出ました。
PCに詳しい人、これどういうしくみなんですか？
オレのPCは感染したのですか？
もう手遅れですね
アマギフ送ってくれたら直してあげられるよ
これ興味あるんだよな
使いやすい？
PlantUMLのエクセルバージョンのようなものを探してます
そうでないなら条件を明確に
さらにおしえてほしい
textに
"please call a "phone"."
と書かれているケースがあり、これをcsvとして読みこませる前に
表記が崩れないように整形を加える。
最終的に１セル内に
please call a "phone".
が入っていればよいです。
上記を実現するための整形の流れとしてどうしたらいい？
整形後は、phoneの間に"をさらに追加する。端っこの"には手を加えない。
"please call a ""phone""."
手作業ではなく、置換で自動化したい
この程度なら難しく無いでしょ。
正規表現置換の使えるエディタで
検索パターン
([^\,\"]+?)\"{1}([^\,\"]+?)
置換後
\1\"\"\"\2
などとすれば一応行ける
置換後
\1\"\"\2
だな、1個多かった
マクロでフォルダ内のエクセルのシート1をすべて結合するマクロを探しています。
ネットに転がってるのを実行してもうまくいかないです。
できればですが、シート名は統一していないないので、ブックないのシートのRange(A1)が日付だったシートのみを結合とか高度すぎて無理でしょうか。
私には可能ですし特に高度とも思いませんが、貴方にできるかどうかは知りません
少なくとも今目の前の問題を片付けたいだけであれば、諦めて手作業したほうが貴方にとっては早いでしょう
ファイル名が統一されてないからうまく行かないんなら、フリーソフト拾ってきて一括リネームしたら済む話かもしれない
何を試みて何かどううまく行かなかったのか、真に目的を達成するには何がどうなっていればいいのか
それくらいは頭を整理して明記しなさい
何がわからないのか何がしたいのか自分でわからないけど親切に要件をヒアリングして代わりに作ってほしい、ならそこらへんのSIerに相談しなさい
バカはお口にチャックな
sheet(1)
IsDate
この辺りで調べてみればそこまで難易度は高くないと思う
なるほど。難しいって事ですね。
>>933
sheet(1)だと中にはsheet(2)にデータがある場合があるんです。
なのでシートのA1が日付の時だけコピーとかしたかったのです。
試したけど、grepにひっかからず。
原因が分かりました。
([^\,\"]+?)\"{1}([^\,\"]+?)の後の半角スペースが入っていたので引っ掛からなかった。
半角スペース覗いたらできました。
1"2"3"4"5
これが君には、"24"、"3" の2つに見えるけど、
普通の人は、"2"、"4" の2つに見える
つまり、"3" がネスト・内側だとは判別できない。
内側を表すには、確実に、外側と区別できる方法が必要
例えば、""3"" のように、" が2個続いたら内側と解釈するとか、何らかの方法が必要だけど、
他に解釈されないような、特別な記号を作るのは難しい
半角スペースはそちらでの混入かと
Excel vba にも正規表現による置換機能あるよね？その検索パターン、置換する文字列をそのまま使えるのか？
長い、3文字で
VBAでXMLファイルを作成したいのですが、MSXML2というパーサ(?)を使わないといけないのですか？
Printなどを用いてテキストファイルを作成し、拡張子を.xmlに変更して作成した場合、何か問題があるのでしょうか
XMLファイルはただのテキストファイルだという認識だったのですが、「VBA XML 作成」などと検索すると
ほぼ全てのサイトでMSXML2を用いた方法が紹介されているので混乱しています
よろしくお願い致します
HTML, XML, JSON などは、それ用のライブラリを使う
勝手に作ったファイルは、パーサーで解析すると、
間違った形式・フォーマットで作られている、正しい形式ではない、という形式違反になる
正しい形式かどうかを、チェックするツールもある
前回はIEを直接開いて扱っていたのですが、
MSXMLという機能でIEを開かずにウェブサイトの情報を取得できると知り、
そちらの方が速そうだし面白そうなので挑戦しています。
そこで色々調べていたのですが、
http://d.hatena.ne.jp/end0tknr/20081115/1226755041
というブログに「MSXML2.DOMDocumentでxml responseをparseすることができます。」とあり、
Dim HttpReq As MSXML2.XMLHTTP
Dim DomDoc As MSXML2.DOMDocument
・・・
DomDoc.loadXML (HttpReq.responseText)
というコードが記述されていますが、ローカルウインドウを見るとXMLHTTP（XMLHTTP60）にresponseXMLというそれらしいプロパティがあります。
直接これをDOMとして扱うのは出来ないのでしょうか。
> MSXML2というパーサ(?)を使わないといけないのですか？
別にMSXML2なんて単なるライブラリだから使わなくてもいいよ
ただXMLにきちんと対応するのは面倒だからみんな使ってるだけ
>>945
ありがとうございます
大変勉強になりました
VBAでの後方参照(\1や\2のような)はExecuteメソッドが要る、
grepやpowershellみたいに簡潔にならんけどできないことはない
Set Matches = RE.Execute(対象文字列)
For Each Match In Matches
Match.submatch(0) & """""" & match.submatch(1)
Next Match
アクションを起こしたいのですが、方法はあるのでしょうか。
selection changeでは無理でした。
普通のWorksheet_Changeイベントを使う
出来ました！
こんなに簡単なことを見落としていたなんて情けない・・・
ありがとうございました。
そんなの企業次第だろ
部署での正式な業務ツールとしてのマクロは情シス部で仕様として管理される事になるし、個人での作成も配布も禁止されてる
禁止なのはOfficeマクロだけってなら分かるけどさ
ただ情シスでVBAし放題って、仕事としては辛いなあ、VBAが好きならいいけど
セキュリティ担当大臣のリテラシーがあれじゃ何言っても無駄かw
プログラムの自作禁止、バッチファイル等のスクリプトも自作禁止、
その他電算担当が意図しないものは禁止、
ただしExcel・Wordのマクロはプログラム外とおかしなやりとりさえしなければ自作可、だから、
お目こぼしいただいているといえばそうかも試練。
おまえも大差ないけんどねw
個人で作成したマクロなんてそう大勢に普及させるもんでもないし。
管理できる範囲で使うようには心がけてる程度
次のブログで紹介されているVBAを応用したいのですが、
ご助言をお願いしたく。
https://www.excel-prog.com/entry/outlook-mailitem2
現状は
「キーワードが含まれるファイルが見つからない場合は、ファイル添付しない」
という処理なのですが、
「キーワードが含まれるファイルが見つからない場合は、下書きを作成しない」
という処理に変更できないでしょうか。
質問以前の問題やけど言葉を途中できるな、失礼やぞ
「助言をお願いします」と言うもんや
自分で勉強する気がないならRPAを買おう
たいていのことは追加ソフトなしでできちゃうんだよな
わかる奴答えてやれや
下書きを作成しないというか、要するにメールを書き起こさないようにすればいいわけだよな
ならば、メール作成箇所の前に一行
If SearchFile(フォルダパス,Keyword)="" Then Exit Sub
等と追加して、SearchFile関数の戻り値が空文字列ならメール作成しない処理にすれば良い
ただし、エクセルファイル以外のファイルの存在確認をするならSearchFile関数の修正が必要だし、パス長が255文字を越えるフォルダやファイルを検索する場合はFileSystemObjectを使ったりしなきゃならない
powershellとbashのこと？
そんなコマケーことが気になるなら匿名掲示板なんて見るなよ、馬鹿じゃねーの？
Vista以降はコマンドライン版のC#コンパイラが標準で入ってるから、理論上はなんでも作れる
開発環境がないから手間はかかるけど
今の話題はアプリの追加インストールが禁止された環境で何が出来るか
少なくともVSCodeは必須と言っていい
それと最新の言語バージョンにあげたいからSDKも合わせてインストールしたいね
本家Visual Studioは要らないけどプレインストールだけで戦えるほど簡単でもない
でもVBE+VBAと比べるとC# 5+メモ帳でもまあいっかーこっちのほうがまだマシかもなーという気持ちになることは認める
アスペ乙
書いてあるのに>>976みたいなこと言うやつがいるって話だろ
Visual Studio Codeはまともじゃないと？
？？
あれはいいエディタだよ
C#の開発環境を整えようとしようものなら数百個のオープンソースライブラリが勝手に入ってくるから、
全部申請出して情シスにレビューさせたら何年かかることか
ああ日本語の問題ね
そんな厳しいチェックしてる企業は実際にはないよ
Microsoftが出してるツールならMicrosoftを信用してMicrosoftが採用したオプソの依存関係も信用する
これぐらいのバランス感覚が普通じゃないかな
どんだけセキュリティ弱い企業なのよ、うちだってまず無理だわ
だからこんな糞言語使ってるってのに
膨大な数のオプソのセキュリティをレビューできる専門家を何人も囲える企業ばかりじゃないだろ
囲える力があったとしてもそんな貴重な人材をツール申請のレビューアーとして使い潰す企業があったとしたらただのマヌケだわ
現実的に考えると企業としての信用で判断するしかないんだよ
そしてソースコードではなく信用で判断するなら信用した企業が信用した企業も再帰的に信用したって構わないだろ
業務で使用するオープンソースライブラリは許可済みのもの(レビュー済の特定のバージョンに限る)以外は全てレビュー必須だったぞ
厳密に適用するとVSやVSCodeのパッケージマネージャで入ってくるような膨大な数のOSSライブラリは全てレビューが必要
まあ誰も守ってなかったがw
それは違う理由で神経尖らせてるだけ
日本企業で.NETと言ったらVB.NETが代名詞になる
VBコミュニティのレベルの低さは底なしだ
彼らがVB.NETで作った業務システム(主にデスクトップアプリ)ってものすごく簡単に壊れるんだよ
OSやフレームワークの更新なんてしたらどうなるか分かったものじゃない
だから慎重になるの
オープンソースのセキュリティについて慎重になるのとはベクトルが違う
委託開発なら当たり前でしょ
だってライセンス許諾の主体は開発側ではなくユーザーなんだから、
使用しているライブラリをユーザーに把握させユーザー自身で許諾させることは法的に当然必要なプロセスだ
ちなみに991は自社利用するときの話な
ソース全チェックなんて現実的なアイデアじゃないからたちまち形骸化するよね
信用のおける企業が発行あるいは採用してる、世界規模で採用実績が十分に多い、信用のおける団体が認証している、といった基準で判断しないとITビジネスのスピードに追いつけない
やってもライセンス条項のチェックが精一杯だと思う
急にチェックし始めるのは良くわからんな
読めるかどうかじゃなくて責任の所在の問題だ
オープンソースのほとんどは自己責任だから、使って重大な損害が生じたときに賠償請求できない
ライセンスについても「あくまで俺の書いたコードについてのライセンスであり、依存してる他のライブラリは知らん」が普通だし
jreやflashなんてどうやって検証してるのさ
ソースを全部チェックしなきゃインストールしちゃだめなどと素っ頓狂なことを言い出す企業のあって無いようなセキュリティ意識よりよっぽど安心
逆。
だからチェックせずに禁止する所が多い。
新しいスレッドを立ててください。
life time: 68日 17時間 1分 3秒
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php
レス数が1000を超えています。これ以上書き込みはできません。
ニュース
- 【野球】セ･リーグ T 7-0 D [4/19] 阪神4連勝！木浪先制打、森下4号、大山1号ソロ含む3安打、青柳6回無失点 中日完封負け連敗 [鉄チーズ烏★]
- 【滋賀】いなり寿司を万引きしたとして誤認逮捕され、82時間拘束された女性、涙ながらに苦しい胸の内を明かす… ★2 [Hitzeschleier★]
- 築地市場跡地に5万人規模スタジアム建設へ 事業者は三井不動産など [ぐれ★]
- 【新潟】“カラスの巣”による停電防止へ協力を！１年間で約６０００個の巣撤去も「イタチごっこ…」 [イタチゴッド★]
- サントリーのひろゆき氏起用「伊右衛門 特茶」広告が物議 サントリー「ご意見は今後の参考にさせていただきます」 [Ailuropoda melanoleuca★]
- 長渕剛が誹謗中傷に《具合が悪い》と告白…《話があるなら、来てほしい》と性被害告発の元女優に呼びかけ [フォーエバー★]
- 【実況】博衣こよりがえちえち学力テストをした件🧪 ★3
- 【実況】博衣こよりがえちえち学力テストをした件🧪 ★4
- モバイルバッテリー充電したまま外出、簡易宿泊所を焼き２人死亡 [256556981]
- なぜジャップ連呼しなくなったのか？ 昔は日本の衰退で大盛り上がりだったやんw [205023192]
- 【情勢調査】乙武、須藤元気や飯山陽にすら負けてるwvw【日経】 [786835273]
- はりもぐハーリーってアニメ知ってる奴いる？