Excel VBA 質問スレ Part65
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (ワッチョイ 3bda-drwQ)
2020/03/17(火) 16:27:20.88ID:hh8LiIgR0ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part64
https://mevius.5ch.net/test/read.cgi/tech/1575297834/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
745デフォルトの名無しさん (ワッチョイ a7f1-trzR)
2020/05/01(金) 00:54:45.32ID:+DHzH5tv0746デフォルトの名無しさん (ワッチョイ 67ac-fZS3)
2020/05/01(金) 09:08:51.86ID:GU+C/Jnt0 はいつぎの方
747デフォルトの名無しさん (ワッチョイ dff0-h83k)
2020/05/01(金) 10:00:32.66ID:6b7IUzcd0 Sub Sample2()
Dim Date1 As Date
Dim Date2 As Date
Dim i As Long
Date1 = "2018/1/1"
Date2 = "2018/4/30"
For i = 0 To DateDiff("d", Date1, Date2)
Cells(i + 1, 1) = DateAdd("d", i, Date1)
Exit For
Next i
End Sub
VBA初心者です
上記を実行すると強制終了してしまいます
どうしてなんでしょうか?
Dim Date1 As Date
Dim Date2 As Date
Dim i As Long
Date1 = "2018/1/1"
Date2 = "2018/4/30"
For i = 0 To DateDiff("d", Date1, Date2)
Cells(i + 1, 1) = DateAdd("d", i, Date1)
Exit For
Next i
End Sub
VBA初心者です
上記を実行すると強制終了してしまいます
どうしてなんでしょうか?
748デフォルトの名無しさん (ワッチョイ c7ce-ts7H)
2020/05/01(金) 10:50:57.53ID:eM3SnLnx0749デフォルトの名無しさん (ワッチョイ bff7-INiV)
2020/05/01(金) 12:14:21.59ID:gUWwrcBK0 "4/30/2018"
750デフォルトの名無しさん (アウアウエー Sa9f-kSwD)
2020/05/01(金) 13:10:21.56ID:n1w4ahs6a #で括ってみては
751デフォルトの名無しさん (JP 0H9f-r+sk)
2020/05/01(金) 14:08:14.73ID:Lu25V/ckH 学術巨大掲示板群: アルファ・ラボ
ttp://x0000.net
物理学 化学 数学 生物学 天文学 地理地学
IT 電子 工学 国語 方言 言語学 など
PS 連続と離散を統一した!
ttp://x0000.net/topic.aspx?id=3709-0
ttp://x0000.net
物理学 化学 数学 生物学 天文学 地理地学
IT 電子 工学 国語 方言 言語学 など
PS 連続と離散を統一した!
ttp://x0000.net/topic.aspx?id=3709-0
752デフォルトの名無しさん (ワッチョイ 67ac-fZS3)
2020/05/01(金) 14:08:57.29ID:GU+C/Jnt0 >>747
回答としては748の通り
なぜこうなるのかわからない場合
・ブレークポイントを使ってどういうふうに処理が進んでいるか確認してみ?
・気になる行をコメントアウトをしてみる
などをするがよろし
回答としては748の通り
なぜこうなるのかわからない場合
・ブレークポイントを使ってどういうふうに処理が進んでいるか確認してみ?
・気になる行をコメントアウトをしてみる
などをするがよろし
753デフォルトの名無しさん (ワッチョイ a78e-MvRk)
2020/05/01(金) 15:46:49.34ID:O26w7br10 どうして馬鹿ばかり来るのか
754デフォルトの名無しさん (ラクッペペ MM8f-aR2J)
2020/05/01(金) 15:48:19.31ID:e9rmxAXgM >>753
ようこそ!
ようこそ!
>>753
Welcome to the real world !!
Welcome to the real world !!
756デフォルトの名無しさん (ワッチョイ e7ad-GPK9)
2020/05/01(金) 17:52:33.49ID:XmUvZ7vC0757デフォルトの名無しさん (ワッチョイ dff0-h83k)
2020/05/02(土) 03:52:34.32ID:gsxD2EFS0 皆さんありがとうございます。
初心者から脱出できるように勉強します
初心者から脱出できるように勉強します
758デフォルトの名無しさん (ワッチョイ df01-lZTE)
2020/05/02(土) 04:16:39.04ID:WlPNyw+i0 がんばれ
759デフォルトの名無しさん (ワッチョイ 67ac-fZS3)
2020/05/02(土) 07:47:42.55ID:8I2uZvpu0 会社が休みに入って書き込みが減ったな
760デフォルトの名無しさん (ワッチョイ a78f-h83k)
2020/05/02(土) 09:40:27.37ID:7uDOF2SH0 IE自動操作のマクロで
今まで動いていたが動かなくなる
↓
コードに変化を加えると動く
(スペースでも改行でもコメントでも、プロシージャに変化があると動くようになる)
これはどういうあれなんや
今まで動いていたが動かなくなる
↓
コードに変化を加えると動く
(スペースでも改行でもコメントでも、プロシージャに変化があると動くようになる)
これはどういうあれなんや
761デフォルトの名無しさん (ワッチョイ df02-h83k)
2020/05/02(土) 10:47:09.64ID:8Sc54whm0 全角のスペースとかキーワード途中での改行とか
無意識にやらかしたんでないの
無意識にやらかしたんでないの
762デフォルトの名無しさん (ワッチョイ a7ad-ur4w)
2020/05/02(土) 11:30:23.32ID:Z+zF8E0a0 PowerQueryをVBAで使いたい初心者
>>690です。
変数に入れるファイルパスを、テーブルにしておかないと
PowerQueryは読んでくれないんだ。そのテーブル名とか列名も
指定するんだ、へ~、という現状からこの連休中に抜け出したいです。
テレワークからの連休突入前に先輩たちに投げた質問の答えは
「zoom飲み会やるから、入れとけよ。」でした。
>>690です。
変数に入れるファイルパスを、テーブルにしておかないと
PowerQueryは読んでくれないんだ。そのテーブル名とか列名も
指定するんだ、へ~、という現状からこの連休中に抜け出したいです。
テレワークからの連休突入前に先輩たちに投げた質問の答えは
「zoom飲み会やるから、入れとけよ。」でした。
763デフォルトの名無しさん (ワッチョイ dfb5-EVni)
2020/05/02(土) 11:33:04.58ID:qrZctUhv0 VBAむずいが努力だわ
昇級幅が大きい時代の残りカスの50代の職場のおっさん達が給料ばっかり高くて
ExcelのSUM関数すらわからないレベルで
電卓で計算してテンキーで手打ち
そんな信じられない存在がいる職場
「俺のやり方があるんだよ!」
とか、心の底から腹が立つ
大手で組合もあるからリストラはされないんだが
そんなやつを駆逐したい
エクセル関数は職場で使うものはだいたい使っておっさん共の10倍は早くやってきたが
更なる憎しみだけが俺のVBA勉強へのモチベーションになってる
昇級幅が大きい時代の残りカスの50代の職場のおっさん達が給料ばっかり高くて
ExcelのSUM関数すらわからないレベルで
電卓で計算してテンキーで手打ち
そんな信じられない存在がいる職場
「俺のやり方があるんだよ!」
とか、心の底から腹が立つ
大手で組合もあるからリストラはされないんだが
そんなやつを駆逐したい
エクセル関数は職場で使うものはだいたい使っておっさん共の10倍は早くやってきたが
更なる憎しみだけが俺のVBA勉強へのモチベーションになってる
764デフォルトの名無しさん (ワッチョイ 2791-x7Cl)
2020/05/02(土) 11:34:32.51ID:jcfx6zQ80 >>760
そもそも、どう動かなくなるんだ?
エラーが出るのか?
Excel再起動で動くようになるか?
PC再起動で動くようになるか?
昔よくあったのがデバックやStopのように勝手に途中で止まるという奴。
F5で続行出来るんだけどまた途中で止まる。
Excelの再起動では治らんがPC再起動で治る。
そもそも、どう動かなくなるんだ?
エラーが出るのか?
Excel再起動で動くようになるか?
PC再起動で動くようになるか?
昔よくあったのがデバックやStopのように勝手に途中で止まるという奴。
F5で続行出来るんだけどまた途中で止まる。
Excelの再起動では治らんがPC再起動で治る。
765デフォルトの名無しさん (ワッチョイ c7ce-ts7H)
2020/05/02(土) 11:44:58.03ID:u3ozWGyy0 >>760
Win10ではIEの動作が変わったのでVBAからコントロールするのがかなり大変になった
うまく動かない時は、ブラウザのキャッシュとかクッキーとか、WEBサーバの応答のタイミングとか調べる
変更しなくても時間を置けば動かないか、Excelを再起動したらどうか、パケットモニターとか調べた?
Win10ではIEの動作が変わったのでVBAからコントロールするのがかなり大変になった
うまく動かない時は、ブラウザのキャッシュとかクッキーとか、WEBサーバの応答のタイミングとか調べる
変更しなくても時間を置けば動かないか、Excelを再起動したらどうか、パケットモニターとか調べた?
766デフォルトの名無しさん (アウアウカー Sa3b-QanA)
2020/05/02(土) 11:52:59.52ID:be7YjfFea 初めてのマクロでやりたいことはほぼ出来たのですが、新規ブックをコピー元のマクロごとコピーする方法が分かりません
xlsmで保存することは出来るのですが、どうもマクロの参照先がコピー元になっているらしく、新規ブックからマクロを実行するとコピー元のファイルをわざわざ開く形になってしまっています
マクロごとコピーする方法があればご教示ください
xlsmで保存することは出来るのですが、どうもマクロの参照先がコピー元になっているらしく、新規ブックからマクロを実行するとコピー元のファイルをわざわざ開く形になってしまっています
マクロごとコピーする方法があればご教示ください
767デフォルトの名無しさん (ワッチョイ 2791-x7Cl)
2020/05/02(土) 11:53:28.87ID:jcfx6zQ80 >>762
初心者がPowerQuery使うの?
その前にやることがあると思うんだが。
まず、テキストファイルを扱えるようになりなよ。
自在にテキストファイルを扱えるようになれば、どんな形式のCSVでも関係無い。
セル内改行も、そのCSVのフォーマットが分かってないのが原因。
普通はデ−タに改行が入ってるならレコード間の改行と区別する何かがある筈。
1レコードの項目数が必ず決まっている(1レコードのカンマの数が決まっている)とか、そのテキストデ―タは必ずダブルクォーテーションで挟まれており、データ内の改行はダブルクォーテーションのInとOutの間のどこかにあるとか。
もちろんPowerQueryでも良いんだけど、それでたまたま解決出来そうだから飛び付くのは良くない。
こんなもの基本的な処理の組み合わせで出来るんだから、PowerQueryで有利な何かも無いのに無理矢理使おうとしてるように見える。
初心者がPowerQuery使うの?
その前にやることがあると思うんだが。
まず、テキストファイルを扱えるようになりなよ。
自在にテキストファイルを扱えるようになれば、どんな形式のCSVでも関係無い。
セル内改行も、そのCSVのフォーマットが分かってないのが原因。
普通はデ−タに改行が入ってるならレコード間の改行と区別する何かがある筈。
1レコードの項目数が必ず決まっている(1レコードのカンマの数が決まっている)とか、そのテキストデ―タは必ずダブルクォーテーションで挟まれており、データ内の改行はダブルクォーテーションのInとOutの間のどこかにあるとか。
もちろんPowerQueryでも良いんだけど、それでたまたま解決出来そうだから飛び付くのは良くない。
こんなもの基本的な処理の組み合わせで出来るんだから、PowerQueryで有利な何かも無いのに無理矢理使おうとしてるように見える。
768デフォルトの名無しさん (ワッチョイ 075e-ts7H)
2020/05/02(土) 12:25:11.14ID:E33c3GVR0 >>766
自分ではやったことないけどモジュールをそのままコピーするなら
http://officetanaka.net/excel/vba/vbe/07.htm#sample04
こういう方法じゃないかな
自分でやったことがあるのは
https://oshiete.goo.ne.jp/qa/756026.html
こちらの方法で、コードを一行ずつ書いていくことになります
ほんとにまるごとコピーでいいなら上の方法でしょうけど、thisworkbookとか
activeworkbookとか場合によって挙動が変わるような内容なら下の方法
じゃないかな
自分ではやったことないけどモジュールをそのままコピーするなら
http://officetanaka.net/excel/vba/vbe/07.htm#sample04
こういう方法じゃないかな
自分でやったことがあるのは
https://oshiete.goo.ne.jp/qa/756026.html
こちらの方法で、コードを一行ずつ書いていくことになります
ほんとにまるごとコピーでいいなら上の方法でしょうけど、thisworkbookとか
activeworkbookとか場合によって挙動が変わるような内容なら下の方法
じゃないかな
769デフォルトの名無しさん (ワッチョイ c7ce-ts7H)
2020/05/02(土) 12:32:45.18ID:u3ozWGyy0770デフォルトの名無しさん (アウアウカー Sa3b-QanA)
2020/05/02(土) 13:09:24.75ID:me7NM96ka771デフォルトの名無しさん (スッップ Sdff-x7Cl)
2020/05/02(土) 15:03:15.18ID:fjHWXn6td772デフォルトの名無しさん (ワッチョイ dfea-9YRN)
2020/05/02(土) 15:03:21.75ID:HkfyT0U40773デフォルトの名無しさん (ワッチョイ dfea-9YRN)
2020/05/02(土) 15:06:50.76ID:HkfyT0U40 >>771
そそ。D&Dでパワポにノートを読み上げるマクロをぶっ込めるvbs作ったんだけど、よく考えるとちょつと怖くなった。
そそ。D&Dでパワポにノートを読み上げるマクロをぶっ込めるvbs作ったんだけど、よく考えるとちょつと怖くなった。
774デフォルトの名無しさん (ワッチョイ a7ad-ur4w)
2020/05/02(土) 15:24:24.68ID:Z+zF8E0a0775デフォルトの名無しさん (ワッチョイ bf2f-WRor)
2020/05/02(土) 15:37:35.14ID:lt4kIJ5o0776デフォルトの名無しさん (アークセー Sx5b-apiA)
2020/05/02(土) 15:54:13.09ID:WuBkO5o5x >>762
テーブルとしての構造化参照が不要なら別にテーブルにしなくても「空のクエリ」でリテラル定数を返す接続クエリを作るなり、パラメータを登録するなりすれば良い
詳細エディタに
= "テーブル名"
って一行書けば"テーブル名"を返す定数クエリが出来上がる
あと、Letの前行に
(path as text, table_name as text, column_name as text)=>
とか追加すれば、path とtable_nameとcolumn_nameという三つのtext型の引数をダイアログ入力でクエリに渡せるようになるので、クエリ式の側をソース=Csv.Document(File.Contents(path))みたいに書けば良い。
どうしてもVBAからPower Queryをいじりたいなら
Workbook.Queries(Index).Formulaでクエリの式が読み書きできるので、Replaceを使うなりして好きにいじったらいいんじゃないの
テーブルとしての構造化参照が不要なら別にテーブルにしなくても「空のクエリ」でリテラル定数を返す接続クエリを作るなり、パラメータを登録するなりすれば良い
詳細エディタに
= "テーブル名"
って一行書けば"テーブル名"を返す定数クエリが出来上がる
あと、Letの前行に
(path as text, table_name as text, column_name as text)=>
とか追加すれば、path とtable_nameとcolumn_nameという三つのtext型の引数をダイアログ入力でクエリに渡せるようになるので、クエリ式の側をソース=Csv.Document(File.Contents(path))みたいに書けば良い。
どうしてもVBAからPower Queryをいじりたいなら
Workbook.Queries(Index).Formulaでクエリの式が読み書きできるので、Replaceを使うなりして好きにいじったらいいんじゃないの
777デフォルトの名無しさん (アウアウカー Sa3b-QanA)
2020/05/02(土) 16:19:14.33ID:be7YjfFea778デフォルトの名無しさん (アウアウカー Sa3b-QanA)
2020/05/02(土) 17:01:28.47ID:be7YjfFea 何度もすみません
アドインを通常のマクロのように、図形などで作ったボタンに割り当てることはできないのでしょうか?
アドインを通常のマクロのように、図形などで作ったボタンに割り当てることはできないのでしょうか?
779デフォルトの名無しさん (ワッチョイ 677f-v3HX)
2020/05/02(土) 19:33:07.66ID:I/r+DzJx0 デバッグ中からリセットをかける際に特定の処理をさせるようなイベントプロシージャって無いでしょうか
780デフォルトの名無しさん (スッップ Sdff-x7Cl)
2020/05/02(土) 21:25:13.04ID:fjHWXn6td781デフォルトの名無しさん (スッップ Sdff-x7Cl)
2020/05/02(土) 21:28:27.20ID:fjHWXn6td >>778
アドインの場合、メインは別のブックになるわけだからアドインのシートとかは表示されないという基本は分かってる?
それが分かっていれば図形等で作ったボタンを配置する場所もないと分かる筈。
普通はメニュー(リボン)に作る。
アドインの場合、メインは別のブックになるわけだからアドインのシートとかは表示されないという基本は分かってる?
それが分かっていれば図形等で作ったボタンを配置する場所もないと分かる筈。
普通はメニュー(リボン)に作る。
782デフォルトの名無しさん (ワッチョイ a78f-h83k)
2020/05/02(土) 22:09:54.71ID:7uDOF2SH0783デフォルトの名無しさん (ワッチョイ 67ac-fZS3)
2020/05/02(土) 22:19:21.49ID:8I2uZvpu0 はあ、そうですか。しらんがな
784デフォルトの名無しさん (ワッチョイ 7fda-ts7H)
2020/05/02(土) 22:37:34.51ID:zUyEitTf0785デフォルトの名無しさん (ワッチョイ 7fda-ts7H)
2020/05/02(土) 22:45:55.01ID:zUyEitTf0 多分、
Readystateコンプしてるのにエラーでるな〜
↓こうしちゃえ
On Error Resume Next
Do
IEにカキコ
Sleep 1000
Loop While なんとか
On Error Goto 0
長くて面倒くせえなぁ〜
関数化しちゃえ
で、オブジェクトを関数に渡して嵌る罠なんだと思う。
Readystateコンプしてるのにエラーでるな〜
↓こうしちゃえ
On Error Resume Next
Do
IEにカキコ
Sleep 1000
Loop While なんとか
On Error Goto 0
長くて面倒くせえなぁ〜
関数化しちゃえ
で、オブジェクトを関数に渡して嵌る罠なんだと思う。
786デフォルトの名無しさん (アメ MM6b-p7s+)
2020/05/02(土) 23:09:24.77ID:FzDABaHmM >>782
それ、IEと関係なく、Excelの更新が原因でvba関係にエラー起きてるやつでは?
ファイル開くときに「エラーがあります、可能な範囲で修正しますか」みたいなアラートがでて、はいを押すとコードが全削除される。
それ、IEと関係なく、Excelの更新が原因でvba関係にエラー起きてるやつでは?
ファイル開くときに「エラーがあります、可能な範囲で修正しますか」みたいなアラートがでて、はいを押すとコードが全削除される。
787デフォルトの名無しさん (ワッチョイ dfb5-EVni)
2020/05/02(土) 23:36:58.40ID:qrZctUhv0 教えてくださいまし。。
画像のように日によって参加人数も競技した数も違うものを
受付した人と競技の範囲の値のみ
隣のシートに貼り付けるようにしたいですが
エクセル関数のエラーや未計算が都合上どうしても残ってしまい残ってうまく行かず…
https://i.imgur.com/Sd2Afas.jpg
https://i.imgur.com/MfnIQSU.jpg
https://i.imgur.com/lEQTEIe.jpg
受付した人の数字が空白になるまでは空白になるまで、競技も空白になるまで
その範囲のみをコピーというか可能でしょうか
画像のように日によって参加人数も競技した数も違うものを
受付した人と競技の範囲の値のみ
隣のシートに貼り付けるようにしたいですが
エクセル関数のエラーや未計算が都合上どうしても残ってしまい残ってうまく行かず…
https://i.imgur.com/Sd2Afas.jpg
https://i.imgur.com/MfnIQSU.jpg
https://i.imgur.com/lEQTEIe.jpg
受付した人の数字が空白になるまでは空白になるまで、競技も空白になるまで
その範囲のみをコピーというか可能でしょうか
788デフォルトの名無しさん (ワッチョイ dfb5-EVni)
2020/05/02(土) 23:39:12.79ID:qrZctUhv0 Sub 貼り付け()
Dim gy As Long
Dim re As Long Dim
Dim Tensu As String
Dim Kekka As String
Sheets(Tensu) = "点数"
Sheets() = "結果シート"
Sheets(Tensu).Select
With Range("C5")
gy = .End(xlDown).Row
If .Offset(1).Value = "" Then
gy = .Row re = .End(xlToRight).Column
If .Offset(, 1).Value = "" Then
re = .Column With .Resize(gy - .Row + 1, re - .Column + 1)
Sheets(Tensu).Select Range("H8").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With End With
End Sub
これで作ってみたのですがやはり関数エラーが
邪魔してエラーになります
行も列も両方を空白までループして貼り付け
むずぃす
Dim gy As Long
Dim re As Long Dim
Dim Tensu As String
Dim Kekka As String
Sheets(Tensu) = "点数"
Sheets() = "結果シート"
Sheets(Tensu).Select
With Range("C5")
gy = .End(xlDown).Row
If .Offset(1).Value = "" Then
gy = .Row re = .End(xlToRight).Column
If .Offset(, 1).Value = "" Then
re = .Column With .Resize(gy - .Row + 1, re - .Column + 1)
Sheets(Tensu).Select Range("H8").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With End With
End Sub
これで作ってみたのですがやはり関数エラーが
邪魔してエラーになります
行も列も両方を空白までループして貼り付け
むずぃす
789デフォルトの名無しさん (ワッチョイ 7fda-ts7H)
2020/05/02(土) 23:46:04.45ID:zUyEitTf0 画像から式を逆算するクイズみたいになっとる。
790デフォルトの名無しさん (ワッチョイ 878f-ts7H)
2020/05/02(土) 23:48:07.49ID:TR3WF5Jt0 人、それをデバッグと呼ぶ
791デフォルトの名無しさん (ワッチョイ 7fda-ts7H)
2020/05/02(土) 23:48:58.13ID:zUyEitTf0 エラーってそっちのエラーかい!
If IsError(セルの値) = False Then の時だけ実行とか。
If IsError(セルの値) = False Then の時だけ実行とか。
792デフォルトの名無しさん (ワッチョイ 7fda-ts7H)
2020/05/02(土) 23:51:07.35ID:zUyEitTf0 それか、ValueじゃなくてTextでエラー回避。
793デフォルトの名無しさん (ワッチョイ c7ce-ts7H)
2020/05/03(日) 00:01:44.09ID:fR4zqWYb0 >>788
全体的にめちゃくちゃで、それじゃ関数エラー以前にまったく動かないはずなんだけど、本当にそれで途中までは動いてるの?
スマホでポチポチ書き写すんじゃなくて、できるだけPCでそのままコピペしてくれない?
全体的にめちゃくちゃで、それじゃ関数エラー以前にまったく動かないはずなんだけど、本当にそれで途中までは動いてるの?
スマホでポチポチ書き写すんじゃなくて、できるだけPCでそのままコピペしてくれない?
794デフォルトの名無しさん (ワッチョイ dfb5-EVni)
2020/05/03(日) 00:26:05.49ID:EGR1WLcw0 >>793
Sub test()
Dim gy As Long, re As Long
With Range("C5") gy = .End(xlDown).Row
If .Offset(1).Value = "" Then gy = .Row
cl = .End(xlToRight).Column
If .Offset(, 1).Value = "" Then re = .Column With .Resize(gy - .Row + 1, re - .Column + 1) Range("AA5").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End With
End Sub
元々作これで動いたのを確認しやしたが
無力過ぎて悔しいっす
そもそもエクセル関数の方のエラーが出ないようにif関数で空白の場合はセルも空白にしようかと思ったけどそもそも他部署の管轄
俺の圧倒的力の無さですわこりゃ
Sub test()
Dim gy As Long, re As Long
With Range("C5") gy = .End(xlDown).Row
If .Offset(1).Value = "" Then gy = .Row
cl = .End(xlToRight).Column
If .Offset(, 1).Value = "" Then re = .Column With .Resize(gy - .Row + 1, re - .Column + 1) Range("AA5").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End With
End Sub
元々作これで動いたのを確認しやしたが
無力過ぎて悔しいっす
そもそもエクセル関数の方のエラーが出ないようにif関数で空白の場合はセルも空白にしようかと思ったけどそもそも他部署の管轄
俺の圧倒的力の無さですわこりゃ
795デフォルトの名無しさん (ワッチョイ dfb5-EVni)
2020/05/03(日) 00:31:44.93ID:EGR1WLcw0 というか完全に圧倒的勘違いでした
動いたと思っていざ使おうとしたら
他部署からのデータが画像のように
参加してない選手のところにセルにエラーがついてくる仕様なのに気付いて動かなかった
これが正解です
頭おかしくなってますわ
動いたと思っていざ使おうとしたら
他部署からのデータが画像のように
参加してない選手のところにセルにエラーがついてくる仕様なのに気付いて動かなかった
これが正解です
頭おかしくなってますわ
796デフォルトの名無しさん (ワッチョイ c7ce-ts7H)
2020/05/03(日) 00:38:44.40ID:fR4zqWYb0 >>794
ワークシートの数式を消しちゃっていいんなら、エラーの出てるセルを全部空白にするのは簡単
Sub エラー全部消す()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If IsError(c.Value) Then c = ""
Next
End Sub
ワークシートの数式を消しちゃっていいんなら、エラーの出てるセルを全部空白にするのは簡単
Sub エラー全部消す()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If IsError(c.Value) Then c = ""
Next
End Sub
797デフォルトの名無しさん (ワッチョイ c7ce-ts7H)
2020/05/03(日) 01:01:50.07ID:fR4zqWYb0798デフォルトの名無しさん (ワッチョイ c7ce-ts7H)
2020/05/03(日) 01:03:01.84ID:fR4zqWYb0 それとも選手名も必要?
799デフォルトの名無しさん (ワッチョイ dfb5-EVni)
2020/05/03(日) 01:37:52.66ID:EGR1WLcw0800デフォルトの名無しさん (ワッチョイ dfb5-EVni)
2020/05/03(日) 01:46:13.78ID:EGR1WLcw0 受付の行が空白のセルになるまでループしつつ
競技の列が空白になるまでループ??
んん?違うか
GWになのにExcel開いてずっとマクロで悩むとは…とんだステイホームですわ
競技の列が空白になるまでループ??
んん?違うか
GWになのにExcel開いてずっとマクロで悩むとは…とんだステイホームですわ
801デフォルトの名無しさん (ワッチョイ 877c-mIzA)
2020/05/03(日) 01:55:50.90ID:yO9oP2CW0 ここに書かずなぜ動かして試さない…
802デフォルトの名無しさん (ワッチョイ c7ce-ts7H)
2020/05/03(日) 02:10:58.89ID:fR4zqWYb0 >>799
はい、できたよ
Sub 数字だけコピー()
Dim rr As Long
Dim cc As Long
Dim dat As Variant
rr = Cells(Rows.Count, 3).End(xlUp).Row - 4 '高さを求める
cc = Cells(5, Columns.Count).End(xlToLeft).Column - 2 '幅を求める
dat = Range("C5").Resize(rr, cc).Value 'データを変数に入れる
Range("AA5").Resize(rr, cc).Value = dat 'コピーする
End Sub
はい、できたよ
Sub 数字だけコピー()
Dim rr As Long
Dim cc As Long
Dim dat As Variant
rr = Cells(Rows.Count, 3).End(xlUp).Row - 4 '高さを求める
cc = Cells(5, Columns.Count).End(xlToLeft).Column - 2 '幅を求める
dat = Range("C5").Resize(rr, cc).Value 'データを変数に入れる
Range("AA5").Resize(rr, cc).Value = dat 'コピーする
End Sub
803デフォルトの名無しさん (ワッチョイ c7ce-ts7H)
2020/05/03(日) 02:15:53.76ID:fR4zqWYb0 ごめん
ちょっとだけ修正させて
Sub 数字だけコピー()
Dim rr As Long
Dim cc As Long
Dim dat As Variant
rr = Range("C4").End(xlDown).Row - 4 '高さを求める
cc = Range("B5").End(xlToRight).Column - 2 '幅を求める
dat = Range("C5").Resize(rr, cc).Value 'データを変数に入れる
Range("AA5").Resize(rr, cc).Value = dat 'コピーする
End Sub
ちょっとだけ修正させて
Sub 数字だけコピー()
Dim rr As Long
Dim cc As Long
Dim dat As Variant
rr = Range("C4").End(xlDown).Row - 4 '高さを求める
cc = Range("B5").End(xlToRight).Column - 2 '幅を求める
dat = Range("C5").Resize(rr, cc).Value 'データを変数に入れる
Range("AA5").Resize(rr, cc).Value = dat 'コピーする
End Sub
804デフォルトの名無しさん (ワッチョイ df01-lZTE)
2020/05/03(日) 03:59:51.25ID:PK0PPm520 この程度のものを人に聞かなきゃできないようじゃ先が思いやられる
これで職場の50代批判できるのかと・・・・
しかも最初のこれ>>787
もう少し日本語の説明能力上げたほうがいいんじゃないか
君何度もここでいろんな質問してるよね?質問の仕方からして酷すぎる
説明の例1:
この画像で言えばC5からE13の範囲を別シートにコピーしたいです
https://i.imgur.com/Sd2Afas.jpg
コピーしたい範囲は変化します。例えばこの場合はC5からI9までをコピーしたいです
http://i.imgur.com/MfnIQSU.jpg
説明の例2:
こういう画像をペイントで作る
https://i.imgur.com/u9Vhnj1.jpg
はぁ・・・おれ深夜に何やってんだか・・・
これで職場の50代批判できるのかと・・・・
しかも最初のこれ>>787
もう少し日本語の説明能力上げたほうがいいんじゃないか
君何度もここでいろんな質問してるよね?質問の仕方からして酷すぎる
説明の例1:
この画像で言えばC5からE13の範囲を別シートにコピーしたいです
https://i.imgur.com/Sd2Afas.jpg
コピーしたい範囲は変化します。例えばこの場合はC5からI9までをコピーしたいです
http://i.imgur.com/MfnIQSU.jpg
説明の例2:
こういう画像をペイントで作る
https://i.imgur.com/u9Vhnj1.jpg
はぁ・・・おれ深夜に何やってんだか・・・
805デフォルトの名無しさん (ワッチョイ a7ad-ur4w)
2020/05/03(日) 09:15:39.22ID:iPr/hZRI0 >>776
ご助言ありがとうございます!
教えていたことの意味を調べながら勉強します。
ちなみにうちの職場では55歳のオバハンが独学で書いてるVBA
が一番「きれい」だそうで。教科書通りで、整理整頓されてる感じで
非エンジニアには優しいんです。(簡単なものしか作らない人ですけど。)
でも「リーダブルコード」とか「VBA実践のためのなんちゃら」とか
読んで勉強してるの見かけたので、心がけは見習いたいです。
ご助言ありがとうございます!
教えていたことの意味を調べながら勉強します。
ちなみにうちの職場では55歳のオバハンが独学で書いてるVBA
が一番「きれい」だそうで。教科書通りで、整理整頓されてる感じで
非エンジニアには優しいんです。(簡単なものしか作らない人ですけど。)
でも「リーダブルコード」とか「VBA実践のためのなんちゃら」とか
読んで勉強してるの見かけたので、心がけは見習いたいです。
806デフォルトの名無しさん (ワッチョイ 87e6-ts7H)
2020/05/03(日) 09:19:57.52ID:6v/wuiGx0 > Sheets(Tensu) = "点数"
> Sheets() = "結果シート"
きれいだとか汚いとかいう以前に読む気が失せるな
入門書買ったとか言ってなかったっけ?
> Sheets() = "結果シート"
きれいだとか汚いとかいう以前に読む気が失せるな
入門書買ったとか言ってなかったっけ?
807デフォルトの名無しさん (ワッチョイ e7ad-GPK9)
2020/05/03(日) 09:20:36.28ID:2hdRjZho0 >>805
>独学で書いてるVBAが一番「きれい」
>教科書通りで、整理整頓
それはあるかもな
プログラマだとなまじ他言語の知識があるために
トリッキーなことやりだす奴が一定数いるからな
効率が良い面もあるだろうが他人が理解しにくい
>独学で書いてるVBAが一番「きれい」
>教科書通りで、整理整頓
それはあるかもな
プログラマだとなまじ他言語の知識があるために
トリッキーなことやりだす奴が一定数いるからな
効率が良い面もあるだろうが他人が理解しにくい
808デフォルトの名無しさん (ワッチョイ 87e6-ts7H)
2020/05/03(日) 09:35:40.45ID:6v/wuiGx0 >>803
生血プログラマーなら1行にするべきである
生血プログラマーなら1行にするべきである
809デフォルトの名無しさん (ワッチョイ 7fda-ts7H)
2020/05/03(日) 10:26:05.54ID:9LS/Ekj10 ああ、
If a = True Then
a = False
ElseIf a = False Then
a = True
End If
みたいなやつか。
大っ嫌いだけどな。
If a = True Then
a = False
ElseIf a = False Then
a = True
End If
みたいなやつか。
大っ嫌いだけどな。
810デフォルトの名無しさん (ワッチョイ c7da-ts7H)
2020/05/03(日) 13:07:08.60ID:T/wh1/tE0 a = Not(a)
でいいんじゃね
でいいんじゃね
811デフォルトの名無しさん (ワッチョイ 67ac-fZS3)
2020/05/03(日) 13:43:00.43ID:AWBCl49n0 エスパースレと化してる
812デフォルトの名無しさん (ワッチョイ bf2f-WRor)
2020/05/03(日) 14:21:40.36ID:jHKSsTzt0813デフォルトの名無しさん (ワッチョイ a778-NLJ6)
2020/05/03(日) 16:23:21.84ID:7ZZm2K4r0 たしかにそうだ
814デフォルトの名無しさん (ワッチョイ 2791-x7Cl)
2020/05/03(日) 18:57:16.84ID:hVYH2JxT0815デフォルトの名無しさん (ドコグロ MM9f-4Orb)
2020/05/03(日) 20:02:39.59ID:GBCMW2mVM If a = True Then
の時点で嫌い
の時点で嫌い
816デフォルトの名無しさん (ワッチョイ a75f-rvxR)
2020/05/03(日) 20:33:25.77ID:INbjbW0w0 If a Then は気持ち悪いわ
817デフォルトの名無しさん (ワッチョイ 7fda-ts7H)
2020/05/03(日) 20:35:39.32ID:9LS/Ekj10818デフォルトの名無しさん (ワッチョイ bf2f-WRor)
2020/05/03(日) 20:41:41.89ID:jHKSsTzt0 俺はBooleanにたいして= Trueは大概は冗長に感じるけどな
VBAは型がゆるいからなぁ
If a Then は気持ち悪いが、これは変数名が悪い
VBAは型がゆるいからなぁ
If a Then は気持ち悪いが、これは変数名が悪い
819デフォルトの名無しさん (ワッチョイ 878f-ts7H)
2020/05/03(日) 22:08:11.47ID:dDcWYHiB0 >>807
perl で組んだテトリスだったかな。あれ見たときはぶったまげた。
元々ワンライナーをやりやすい言語とは言え、あれはもう
何が何やらわからない世界だった。どんだけ頭いいんだよと。
でも、「こんなの理解できないの?ふ〜ん(にやにや)」みたいな
のは生産性的には駄目だよね。
美しさをトリッキーさに見出すか可読性に見出すかは人それぞれ
だけど、自分よりスキルが下の他人に保守させるとか、未来の自
分が保守しないといけないかもとかなら冗長性持ってるほうがいい
かも。
いちばん大事なのは懇切丁寧なコメントだろうけど。
perl で組んだテトリスだったかな。あれ見たときはぶったまげた。
元々ワンライナーをやりやすい言語とは言え、あれはもう
何が何やらわからない世界だった。どんだけ頭いいんだよと。
でも、「こんなの理解できないの?ふ〜ん(にやにや)」みたいな
のは生産性的には駄目だよね。
美しさをトリッキーさに見出すか可読性に見出すかは人それぞれ
だけど、自分よりスキルが下の他人に保守させるとか、未来の自
分が保守しないといけないかもとかなら冗長性持ってるほうがいい
かも。
いちばん大事なのは懇切丁寧なコメントだろうけど。
820デフォルトの名無しさん (ワッチョイ 878f-ts7H)
2020/05/03(日) 22:21:26.63ID:dDcWYHiB0 >>805
> ちなみにうちの職場では55歳のオバハンが独学で書いてるVBA
> が一番「きれい」だそうで。教科書通りで、整理整頓されてる感じで
> 非エンジニアには優しいんです。(簡単なものしか作らない人ですけど。)
> でも「リーダブルコード」とか「VBA実践のためのなんちゃら」とか
> 読んで勉強してるの見かけたので、心がけは見習いたいです。
あえて長文引用させてもらったけど、あんた程度の人間がなんで
その55歳の女性を貶めてるの?
> ちなみにうちの職場では55歳のオバハンが独学で書いてるVBA
> が一番「きれい」だそうで。教科書通りで、整理整頓されてる感じで
> 非エンジニアには優しいんです。(簡単なものしか作らない人ですけど。)
> でも「リーダブルコード」とか「VBA実践のためのなんちゃら」とか
> 読んで勉強してるの見かけたので、心がけは見習いたいです。
あえて長文引用させてもらったけど、あんた程度の人間がなんで
その55歳の女性を貶めてるの?
821デフォルトの名無しさん (ワッチョイ 2791-x7Cl)
2020/05/03(日) 22:55:28.97ID:hVYH2JxT0822デフォルトの名無しさん (JP 0H8f-Ng5p)
2020/05/03(日) 22:57:44.37ID:8sSb2t20H まともなプログラマなら周りのレベルに合わせて読みやすいコードを書けるよ
VBAの仕事なんかやってる時点でその程度のレベルなんだから仕方ない
VBAの仕事なんかやってる時点でその程度のレベルなんだから仕方ない
823デフォルトの名無しさん (ワッチョイ 2791-x7Cl)
2020/05/03(日) 22:58:39.80ID:hVYH2JxT0 >>819
コメントもたくさんあれば良いというもんじゃない。
Dim blFlg AsBoolean 'フラグ
こんなコメントはアホ。
フラグかどうかは名前と型で分かってる。
残すべきはどういうフラグかだ。
コメントもたくさんあれば良いというもんじゃない。
Dim blFlg AsBoolean 'フラグ
こんなコメントはアホ。
フラグかどうかは名前と型で分かってる。
残すべきはどういうフラグかだ。
824デフォルトの名無しさん (ワッチョイ 878f-ts7H)
2020/05/03(日) 23:00:42.93ID:dDcWYHiB0 >>823
それは確かにコメントっつうより、「ノイズ」だなw
それは確かにコメントっつうより、「ノイズ」だなw
825デフォルトの名無しさん (ワッチョイ 2791-x7Cl)
2020/05/03(日) 23:03:28.37ID:hVYH2JxT0826デフォルトの名無しさん (アウアウエー Sa9f-z9G2)
2020/05/03(日) 23:06:45.24ID:oMB0K2Jka >>823
こんな奴いるのw
こんな奴いるのw
827デフォルトの名無しさん (ワッチョイ 2791-x7Cl)
2020/05/03(日) 23:07:47.50ID:hVYH2JxT0828デフォルトの名無しさん (ワッチョイ 878f-ts7H)
2020/05/03(日) 23:13:29.74ID:dDcWYHiB0 ただ、伝わりやすい変数名ってのが読む方の英語の素養に
大きく左右されちゃう不幸が。
TOEICで600くらい(英語の得意な高校生あたり)を想定するのが
いいかなあ。
大きく左右されちゃう不幸が。
TOEICで600くらい(英語の得意な高校生あたり)を想定するのが
いいかなあ。
829デフォルトの名無しさん (ワッチョイ 2791-x7Cl)
2020/05/03(日) 23:19:40.85ID:hVYH2JxT0 Cプログラミング診断室の第三章の中盤に出てくるフラグの所に似たようなのが出てくる。
言語は違うが読んどくと良い。
http://www.pro.or.jp/~fuji/mybooks/cdiag/cdiag.3.7.html
言語は違うが読んどくと良い。
http://www.pro.or.jp/~fuji/mybooks/cdiag/cdiag.3.7.html
830デフォルトの名無しさん (ワッチョイ df02-mIzA)
2020/05/04(月) 01:56:50.66ID:6MBl5GGH0 ここのスレ見てると、共同で保守してるのに細かい仕様書作ってない感じ
VBA使いって連携取るの苦手だろ
VBA使いって連携取るの苦手だろ
831デフォルトの名無しさん (スップ Sd7f-D935)
2020/05/04(月) 02:26:38.20ID:5comiU6qd 自分だけ楽するために片手間に作ったやつがいつのまにか広まって、ドキュメントなんかもちろん作ってなくて、最初に作った人は異動しちゃって、みたいなことVBAではよくある
832デフォルトの名無しさん (ワッチョイ e794-C/EQ)
2020/05/04(月) 04:29:56.94ID:eaaQNpcs0 VBAは事務員のオバさんが作る程度のオモチャ
仕様書とか本気で言ってんの?
キモいわ
仕様書とか本気で言ってんの?
キモいわ
833デフォルトの名無しさん (ワッチョイ bf12-h83k)
2020/05/04(月) 06:18:26.16ID:XD3JqXFe0 仕様書を書くような立場で仕事をしたことない人は黙ってな
834デフォルトの名無しさん (ワッチョイ c7da-ts7H)
2020/05/04(月) 08:36:53.65ID:NmZgEDtP0 会社のファイルで仕様書作ってあげてもいいんだけど今の職場では上司が理解できないからあえて作らないでいる
835デフォルトの名無しさん (ワッチョイ c7da-ts7H)
2020/05/04(月) 08:37:36.33ID:NmZgEDtP0 俺は832ではない
836デフォルトの名無しさん (ドコグロ MM9f-4Orb)
2020/05/04(月) 09:29:50.78ID:eyf9VoYQM 全社に配布するようなものは仕様書も作るしテストもやるけど、自分とか課内で使うようなツールだと作りっぱだな
別に他の言語でも変わらんと思うが
別に他の言語でも変わらんと思うが
837デフォルトの名無しさん (ワッチョイ a78e-MvRk)
2020/05/04(月) 09:55:22.79ID:oqIKeiQj0 最近よく来る馬鹿どもが仕様書作れると思うのか?
838デフォルトの名無しさん (ワッチョイ c7ce-ur4w)
2020/05/04(月) 10:02:07.63ID:cVQIuVcH0 共同開発やドキュメントが必要になるレベルのプロジェクトには別の言語を使うのが普通
VBAスレで仕様書の話題はスレ違い
VBAスレで仕様書の話題はスレ違い
839デフォルトの名無しさん (ワッチョイ 67ac-fZS3)
2020/05/04(月) 10:28:02.39ID:ESbXk+mE0 はいつぎの方
840デフォルトの名無しさん (ワッチョイ df01-lZTE)
2020/05/04(月) 10:39:56.70ID:EYE1xMNJ0 うちの職場じゃボタン押すことぐらいしか出来ないような連中ばかりだから
仕様書どころかマニュアル作っても1割ぐらいしか理解してもらえないだろうな
目の前で説明しても少し込み入った設定になると覚える気一切ないしな
俺がいなくなったら終わりと思ってる
コメントすら残してない
仕様書どころかマニュアル作っても1割ぐらいしか理解してもらえないだろうな
目の前で説明しても少し込み入った設定になると覚える気一切ないしな
俺がいなくなったら終わりと思ってる
コメントすら残してない
841デフォルトの名無しさん (ワッチョイ a7ad-ur4w)
2020/05/04(月) 11:03:15.13ID:mKy38ERH0842デフォルトの名無しさん (ワッチョイ a78e-MvRk)
2020/05/04(月) 11:58:39.88ID:oqIKeiQj0 >>841
死ね
死ね
843デフォルトの名無しさん (ワッチョイ 877c-mIzA)
2020/05/04(月) 11:59:42.54ID:zFV2kJYS0 ドキュメントが必要かどうかに言語は関係ない
プロジェクトの内容次第
プロジェクトの内容次第
844デフォルトの名無しさん (ワッチョイ c7da-ts7H)
2020/05/04(月) 12:35:48.74ID:NmZgEDtP0 >>841
例えばテレビのリモコンの電源ボタンとか消音ボタンのような使い方をするイメージ
例えばテレビのリモコンの電源ボタンとか消音ボタンのような使い方をするイメージ
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- ミス・ユニバース フィンランド代表の「つり目」写真が波紋… 本人釈明も批判やまず 協会謝罪「徹底的に検証」へ [冬月記者★]
- 自民・麻生太郎副総裁 石破政権の1年は「どよーん」 高市政権発足で「何となく明るくなった」「世の中のことが決まり動いている」★2 [Hitzeschleier★]
- 【おこめ券】鈴木憲和農相 小泉前農相の備蓄米放出を“反省”「備蓄の円滑な運営を図ってまいります」 [Hitzeschleier★]
- 1人3千円の食品高騰対策、何に使える? あいまいなまま衆院通過 [蚤の市★]
- ゆたぼん 二重手術を報告「めちゃくちゃ気に入っています」 [muffin★]
- 【山形】クマ駆除で誤射した猟友会隊員に町が1663万円請求へ...弾当たり男性大けが2023年 小国町 [nita★]
- トランプ、G7に代わるcore 5を発表 [805596214]
- ローソン セブン ファミマ どこ行くべき?
- 【悲報】新米、全く売れなくて倉庫が満杯になってしまうwwwwwwwwwwwwwwwwwwww [802034645]
- 中国人、ガチ超正論。「日本人がアイヌに対してやったことを『問題ない』とするなら、中国が日本人に同じことをしても文句ないだろう?」 [314039747]
- 木曜日のんなっしょい❗(・o・🍬)仕放題スレ🏡
- 【悲報】日本共産党、ツイッター速報にブチギレ法的措置WWWWWWWWWWWWWWWWWWWWWWWWWWWW [935793931]
