Excel VBA 質問スレ Part66

**1000** · 2020/05/10(日) 13:43:45.00

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

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

※デフォルト設定

**デフォルトの名無しさん** · 2020/06/21(日) 19:54:02.33

>>924
ユーザーフォームの使用になる
http://e-tech.life.hyogo-u.ac.jp/contents/kyouzai/vb-ref/contents/part1/button_visible/button_visible.html
ユーザーフォームのイベントで条件を記述してやるのが良い

**デフォルトの名無しさん** · 2020/06/21(日) 19:54:53.04

>>924
グループ化使うとか

**デフォルトの名無しさん** · 2020/06/21(日) 20:09:41.65

>>921
100人規模で周りの人達ができない正社員なわけない
バイト数人が使う程度のマクロだろ

**デフォルトの名無しさん** · 2020/06/21(日) 20:17:13.26

俺も大したことできないけど零細で偉そうにしてるわ
人生なんて鶏口牛後で十分なんだよ

**デフォルトの名無しさん** · 2020/06/21(日) 21:52:25.43

>>928
100人前後の会社で
60人ほど派遣
20人くらいがバイト
10人くらいのパート
正社員は10人ほどのうち確実に7人はエクセルもまともに使えないレベルなのでWord使ってる
エクセルを使うのは正社員1人派遣1人バイトの俺
3ヶ月に一度現れる謎の5人組はよく分からない
そいつらの給料が月70～80万円って言ってた
俺のバイト代は月12万円くらいだった
この国はおかしいって狂ってるよ

**デフォルトの名無しさん** · 2020/06/21(日) 22:06:48.15

大して優秀なわけでもないやつがちょっと優位な部分があるだけで周りを見下すあるある

**デフォルトの名無しさん** · 2020/06/22(月) 00:04:33.28

>>930
Excel vba ができる人が少ないのは会社の重要な業務ではないからだろ
エクセルはあくまで補助的な使い方しかしてないんじゃねーの

**デフォルトの名無しさん** · 2020/06/22(月) 00:17:00.59

採用条件に入ってないし学校やパソコン教室でも普通は教えないからできないのが普通
そもそもプログラミングとは何か、どういう場面で使うと便利なのかもわかってない人が大半
うっかり省力化すると事務員の首が飛ぶから、人の心があれば黙ってるものだし

**デフォルトの名無しさん** · 2020/06/22(月) 01:24:44.89

一般的なプログラミングの話をするならExcelは不向き
そもそも表計算ソフトの延長でしかない

**デフォルトの名無しさん** · 2020/06/22(月) 02:04:25.88

>>932
はいその通りです。
【60代パート】リングファイルを棚にしまう
【社長】ハンコついてパートに渡す
【60代パート】Wordから印刷して社長の机に置く
【50代課長】エクセルからWordにコピペしたファイル名とフォルダをパートに指示
【20代大卒美人派遣】エクセルで原価計算して課長に渡す
【30代バイト】梱包出荷伝票をエクセルに打込み

**デフォルトの名無しさん** · 2020/06/22(月) 02:11:43.53

>>935
多分そういうこと言ってるわけじゃないと思うぞ

**デフォルトの名無しさん** · 2020/06/22(月) 02:30:48.70

>>936
え？
Excel vba を仕事にするのが会社の重要な業務である業界ってどこですか？

**デフォルトの名無しさん** · 2020/06/22(月) 03:23:12.33

>>937
お前の会社は何の業界の会社だよｗ
例えば30代のバイトが梱包している作業のほうが会社にとって利益をもたらすんじゃないのか

**デフォルトの名無しさん** · 2020/06/22(月) 08:49:37.60

ヨコレスだけど30代に梱包やらせる会社とか潰れちまえ
頭も体も回る年代なんだから大いに無駄な事やらせた方がいいと思うね
年食って手数よりも口数のほうが多くなってきたら梱包に回せ

**デフォルトの名無しさん** · 2020/06/22(月) 10:07:31.70

では無能な30代には何をやらせれば良いのだ？

**デフォルトの名無しさん** · 2020/06/22(月) 10:18:08.71

バイトに雑用させるのは普通だし年齢関係ないわ

**デフォルトの名無しさん** · 2020/06/22(月) 10:44:00.06

VBAスレなのにバイトの仕事がどうのって話になってて、さすがだなっておもいましたwww

**デフォルトの名無しさん** · 2020/06/22(月) 10:45:26.13

vbaってプログラミングなの？

**デフォルトの名無しさん** · 2020/06/22(月) 11:16:34.74

プログラミングじゃなかったらなんなんだ
物書きか？

**デフォルトの名無しさん** · 2020/06/22(月) 11:19:23.28

Excel関数の延長？

**デフォルトの名無しさん** · 2020/06/22(月) 12:06:22.79

正式な定義を知りたきゃMS公式でも見ればいいだろ…

**デフォルトの名無しさん** · 2020/06/22(月) 12:10:34.37

申し訳ありませんでした

**デフォルトの名無しさん** · 2020/06/22(月) 12:26:25.71

馬鹿ばっか

**デフォルトの名無しさん** · 2020/06/22(月) 18:17:44.27

一年限定で異動してきた職場
噂に聞いてたけど想像を絶するところだった
エクセル使う業務がほとんどなのに
関数使える人が数人、まともな人は確かにいる

ふとみたおっさんはエクセルの表の合計を電卓で足してキーボードでそれを打ち込

ふとおばちゃん達は
「ここ選択してイコールの後にアルファベットと数値と同じ数値が反映される」
「えー！そうなの？」
と会話してる
マクロ以前の問題だった

**デフォルトの名無しさん** · 2020/06/22(月) 18:44:26.90

管理者が無能だと会社がなくなる
管理者が有能なら無能な人材に高い給料は出さない

**デフォルトの名無しさん** · 2020/06/22(月) 19:03:11.01

周りは出来ない語りしてもお前が優秀になれるわけじゃないんだよなぁ

**デフォルトの名無しさん** · 2020/06/22(月) 23:08:43.37

VBAでイキるの面白すぎるからやめて

**デフォルトの名無しさん** · 2020/06/22(月) 23:16:11.85

やめたら面白くないだろ

**デフォルトの名無しさん** · 2020/06/23(火) 00:55:19.86

30代の梱包バイトのおばちゃんがVBAできないとか比較する方がおかしい

**デフォルトの名無しさん** · 2020/06/23(火) 01:00:04.26

VBA素人です
というか、ちょっとだけPHPを書いたことがある程度のプログラム初心者です

セルA1:A5のどこか一箇所に値を入力すれば全てのセルが埋まるようにしたいのです
全てのセルには入力された値に対して決まったパーセンテージをかける
たとえばA1に100と入力されたらA2~5にはそれぞれA1*○％(○はA2~5とも異なる)
A2に100と入力されたらA1及びA3~5にそれぞれA2*○％

多分条件分岐でいうと
if　A1が空白でないならA1には入力した値、A2*○％、A3*○％・・・
elseif　A2が空白でないなら・・・

みたいな感じになるのかなと思うのですが冗長ですよね…
do Whileで書けるのか、他にスマートな書き方があるのか見当がつきません

フォームでどのセルに入力するか選んで値を入れてボタンを押すと
全てのセルが埋まる、というのが理想です

アドバイスを頂けたらありがたいです
よろしくおねがいします

**デフォルトの名無しさん** · 2020/06/23(火) 01:09:31.87

for r=1 to 5
if 入力されたセルじゃない場合
cells = 入力された数値かける定数
end if
next

みたいな感じでは？

**デフォルトの名無しさん** · 2020/06/23(火) 01:33:11.82

あー、これじゃダメみたい、すみません。

**デフォルトの名無しさん** · 2020/06/23(火) 01:53:19.74

>>955
ちょっとだけとか書くなよ
全くわかっていない馬鹿だろうが

**デフォルトの名無しさん** · 2020/06/23(火) 02:25:19.01

入力セルによらず割合が一定なら100%の値を出してからそれをループで入れろバカか

**デフォルトの名無しさん** · 2020/06/23(火) 03:24:31.72

>>955
俺なら入力は１か所（A1）だけにして A2～A5 は入力させない or "=A1" にでもするかもな

**デフォルトの名無しさん** · 2020/06/23(火) 05:39:38.41

>>955ユーザーフォームにリストボックスとテキストボックスとコマンドボタンを作成し以下
Dim val As Double
Private Sub UserForm_Initialize()
　 With ListBox1
　 .AddItem "A1"
　 .AddItem "A2"
　　 End With
End Sub
Private Sub CommandButton1_Click()
　 If UserForm1.ListBox1.Value="A1" then
val = UserForm1.TextBox1.Value
A1
Else If UserForm1.ListBox1.Value="A2" then
val = UserForm1.TextBox1.Value
A2
End If
End Sub
Sub A1()
Range("A1").value=val
Range("A2").value=val*0.2
Range("A3").value=val*0.3
Range("A4").value=val*0.4
Range("A5").value=val*0.5
End Sub
Sub A2()
Range("A1").value=val*0.1
Range("A2").value=val
Range("A3").value=val*0.3
Range("A4").value=val*0.4
Range("A5").value=val*0.5
End Sub

**デフォルトの名無しさん** · 2020/06/23(火) 07:50:59.28

意図が伝わるようにユーザーフォームで入力させた方がいいように見えるな
visibleのtrue ,false切り替えでうまくやりたい

**955** · 2020/06/23(火) 09:36:33.10

ご教示下さったみなさまありがとうございます

>>961
丁寧にありがとうございます
書いて頂いたのでなんとかなりそうです

**デフォルトの名無しさん** · 2020/06/23(火) 10:14:19.39

コピペ

**961** · 2020/06/23(火) 12:34:05.64

>>963
スマホで寝ながら打ったから
Win7のExcel2010にコピペして確認してみたらミスってた
訂正。大文字だったスマソ　then＞Then
https://i.imgur.com/LQvQjn9.png

**デフォルトの名無しさん** · 2020/06/23(火) 13:08:23.25

VBEが勝手に大文字に直してくれるから、ステートメントは全部小文字で入力してるわ

**デフォルトの名無しさん** · 2020/06/23(火) 16:26:51.99

UsedRangeの使えなさに絶望しました
あれってなに目的で使えんの？

>>966
おれもそれチェック代わりに使ってるんで
変数はほぼ全て大文字スタートだわ
他言語だとやらないけどVBAはエディタがあれなんで

**デフォルトの名無しさん** · 2020/06/23(火) 17:18:02.36

>>967
間違った使い方してるだけじゃないのか

**デフォルトの名無しさん** · 2020/06/23(火) 18:21:08.83

>>967
グラフ自動生成するときとかに使ってる

**デフォルトの名無しさん** · 2020/06/23(火) 18:22:23.82

usedrangeはファイルの中身を検査する時に使うな
個人情報が入ってないかとか

**デフォルトの名無しさん** · 2020/06/23(火) 18:28:15.83

UsedRangeは普通に使うぞ。
寧ろ、一番使うかも。

Excelの固定じゃない範囲を取得する場合、これでOKというようなものが無い。
都度考えることになる。

**デフォルトの名無しさん** · 2020/06/23(火) 21:35:23.31

値化とか

**デフォルトの名無しさん** · 2020/06/23(火) 21:40:15.53

2次元の動的配列にバックデータを突っ込むときに使う

**デフォルトの名無しさん** · 2020/06/23(火) 22:16:19.70

やっと念願の夢かなって生産現場に異動できそう
PCをあまり使わなくなる職場にいけるから
マクロ組んだりもほとんどしなくて済むから嬉しすぎる
そしてここで教えてくれた人たちへの恩も忘れられんよ

**デフォルトの名無しさん** · 2020/06/23(火) 22:27:25.32

ひでぇなぁ忘れられちゃうのかぁ残念
汗だくの梱包現場からエアコン効いた部屋に行きたいよ

**デフォルトの名無しさん** · 2020/06/24(水) 10:22:12.41

Sub Sample1()
Dim Target As Range
Set Target = Range("P:P").FiVBA エラー 91
これで
オブジェクト変数または With ブロック変数が設定されていません。t.Offset(0, 1)
End Sub

何がだめ?

**デフォルトの名無しさん** · 2020/06/24(水) 10:26:15.72

FiVBAって命令あるの？

**デフォルトの名無しさん** · 2020/06/24(水) 13:23:42.08

tってなんだよ
宣言してないオブジェクト変数が動くわけないだろ

**デフォルトの名無しさん** · 2020/06/24(水) 13:58:43.39

なにがだめって聞かれても全てがとしか

**デフォルトの名無しさん** · 2020/06/24(水) 14:29:06.16

ちゃんと内容を確認しないのが駄目

**デフォルトの名無しさん** · 2020/06/24(水) 14:58:07.29

ごめん間違えた
これです
Sub Sample1()
Dim Target As Range
Set Target = Range("P:P").Find(What:="田中")
MsgBox Target.Offset(0, 1)
End Sub

**デフォルトの名無しさん** · 2020/06/24(水) 15:31:45.69

>>981
https://www.moug.net/tech/exvba/0050116.html

ここでも参考にしな

まず確実に言えるのは、Nothingのエラー対処ができてない

**デフォルトの名無しさん** · 2020/06/24(水) 16:03:07.42

>>981
田中がないんだろどうせ

**デフォルトの名無しさん** · 2020/06/24(水) 16:11:20.98

Set Target = Range("P:P").Find(What:="田中")

この田中を変数というか特定のセルの値にしたい場合どうしたらいい？
A1のセル内容を参照したいとする

**デフォルトの名無しさん** · 2020/06/24(水) 16:18:53.01

あ、できた
ごめん自分は京都大学霊長類研究所のジェームズという7歳のチンパンジーだからVBAよくわからないんだ
皆さんありがとございまうす

**デフォルトの名無しさん** · 2020/06/24(水) 16:21:57.07

>>985
解決内容を書けチンパンジー

**デフォルトの名無しさん** · 2020/06/24(水) 17:53:24.17

自己紹介や自分語りはいらん

**デフォルトの名無しさん** · 2020/06/24(水) 19:08:49.57

>>984
Nothingのエラ―対処が出来て無いってのはみんなが通る道だ。

**デフォルトの名無しさん** · 2020/06/24(水) 19:26:45.24

自分で使う分にはエラー終了でも正常終了でも変わらんし

**デフォルトの名無しさん** · 2020/06/25(木) 14:24:07.38

In Range("R:R")
というのがあるとして
R列全体を選択するのはマストなんだけど
ホントはR7からソレ以下全部にしたい
In Range("R7:R")ではうまく行かないみたいだしこういう場合ってどうしたらいいんだろう

**デフォルトの名無しさん** · 2020/06/25(木) 14:52:26.82

usedrangeじゃ駄目なんですか？

**デフォルトの名無しさん** · 2020/06/25(木) 15:35:07.92

テーブルにすれば？

**デフォルトの名無しさん** · 2020/06/25(木) 15:38:48.25

cellsでそこから最終行まで指定すればいいじゃない

**デフォルトの名無しさん** · 2020/06/25(木) 16:00:07.27

colmns.countが最終桁番号だしApplication.Intersectで指定２範囲の重複部分だせるし

**デフォルトの名無しさん** · 2020/06/25(木) 16:24:03.44

直感的にやるならRange(Range("R7"),Range("R7").End(xlDown))でいいんじゃない

**デフォルトの名無しさん** · 2020/06/25(木) 17:54:02.59

>>990
何故最終行までという指定を省こうとするのか？
先に真っ当な手順で実現できてないのに想像で勝手に省いてうまくいかないってどういうつもりなのか？

**デフォルトの名無しさん** · 2020/06/25(木) 17:54:59.62

きたこれ
VBA歴2ヶ月なのに俺は職場のPCの先生から神様扱い

**デフォルトの名無しさん** · 2020/06/25(木) 18:26:51.87

何そのダメ先生

**デフォルトの名無しさん** · 2020/06/25(木) 18:32:44.98

おだてられて浮かれてるだけだなw

**デフォルトの名無しさん** · 2020/06/25(木) 18:45:05.09

うー

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 46日 5時間 1分 20秒