Excel VBA 質問スレ Part62

2019/06/24(月) 00:21:37.48

!extend:checked:vvvvv:1000:512

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

※前スレ
Excel VBA 質問スレ Part61
http://mevius.5ch.net/test/read.cgi/tech/1556203263/

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

2019/06/30(日) 22:34:33.38

貴重な土日の休みを5chのレスバで消耗するとか悲しすぎるだろ

2019/06/30(日) 22:36:45.08

そのまま寝ればいいのに構ってちゃんかよw

2019/07/01(月) 17:35:52.04

争いは同じレベルのもの同士でんでん

2019/07/08(月) 12:55:08.17

vbaでpdfの入力フォームとかいじる必要がでてきたけどぜんぜんわかんねえ

2019/07/08(月) 22:30:38.20

>>217
AdobeのPDFを編集出来るバージョンを持ってれば、参照設定でいじれるし、
ググれば結構作例が出てくるから難しくはない。
無ければ難しいだろうね。

2019/07/08(月) 22:33:03.25

Acrobatなしのpdf編集なんて楽勝やろ、と思ったらゲキムズで諦めた
今でも難しいんかね

2019/07/08(月) 22:37:09.99

中身がテキストじゃなくバイナリって時点で、Acrobatなしは諦めたけど、
XFDFだっけ?
ああいうのでも良ければ何とかなるかもしれない。

2019/07/08(月) 23:33:33.59

>>219
まだ昔の方が比較的簡単だった
今はもう完全に不可能と思った方がいい

2019/07/09(火) 06:44:08.92

>>221
ありがとう
素直に無理だと言えるわ

2019/07/09(火) 08:30:06.28

>>221
構造は基本変わってないでしょ？
機能がたくさん付加されてるから完全対応とかはめちゃ大変だけど

2019/07/09(火) 12:13:15.60

ゼロからPDF形式のファイルを生成するだけなら簡単
下位互換はあるから、昔の簡単なフォーマットで作ればいいだけだから

最新バージョンの編集は、機能が増えすぎてちょっとやそっとじゃ対応できない
PDFの仕様書はネットに転がってるから、あとはやる気次第かなあ
https://itchyny.haten%61blog.com/entry/2015/09/16/100000

2019/07/09(火) 19:47:33.40

だからそんなのをVBAでやるなって
エクセルとかオフィス専用なんだろ？

2019/07/09(火) 22:23:38.13

いいなぁ僕もマウントできるくらい、まくろのお勉強しないとなぁ

**デフォルトの名無しさん** (ｱﾒ MM27-jy7K) · 2019/07/10(水) 00:05:48.15

>>217
単にWordで入力欄のあるPDFを作るのをＶＢＡで補助するだけじゃあ駄目なの？

2019/07/10(水) 03:46:18.75

>>227
駄目だから聞いておるのだ

2019/07/10(水) 04:30:22.12

>>228
聞いてないじゃん

2019/07/10(水) 05:04:32.44

>>229
このハゲー！

2019/07/10(水) 09:21:12.99

初歩的な質問で申し訳ないんだけど、ボタンをクリックしたらテキストボックスの値を参照して、参照した値を表示するプログラムがうまくいかないんだけどどう直したらいいのか教えて欲しい。エラーはこんな感じ
https://i.imgur.com/AG4P5Zh.jpg
https://i.imgur.com/VSa48Wl.jpg

2019/07/10(水) 09:31:54.02

標準モジュールに書いてるの？

2019/07/10(水) 09:33:44.47

間違えたユーザーフォームじゃないのか
たしかSheet1のモジュールに書かないと名前を認識しないはず

2019/07/10(水) 09:38:27.87

>>232
標準モジュールに書いてる、というかボタンをつくってVBを編集すると標準モジュールにコードが書かれるんだけどSheet1にボタンのコードを書くってどうやるの？

**デフォルトの名無しさん** (ｱﾒ MM27-jy7K) · 2019/07/10(水) 10:10:47.92

>>229
まあ作りたいものの要件も定義できないんだろうね
各種バージョンによって仕様のあるPDFをＶＢＡで編集するなんて考えるだけ無駄なのに

2019/07/10(水) 10:32:27.39

>>233の言うとおりにシート1に書いたコードを実行したら動くんだけど、ワークシート上のボタンを押しても反応しないのはなんでなんだ
https://i.imgur.com/Kwm4ZvL.jpg
https://i.imgur.com/QgVMdBG.jpg

2019/07/10(水) 10:51:52.96

イベントの名前間違えてるよ

2019/07/10(水) 10:54:31.22

>>236
このシートにあるボタンって標準モジュールのボタン２で書いたコードと同じもの？

2019/07/10(水) 10:57:37.67

ボタンのプロパティを見てみて

2019/07/10(水) 10:58:01.30

>>237
出来ればどこを間違えてるか教えて欲しい
>>238
同じもの

2019/07/10(水) 11:04:25.88

Private Sub TextBox1_Change() の１行を
Sub ボタン2_Click()
に変えれば動くはず。

2019/07/10(水) 11:14:52.80

>>240
同じものであれば、>>236と同じエラーが出るってこと
ならば、txt.TextだけどSheets(1).txt.Textでないの

2019/07/10(水) 11:37:21.93

ごめん確認したけどActiveXじゃないフォームコントロールのボタンだと
シートモジュールに書いても無理だったわ。
標準モジュールに以下のとおりやると動く

Sub ボタン1_Click()
MsgBox Worksheets(1).TextBoxes("txt").Text
End Sub

ワークシート1枚なのが前提だから調整してね。

2019/07/10(水) 11:44:51.66

オブジェクト名だけでの直接指定ってシートモジュールでないと通じないし
でもフォームコントロールのイベントは標準モジュールに書かないと動かないっていう

2019/07/10(水) 11:50:01.32

>>239
ボタンのプロパティが表示されない
>>242
>>243
こうなったんだけどなんでだろ
https://i.imgur.com/qivCtCe.jpg

2019/07/10(水) 11:52:33.72

https://i.imgur.com/017G76Q.jpg
>>243
画像こっちだった

2019/07/10(水) 12:02:55.71

ごめんフォームコントロールじゃなくてActiveXでボタンをつくったらちゃんと動いた皆が言ってたのはこういう事だったのか
https://i.imgur.com/aBVNoI2.jpg

2019/07/10(水) 12:05:52.68

こっちだとこれで上手くいくんだけどね
https://i.imgur.com/BOjQoKC.jpg
環境はoffice365
テキストボックスは挿入タブから作成
ボタンは開発タブのフォームコントロールから追加

2019/07/10(水) 12:07:10.09

そうそうフォームコントロールよりActiveXのほうが複雑だけど融通が利くよ

2019/07/10(水) 12:09:25.00

>>244
まあ、「フォームコントロール」は使うなと教わった気がする
ActiveXですべてコントロール書くな
混ぜて使うと今回みたいにぐちゃぐちゃになるよな
>>245
>ボタンのプロパティが表示されない
ああ、フォームコントロールは表示しないのか、使わんほうがいいと思う

2019/07/10(水) 12:15:01.17

ID:ZjOdLx630 ID:yoXwfxDh0色々教えてくれてありがとう

2019/07/10(水) 19:31:16.98

ActiveXってまだ使えるのか？

2019/07/10(水) 21:42:45.32

ガソリンとディーゼルのいいとこ取りじゃけんの

2019/07/10(水) 23:29:23.93

簡単なフォーム作って動作確認したらテキストボックスの内容だけが指定セルに入力されません。
どこを修正できるかおしえてくれませんか？
Private Sub ComboBox1_Change()

If ComboBox1 = "１－１" Then
Range("A1").Select
End If

If ComboBox1 = "１－２" Then
Range("B1").Select
End If
End Sub

Private Sub CommandButton1_Click()

If ComboBox1 = "１－１" Then
Range("A1").Value = TextBox1.Text
End If
If ComboBox1 = "１－２" Then
Range("B1").Value = TextBox1.Text
End If
End Sub

2019/07/10(水) 23:32:43.62

狙いがさっぱり分からん。
何でコンボボックス選択でセルを選択してんの?

2019/07/10(水) 23:35:04.06

あと何でComboBox1の後を省略すんの?

2019/07/10(水) 23:37:12.76

四半期ごとのデータを入力する際に入力するセルをコンボボックスで指定したいからですね

2019/07/10(水) 23:43:37.21

いやいや、セルの選択は必要無いと言ってんの。
つまりComboBox_Changeのプロシージャは全部必要無いと思うと言ってる。

2019/07/10(水) 23:46:55.16

選択してなくても入力出来るし、普通はセルを選択するコードって書かないものなんだ。

敢えて、ユーザーにここだよと知らせるために選択することなんかは有るけどね。

2019/07/10(水) 23:54:25.92

>>258
確かにChengeプロシージャはなくていいと気づきました。クリックイベントで思いっきり指定してますね。ありがとうございます。
そこを丸々消してもテキストボックスの内容が指定したセルに入力されないところがどうしても分かりません、、、

2019/07/11(木) 00:39:06.69

ComboBox1の後ろを省略すると、Valueなんだっけ?
Valueじゃないものがデフォルトなら、入らないと思うけど。

2019/07/11(木) 01:13:07.62

>>261
ようやく意味がわかりましたわ。>>256はそのことを言ってたんですね。
そこを修正してようやく入力できました。
ありがとうございました。

2019/07/11(木) 22:57:04.73

レポートでexcelの問題が出たのですがexcelのeの字もわからないド素人で
全く解ける気配がないので解いていただきたいのですが

excel表↓
https://gyazo.com/09fca1ee73fb7c9e157e34b8087266aa
処理条件↓
https://gyazo.com/ea0a04a984a92f0cdf4fb02024003e06
問題↓
https://gyazo.com/91b5a7da5245d2ff536597fcf7414b13
https://gyazo.com/7bebc69a5a6ef8e282adfdf814311a72
https://gyazo.com/c55982b0303f977923d30dd1c46ec9d2
https://gyazo.com/deb035bd0a7e3e3118e3bfac5ef26071

excel表と処理条件を見て問題を解く感じです
お手数ですがどうかお願い致します

2019/07/11(木) 23:07:07.18

ここは、宿題スレじゃないですよ

2019/07/11(木) 23:12:11.45

>>264
そうなのですがたexcelプログラミングに特化した方達がいるスレが他に見当たらなくて・・
何卒お願い致します＞＜

2019/07/11(木) 23:14:33.66

>>263
他人の力でレポート提出するのはよくないよ

2019/07/11(木) 23:15:35.55

最初から解く気がないからここで答え聞いても多分わからないままじゃない？

2019/07/11(木) 23:25:23.16

プログラミングに興味があってしてるわけじゃないので分からないままで大丈夫です
教科書を見ても該当の問題がないので八方塞がりになってます
ですのでお願いします＞＜；

2019/07/11(木) 23:31:12.20

excelスレとマルチか

2019/07/11(木) 23:31:23.70

つーかここエクセルのスレというかエクセルのVBAのスレだしな
表計算そのものはスレ違いかと

2019/07/11(木) 23:42:29.20

>>268
馬鹿は死ね

2019/07/12(金) 03:16:30.68

>>263
単位落とせ
ついでに退学しろ

2019/07/12(金) 05:15:54.45

>>268
自力で出来ないなら諦めるしかなかろう
能力以上に背伸びしようとすると他人様に迷惑がかかるから分を弁えて生きていけよ

2019/07/12(金) 05:28:28.73

難癖つけたい昭和の爺しかいないのか(´ . .̫ . `)
他をあたります

2019/07/12(金) 06:15:25.02

これが本性です

2019/07/12(金) 06:24:13.28

時間を使ってもらうことだから解答してもらえないのは不満はないけど
嫌味だけ言ってくるのはね

2019/07/12(金) 06:55:24.80

>>268 みたいなこと書いたら火に油。
・表計算の関数式はプログラムではない。Excelのプログラム言語はVBAで、関数式ではない。

・質問内容がExcelとネット環境が使える状態ならヘルプやネット検索で得られる情報で手元検証しつつで解ける初歩の初歩レベル。やるべきはここで丸投げや教科書を調べることではなく、ヘルプやネットの調べ方や、キーワード抽出能力、試し実験する能力
これらの能力はExcelに限らず仕事全般に必要

2019/07/12(金) 07:29:13.34

その一文なくても答えてくれてなかったと思うけどね
上の質問内容もレポート全ての問題ではなく調べても考えてもい解けなかった7問です
その上で質問したので丸投げとか言われても・・・。

2019/07/12(金) 07:33:03.45

>>278
スレの違いすらわからない丸投げの馬鹿
マルチポスト
死ねや

2019/07/12(金) 07:34:50.24

>>278
その努力の跡を見せるのと見せないのでは反応が全然違うのよ
次があるか分からないけど参考までに

2019/07/12(金) 07:37:58.23

>>278
どうやって調べたか教えて欲しい
複合参照一つにしても、
「セル番地を複合参照で列を固定」質問文そのまま検索するだけで答えが出てくる
これ以下の行動が想像出来ない

納得できる理由を持ってきたら全問解いてやるぞ。

2019/07/12(金) 08:19:59.80

>>281
それはあなたがexcelの基礎を熟知してるから調べたらすぐ納得出来る答えが見つかるだけです
excelの知識0未満の自分が検索しても相対参照複合参照セル参照、固定etcどんどん理解不能な専門用語が出てくるだけで
基礎知識0の人間がいくら調べたとこで応用の問題が解けるわけない
努力とか苦労とか抜きで単純に教えたくないだけでしょ
0から腰を据えて勉強する時間もないので色んなとこをあたってみます

2019/07/12(金) 08:28:22.02

>>282
昔自分もそうだったから気持ちわかるよ
ただわからないままでいいから答えだけ教えろって態度が良くなかったね
Excel総合相談所の方では途中まで答えてくれようとしていた人いたのに勿体無い

2019/07/12(金) 08:30:54.63

というか聞くならこんな場末の掲示板じゃなくて同じ講義受けてる友達に聞けよ

2019/07/12(金) 08:32:04.14

宿題丸投げからの捨て台詞
伝統ですな

2019/07/12(金) 09:47:37.46

どこの質スレでも、どこまでわかっててどこからわからないかとか説明しないと丸投げは答えを貰いにくい
それはともかくとして内容的にここではスレチなので該当スレに移動して聞くのがよい
そういうの無視して自己中心的な態度を取ると相応の反応しか来ないことが多い

2019/07/12(金) 11:24:29.37

>>263
① SUM($F5:$F9)　② SUM(F$5:F$9) ③ SUM($F$5:$F$9)
① B5 * SUM(C5:E5)　② F5 / $F$10 * 100
③ IF(G5>0.2,"〇", "")
④ Average(C5:C9) ⑤ MAX(C5:E9)

一番目は問題文が意味不明すぎて何ともいえない。答えを記入て？コピー入力時の値なの入力数式なの？
二番目、レポート第三回「算術演算子のミス」ってのが*/じゃなく×÷を使えって意味なら変えてね

2019/07/12(金) 11:26:26.64

三番目の0.2は20の間違いだった

2019/07/12(金) 14:33:40.36

>>282
熟知するまでにどれほどの努力が有ったんだろうね。

全く教えがいが無い。
どうせ身に着けようとしないから3日もすれば同じ質問してくる。

2019/07/12(金) 14:35:55.96

バカは自分のことしか考えない。
上級者がそうなる迄にどんな努力したのかとか、全く考えない。

2019/07/12(金) 17:23:38.01

>>282
何のレポートか知らないけどこういう試験みたいなレポート課されるってことはExcelのこと教えてくれる講義かなんかでしょ？
それ取っといて基礎知識0なわけないよね
サボってたなら自業自得だ諦めろ

2019/07/12(金) 18:12:35.56

ここで教えてもらったり聞いたりするのも勉強だろ？
丸投げで解決するなら効率良いし

2019/07/12(金) 19:02:17.48

結果だけ知っても応用無理
自力でやった過程も大切
自力で訊いたとか言いそう

2019/07/12(金) 19:20:24.98

>>292
聞き方が悪すぎてそれすら出来ていないｗ
礼儀正しく聞くか努力した後を見せるか、それだけで全部終わるのにな～んもせずに時間の浪費
社会に出てこなくていいかな

2019/07/12(金) 19:37:39.45

>>292
解決できるなら効率いいけど結局解決できてないし煽られて顔真っ赤になって効率マイナスになってるぞ

2019/07/12(金) 19:58:53.73

礼儀w
ここをどこだと思ってるんだ

2019/07/12(金) 19:59:54.35

顔が赤い？
ここはインターネットだから見えないのになぜわかるw

2019/07/12(金) 20:11:35.98

>>296
vbaスレだよ
下手に出るor努力家なら普通に教えるし、
上から目線で面白いキャラならそれはそれで笑いの対価に答えてあげる楽しいスレ

俺はどう調べたかを教えてくれれば答えるつもりだったけど、何故かそれすら無かった

2019/07/12(金) 20:15:07.03

しょうがねえな答えてやるけどどこの学校の何の課題かだけ教えろ
課題の背景知らないとどう回答していいのかもわからんわ

2019/07/12(金) 20:23:30.14

>>287さんのような立派な人が教えてくれる
何も知らない人は難癖付けて優越感に浸るだけ

2019/07/12(金) 20:25:42.71

うんち大学うんち学科のうんち講義の課題だ

2019/07/12(金) 20:28:01.99

なるほどなあ
立派にうんちへの道を歩んでいるようで何よりだよ

2019/07/12(金) 20:32:10.07

教える奴ってのは教わった奴がそれで成長するのが嬉しくて教える。

教わっても課題提出した後はゴミにするようなバカに教えるわけが無いだろ。

2019/07/12(金) 20:40:23.09

>>298
最初は下手に出てたけど嫌味を言ってくるから同じ対応しただけっすよ＾
何度も言ってるけど自分にexcelの基礎知識が一切ないから「こうやって解こうとしたけど此処が分からなかった」とか
理屈だって説明ができないって言ってるじゃん。日本語理解してます？
最初から教える気がないくせに気持ちが悪い。
（解いて貰うことが当たり前とは全く思ってないけど、こういう難癖爺は本当に不愉快です）

2019/07/12(金) 20:49:36.00

基礎知識が無ければ解かなくて良いだろw
お前のやり方でOKなら世の中にExcel使える奴なんて1人も出て来ないんだよ。
皆、努力してる。
それが嫌なら解くな。

2019/07/12(金) 20:57:25.89

これがうんちの書き込みなんだね
勉強になる

2019/07/12(金) 21:01:52.58

最後まで下手に出てりゃ教えて貰えたかも知れないのに
本当バカだな

2019/07/12(金) 21:05:56.83

だまされる間抜けがいるか

**956** (ｽﾌﾟﾌﾟ Sdba-4ml8) · 2019/07/12(金) 21:12:02.87

最初から一貫して、考える気がないから答えだけ教えろと言ってるから反発を買ってると何故わからない
そういうのは下手に出てると言わない
それ以前にスレチ、マルチポストなんかどこでも嫌われる

2019/07/12(金) 21:17:37.52

>>304
死ねや、クズ

2019/07/12(金) 21:24:19.02

何がどうスレチなのか本人理解していない
本当にExcelを起動させたことだけはあるってレベルなんだろうな
それにしても相対参照なんてはじめてのExcelみたいなテキストの初めのほうに出てくるのに理解不能な専門用語って…

2019/07/12(金) 21:25:04.82

賢くないんだろうな、色々な面で
人生大変そう

2019/07/12(金) 21:35:21.67

>>304
だから「何をして」分からなかったの？って聞いてるんだけど
君の行動を知りたいんだよ
まさか何を検索したかも覚えてないの？

2019/07/12(金) 21:36:08.92

まぁでも複合参照って単語は俺も覚えてないわ。使わんやろ