Excel VBA 質問スレ Part68

2020/08/30(日) 11:55:27.33

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part67
https://mevius.5ch.net/test/read.cgi/tech/1593104489/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2020/12/04(金) 02:33:53.57

>>878
いつものあいつ

2020/12/04(金) 06:54:12.47

rangeは範囲を選択するときは便利だけど1つのセルならcellsだね
まあ範囲も動的ならrangeの中にcells使うけど

2020/12/04(金) 06:57:58.98

rangeは名前付けてるセルを指定するときに使う

2020/12/04(金) 10:09:04.15

最初の頃はExcel上とかRangeだとA1(A列、1行)って列、行の順なのにCellsは行、列の順だから混乱した記憶がある

2020/12/04(金) 12:34:38.31

歴史的にはR1C1方式の方が先なんだけどな

2020/12/04(金) 14:03:07.99

>>830
入構2週間前からの体温を記録する資料の提出を入構2週間前切ってから要求された場合とかな
vbaじゃなくワークシート関数でできるけど

**デフォルトの名無しさん** (JP 0H5e-SdFS) · 2020/12/04(金) 14:09:34.65

ユーザーフォームで使用するSubやfunctionプロシージャって標準モジュールに書くのが一般的？
独学だからよく分かんないのよね

**デフォルトの名無しさん** (JP 0H5e-SdFS) · 2020/12/04(金) 14:11:25.58

↑ユーザーフォームで呼び出すの方が適切だったかな

2020/12/04(金) 15:05:45.91

個人的な好みだけどそのフォーム内でしか使わないならPrivate Subでサブルーチン作っちゃうかなぁ
クラスモジュールとフォームの両方から呼び出したいとかだと標準モジュールに書かざるを得ないけど
まぁそれにしてもプロシージャの頭にコメントで処理名、機能、引数、返り値、備考を書くようにはしてるからそこに何処から呼んでるかとかぐらいは書いておくけど

2020/12/04(金) 15:08:50.81

どうでもいいんじゃない？
モジュール化云々が問題になるような粒度の責務をVBAに負わせている時点でシステム全体の設計を疑ったほうがいい

**デフォルトの名無しさん** (JP 0H5e-SdFS) · 2020/12/04(金) 15:29:16.67

>>887
確かにワークブックイベントでユーザーフォームのpublic Subが呼び出せなかったからどこに書いたらいいのか迷ってしまったんだ
クラスの理解はなかなか難しい
参考になりました！

2020/12/04(金) 17:33:04.77

中学数学からはじめる微分積分
https://www.youtube.com/watch?v=4p1rwfXbCoY&;t=4341s
中学数学からはじめる相対性理論
https://www.youtube.com/watch?v=voFHToRM4xI&;t=10s
中学数学からはじめるAI(人工知能)のための数学入門
https://www.youtube.com/watch?v=7A05OamqCyc
中学数学からはじめる三角関数
https://www.youtube.com/watch?v=OLqgs4fJl7Y&;t=3803s

2020/12/04(金) 22:21:10.08

クラスで挫折したけどユーザー定義型で大満足です

2020/12/06(日) 04:50:03.54

汎用性が高そうなのは標準モジュールにするぐらいの適当さでいいよ
VBAのメリットは手軽に書けるとこだし

それより出来るだけメソッドで処理を区切るといいよ
メソッド名で何してる部分なのか分かりやすくなるし、
変数の使い回しが避けられたり、コピペしやすくなったりメリットが多い

2020/12/06(日) 10:12:36.99

必要なパラメータが少なければな
毎回フォームのValue読むとか最低だし

2020/12/06(日) 12:03:36.23

課題が集約されてるサイトとかありますか？
検索してもIf文を使ってなど基本問題しかなく、もっと実用的なツール作成などの課題が欲しいです

2020/12/06(日) 12:46:36.44

こんなツールが欲しいってのを作ればいいじゃん

2020/12/06(日) 17:40:13.12

>>894
課題が集約されたくなるBGM
https://www.nicovideo.jp/watch/sm35359889

2020/12/06(日) 22:20:11.18

もう課題じゃなく必要なものを作ればいいんじゃね
必要なものがないなら何で勉強してんだよ

2020/12/07(月) 03:29:03.52

欲しいのは課題じゃなくて解答だろう

2020/12/07(月) 16:02:20.71

ここに見つけた課題の質問はするなよ

2020/12/07(月) 16:07:44.46

VBAなんて解説サイト沢山あるんだから、
その場その場で分からない所をググればいいんじゃないの

カンニングokの試験のために勉強するようなもん
時間の無駄

2020/12/07(月) 21:46:54.62

ここで質問する人の検索能力

2020/12/07(月) 22:20:43.96

能力以前に検索する気が

2020/12/07(月) 22:30:31.51

検索語の先頭にはvbaを書くのが基本

2020/12/07(月) 22:57:19.40

検索するより聞いた方が早いとか思ってる初心者

2020/12/08(火) 00:07:01.16

>>894ですがレスくれた方どうもです
作りたいもの作れってのはその通りなんですけど特になくて...
依頼されて作るのは楽しくて会社でもツール作成をやらせてもらってるんですが、家でも勉強がてら何か作りたくてレスした次第です
作りたいもの考えることにします

2020/12/08(火) 00:16:40.59

無いよそんなの

2020/12/08(火) 01:50:26.85

いつもののあいつだぞ

2020/12/08(火) 02:39:59.03

まわりが振り回されるだけ

2020/12/08(火) 06:50:25.81

作りたいもの無いなら筋トレでもしてた方がマシやろ

2020/12/08(火) 20:06:03.71

ピボットフィールド名に変数を使うとエラーになりました。
変数は使えないのでしょうか？何か方法あれば教えてください。

.Sheets("X").PivotTables("Y").PivotFields（変数）

2020/12/08(火) 20:15:21.56

またおm

2020/12/08(火) 20:25:01.68

職場が古臭い超巨大組織で、EXCELしか使えないからVBA
勉強してるんだけど、柔軟というか互換性重視しすぎというか
何でも許しすぎというか（暗黙のなんちゃらが多い）、てんこ
盛りすぎて使いにくいなこれ…

継承無いのも地味に痛い。普段めったに使わないけど、「ここは
インヘリタンスとポリモーフィズムっしょ」ってところで使えない。

2020/12/08(火) 20:34:22.37

>>912
そのまま上司に言えばいいんじゃね

2020/12/08(火) 20:56:41.26

自己解決しました
お騒がせしました

2020/12/08(火) 21:38:29.64

クラスじゃダメなんですか？

2020/12/08(火) 21:50:04.46

>>913
EXCELで絵が描けるってだけで驚く職場ですわ。

「python とかC#　か、せめてJAVAを…」って言ったら

py　の時点で「はあ？」になって、「上司の自尊心を傷つけた
角」で有罪ｗ

2020/12/08(火) 22:09:36.03

何か覚えたら人に知ったかぶりたくなる小学生じゃないんだからさ…

2020/12/08(火) 22:26:44.03

こんなのが職場にいたらちょっと困ります

2020/12/09(水) 01:31:58.28

すげぇ早口でオタギレしてそう

2020/12/09(水) 01:41:07.54

VBAがなくなると脅されています
その時にはVBSもなくなりますか？

2020/12/09(水) 02:14:11.71

無くならなくないよ！目を覚ませ！！！

2020/12/09(水) 02:18:54.70

>>920
ソース出せよ、あとどこからいつなくなるのかによる

2020/12/09(水) 02:53:27.53

https://www.bulldog.co.jp/common/upload/product/20170124163441_1485243281733.jpg

2020/12/09(水) 08:12:10.11

西日本では中濃は殆ど見かけない

2020/12/09(水) 09:50:23.00

https://www.otafuku.co.jp/image/product/325.jpg

2020/12/09(水) 09:53:21.34

目玉焼きには中濃ソース派

2020/12/09(水) 13:03:56.69

>>916
典型的な無知無能の知ったかオタク馬鹿

**デフォルトの名無しさん** (JP 0H9f-WYZ/) · 2020/12/09(水) 17:45:40.43

クラスを変数の格納で試しに使ってみたけど、値渡しのときに複数のsheetやRangeを一つのobjectとして送れるのが便利だった
それがいいのか悪いのかもすら分からんけど
あと宣言を減らせるのもいいな

2020/12/09(水) 19:30:15.22

>>928
それって単なるTypeで定義するのとなんか違うの？

2020/12/09(水) 21:52:52.42

>>912
PowerShellはダメなのか？
Windowsに最初から入ってるし継承使えるけど

2020/12/10(木) 01:02:36.47

互換性というより下手な拡張のせいだと思うが
a&b&c と書けないのがムカつく

2020/12/10(木) 01:11:19.37

すでに引いてある枠線をすべてオートシェイプに置き換えることはできますか？
一括で変換できれば楽なんですが

そのようなことをしたい理由はExcelは先の太さのバリエーションがないのでオートシェイプで任意の太さの線にしたいからです

2020/12/10(木) 01:16:47.80

俺はしたいと思わないな

2020/12/10(木) 01:50:46.90

いつものあいつだろ

2020/12/10(木) 02:22:09.00

>>932
君ならできるだろ

2020/12/10(木) 03:30:03.52

ヤればできる！
避妊は忘れずに！

2020/12/10(木) 08:21:16.51

何かもうここ機能していないですね
荒らししかいない感じだ

2020/12/10(木) 10:17:08.09

なら、お前が質問しろよ！

2020/12/10(木) 10:17:31.42

なら、お前が質問しろよ！

**デフォルトの名無しさん** (ｽﾌｯ Sdff-kNbH) · 2020/12/10(木) 10:44:14.39

>>932
できる

**デフォルトの名無しさん** (JP 0H4f-WYZ/) · 2020/12/10(木) 17:55:13.02

>>929
読み取り専用にしたいとか変数格納時にチェックしたいとかかなあ
typeもろくに使ってないから難しい質問

2020/12/10(木) 18:15:54.30

>>941
まあそう言う要件あるならそりゃクラスにするしか無いわな

2020/12/10(木) 20:13:35.89

>>932
一回しか行わないわけだし手でやるのが普通ですよ
それにセルのサイズ変えたらズレるし
全部のセルの罫線みるのにどんだけ掛かるかw

2020/12/10(木) 20:47:29.63

どんだけ掛かるんだ？

2020/12/10(木) 21:11:52.00

Ｃ列になし、0、文字列があって、
条件分岐で
C列が文字列であれば転記する文字列をそれに変更。転機列のD列には転記しない
Ｃ列がなしであれば同じ行のＤ列を見に行ってブランクであれば文字列を転記、文字が既にあれば転記しない
Ｃ列が0であれば次の文字列まで移動

上記のようなのは関数だと不可能だと思うので、マクロでどのように作ればいいでしょうか

2020/12/10(木) 21:12:58.79

その通り作ればいいですよ

2020/12/10(木) 21:21:26.02

>>945
>Ｃ列がなしであれば同じ行のＤ列を見に行ってブランクであれば文字列を転記、文字が既にあれば転記しない
この意味が分からんのだけど誰か翻訳頼む。

2020/12/10(木) 21:43:23.69

ある程度自分で考えてそれでもわからない部分を聞くとかならともかく、丸投げ質問はスルーでおk

2020/12/10(木) 21:46:13.21

>>947
自分はむしろ
「C列が文字列であれば転記する文字列をそれに変更」
の方が分からん

2020/12/10(木) 21:49:42.57

この手のタイプは自分の見てるものが他人には見えてないってことがいつも抜け落ちてる

2020/12/10(木) 21:55:21.01

仮に転記文字列がEなら

Cが0(数値)
　次のCまで移動
Cがなし
　D列がブランクならEからDに転記
Cが文字列
　EをCの文字列に変更、Dはそのまま
じゃないの？

でもなしとブランクが分かれてるのが謎

2020/12/10(木) 22:36:37.55

すいませんちょっと言葉が足りませんでした。
なしは単なる文字列のなしです
IFでなしという文字列があれば、現在設定している文字列をD列に書き出していく処理になります
Ｃ列　　　Ｄ列
りんご　
なし
0
0
みかん
なし
↓
Ｃ D
りんご　　(ブランク)
なしりんご
0 (ブランク)
0 (ブランク)
みかん (ブランク)
なしみかん

上記のような処理を作りたいです。

2020/12/10(木) 22:48:25.04

どうぞ作ってください。

2020/12/10(木) 22:56:25.81

条件分岐の所だけでもこういう感じで作ればいいというような回答を頂ければ助かります
かなり丸投げな質問になってすいません

2020/12/10(木) 22:57:22.97

四角投げくらいかな？

2020/12/10(木) 22:59:02.40

ちょっとみただけだけど関数でも頑張れば
作れそうに見えるがどうだろうか

2020/12/10(木) 23:05:18.21

回答しても助けになりそうも無い

2020/12/10(木) 23:06:01.55

別に頑張らなくても関数で出来た
頭硬すぎだろう

2020/12/10(木) 23:24:54.94

なしって入ったときに出てくるのがなしの1個上のセルの内容と決まってるなら関数でも書けるね

2020/12/10(木) 23:35:14.23

このなぞなぞを思い出した
http://nazo2.myaasensei.com/?eid=90

なしなら「梨」と表記するか
別の果物、ぶどうとかすればいいのに
紛らわしい

2020/12/10(木) 23:53:09.24

>>952
その条件通りにそのまま書き起こせば実現できることじゃないのか、複雑な処理がいるわけでもなし

2020/12/11(金) 00:21:36.40

関数で作れるならヒントでも頂けませんでしょうか
すいません。

2020/12/11(金) 00:36:40.44

=if(C1=″なし″,offset(C1,0,-1),″″)
こんな感じか

2020/12/11(金) 00:37:35.18

スレッド眺めましたがまともに答えてる人ここはあまりいないんですね
失礼しました

2020/12/11(金) 00:41:08.86

まともな質問をしましょう

2020/12/11(金) 00:44:14.37

流と関係ないけどここの人ってVBAはもちろんだけど関数も糞詳しいんだよなあ
VBAが関数の上位互換みたいなとこあるから当然か
SQRTとかここで教わったりセルの書式設定の代わりにVBAとかめちゃくちゃ助けてもらったわ

2020/12/11(金) 00:46:54.57

上位互換じゃなくて全く同等。
lambda関数導入でチューリング完全になったからね。

2020/12/11(金) 01:01:39.09

>>963
それだと、なしの横にりんごやみかんの文字列が表示されませんでした

2020/12/11(金) 01:47:52.19

シート関数でもVBAでもどっちでもいいけど組むにあたってどの部分で詰まってるわけ？

2020/12/11(金) 02:06:21.43

>>968
馬鹿は死ねば？

2020/12/11(金) 02:21:17.12

>>969
質問の仕方が下手ですいません
Ａ列　Ｂ列
文字列Ａ　空欄
空欄1　文字列Ａ
空欄1　文字列Ａ
文字列Ｂ　空欄
空欄2　文字列Ｂ
空欄2　文字列Ｂ
空欄2　文字列Ｂ
・
・
・
のようなシートがあって、IFでＡ列が空欄であれば文字列Ａ、文字列Ｂのような転記を
機械的に行いたいのですが、関数を使ってIFの真偽判定で
文字列Ａがヒットすれば、Ｂ列への転記内容を文字列Ａ、文字列Ｂがヒットすれば文字列Ｂというような、
VBAのValueのような変数に文字列を格納しながら転記してく事が関数で可能か知りたかった内容です。
Ａ列の文字列Ａを空欄1にコピーして、文字列Ｂを空欄2にコピーするという操作もあればそっちも教えて頂きたい
(VLOOKUP等で文字列を参照する事が出来そうなので)

2020/12/11(金) 02:26:17.07

いつものあいつっぽい

2020/12/11(金) 02:32:32.38

>>945
D列がブランクかどうかを調べる必要があるので、転記列をE列、さらに作業列をF列として

C列はC2からデータ
D列はD2からデータ
E列はE2から　=IF(C:C="なし",IF(D:D="",F:F,D:D),"")
F列はF2から　=IF(AND(C:C<>"なし",C:C<>0),C:C,IF(INDEX(F:F,ROW()-1)="","",INDEX(F:F,ROW()-1)))

なし以外の文字列が最初にC列に出てくるまでは、とりあえずE列は空欄になる。

2020/12/11(金) 02:47:05.93

>>971

それなら、C列を作業列として
A列にA2からデータ
B列はB2から　=IF(A:A="",C2,"")
C列にC2から　=IF(A:A="",C1,A2)

でB,C列をドラッグで、では？

2020/12/11(金) 07:09:43.08

創作系は怠け者に厳しいから
こうやったけどうまくいかないってのは直してくれるが１から作ってってのはなあ

2020/12/11(金) 08:01:05.41

>>952
0以外の数値も文字列に含めて、空白を停止フラグにした
これであってる？

Dim LastValue
LastValue = "未入力"

Dim Row As Range
For Each Row In Range("A:B").Rows 'A:B範囲を一行ずつ

Dim AColumn As Range, BColumn As Range
Set AColumn = Row.Columns(1) '処理中の行の一列目をAColumn
Set BColumn = Row.Columns(2) '処理中の行の二列目をBColumn

If (AColumn.Value = "") Then Exit For '空白で停止

If (AColumn.Value Like "なし") Then
If (BColumn = Empty) Then BColumn.Value = LastValue
ElseIf (AColumn.Value <> 0) Then
LastValue = AColumn.Value
End If

Next

2020/12/11(金) 08:34:39.24

>>971
ワークシート関数で、条件付きで最後にある値を取るのは面倒だと思う
Filter関数とVlookup関数でできなくはないけど

2020/12/11(金) 12:26:50.51

ifのあとカッコで書けるのかしらなんだわ