Excel VBA 質問スレ Part55

**デフォルトの名無しさん** · 2018/07/22(日) 14:13:18.78

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

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

**デフォルトの名無しさん** · 2018/08/14(火) 23:31:25.07

>>642
法学部だけど？

**デフォルトの名無しさん** · 2018/08/15(水) 00:16:08.70

>>643
まだ気づかないのか w

なら、>>482の「部門部署」が>>617の何に対応するのか言ってみ

**デフォルトの名無しさん** · 2018/08/15(水) 07:45:58.25

夏だなあ

**デフォルトの名無しさん** · 2018/08/15(水) 07:50:26.11

>>644
何言ってんだ？
法学部　⇔　理系院卒
学部　⇔　部門部署
という対応関係だろ。
>>617がどういう意図で書いたかは知らんが俺は>>482でそういうつもりで書いた。

**デフォルトの名無しさん** · 2018/08/15(水) 08:10:19.35

>>646
だよな。
誰がどう見てもそれ以外無いでしょ。
日本語が分からない奴なら理解出来ないかもしれんが。

>>642
>>644
言質を取ってから挙げ足を取るようなことは辞めたら?
明らかなんだから確認する必要無いだろ。
それとも本当に理解出来てないのかもしれんが。

**デフォルトの名無しさん** · 2018/08/15(水) 08:40:51.81

不毛だな
お前らの頭の話だ

**デフォルトの名無しさん** · 2018/08/15(水) 08:54:43.18

>>648
また髪の話してる…

**デフォルトの名無しさん** · 2018/08/15(水) 09:06:01.31

>>646-647
学部と法学部の関係と、理系院卒と部署の関係が同じと言うのかよ w
書いてて恥ずかしくね？

**デフォルトの名無しさん** · 2018/08/15(水) 09:14:28.41

>>650
???
日本語理解出来ないの?
ええと、比喩という言葉は知ってるかい?

**デフォルトの名無しさん** · 2018/08/15(水) 09:22:29.19

法学部→全体に対い一部のできる奴の喩え
理系院卒→全体に対して一部できる奴の喩え

学部→全体の喩え
部署→全体の喩え

ねえちゃん・おっさん→一部のできない奴の喩え
ねえちゃん→一部のできない奴の喩え

事務部門→一部のできない部署の喩え
教育学部・文学部→一部のできない学部の喩え

**デフォルトの名無しさん** · 2018/08/15(水) 09:34:06.55

>>650
対応関係ってのは単に

　（あ）と（い）は（う）である
　（A）と（B）は（C）である

という二つの主張における

　あ ⇔ A
　い ⇔ B
　う ⇔ C

という対のことを言うんだから
お前が変な考えに囚われているだけだよ

**デフォルトの名無しさん** · 2018/08/15(水) 09:48:29.72

>>651-653
何一生懸命言い訳してるのか知らんけど
・法学部は学部に含まれる
・理系院卒と部署に直接の関係はない
ただそれだけ

**デフォルトの名無しさん** · 2018/08/15(水) 09:51:26.21

>>654
・法学部は学部に含まれる
・理系院卒と部署に関係はある
以上
俺がそういってるんだからそうなんだよ。文句つけんな。

**デフォルトの名無しさん** · 2018/08/15(水) 10:29:39.23

>>655
はいはい w

**デフォルトの名無しさん** · 2018/08/15(水) 11:31:11.58

前提に正も誤も無いとか言って自分の前提は無条件で信じられるべき
なのに他人の出す前提は理解すら示そうとしないダブスタ

相手にするだけ無駄なやつ

**デフォルトの名無しさん** · 2018/08/15(水) 11:44:29.14

> 相手にするだけ無駄なやつ
ならレスしなきゃいいのに…
悔しさ滲み出てますよ w

**デフォルトの名無しさん** · 2018/08/15(水) 11:46:09.96

>>658
顔赤いぞ

**デフォルトの名無しさん** · 2018/08/15(水) 12:02:22.01

あれ？
相手する価値ないんじゃなかったの？
ダッサ w

**デフォルトの名無しさん** · 2018/08/15(水) 12:05:44.37

無駄話やら罵り合いしたいだけならスレ立ててそこでやってくんねーかなー

**デフォルトの名無しさん** · 2018/08/15(水) 12:07:24.16

>>660
議論に乗るつもりがないだけでお前を馬鹿にするのをやめる理由はない
お前ただ相手にされなくなったのを論破したと勘違いして生きてきたっぽいな

**デフォルトの名無しさん** · 2018/08/15(水) 12:08:58.00

また話変えてきてるよ…
頭悪いって可哀想だな w

**デフォルトの名無しさん** · 2018/08/15(水) 12:12:12.04

>>663
とてもそう思う

**デフォルトの名無しさん** · 2018/08/15(水) 12:16:44.17

ここまでVBAの話なし

**デフォルトの名無しさん** · 2018/08/15(水) 12:32:04.60

>>664
ようやく気づいたのか
まあ気を落とさずに頑張れよ w

**デフォルトの名無しさん** · 2018/08/15(水) 12:54:37.56

>>661
VBAの話がしたいなら違うスレ立ててやれ

**デフォルトの名無しさん** · 2018/08/15(水) 12:56:36.01

>>654
引数が偶数だったら文字列を返し、奇数だったら数値を返すプロシ―ジャがあったとしよう。

お前は引き数同士、戻り値同士を比べてプロシ―ジャが2つあると言い出すバカ者だ。

構造の話なんだから引数と戻り値の関係を比較して、両者が同じ関係かどうか評価しろよ。

**デフォルトの名無しさん** · 2018/08/15(水) 13:02:03.82

また頓珍漢なこと言い出したぞ w

まあ「含まれる」とかが構造の話と思えない時点で詰んでる

**デフォルトの名無しさん** · 2018/08/15(水) 13:07:08.07

ついでに言っとくと法学のあんちゃんは全ての学部のどれかに含まれる。
理系院卒のあんちゃんも全ての部署のどれかに含まれる。

同じ構造だ。

**デフォルトの名無しさん** · 2018/08/15(水) 13:09:43.34

この数式のない一軒不毛そうな議論から規則性とか関連性を見つけるのもプロクマラーに必要なスキル

**デフォルトの名無しさん** · 2018/08/15(水) 13:10:36.49

やっと納得を得たようでなによりだ。本題に戻ろう。

部門部署はたくさんあり、総務や営業以外の事務部門には理系院卒のあんちゃんが点在している。
彼らは少しはプログラミングできて他言語も知っているし、申請すればVisualStudioも入れられる。
事務部門全体で見た潜在的なIT能力は高い。

一方、Excelは社内で重要な業務に使われていて部門間・会社間でExcelを介した依存関係が双方向に発生している。
Excel・VBAは必須のツールだ。

そのIT能力でExcelやVBAの能力を補うことが正しい戦略だ。
ネットに繋げないとかOSSが利用できないなんて論外だ。

**デフォルトの名無しさん** · 2018/08/15(水) 13:33:56.84

>>671
他人が書いた糞コードの解読的な

**デフォルトの名無しさん** · 2018/08/15(水) 13:46:28.89

>>670
> 理系院卒のあんちゃんも全ての部署のどれかに含まれる。
まじで言ってる？ w
理系院卒の無職がいないとでも思ってるのか？

>>672
>>655で引っ込んどけばいいものを…

**デフォルトの名無しさん** · 2018/08/15(水) 14:08:47.99

単純に文章が読めないんだなこいつ

**デフォルトの名無しさん** · 2018/08/15(水) 14:09:56.50

はいはい w

**デフォルトの名無しさん** · 2018/08/15(水) 14:48:08.03

>>675
ほんとだね
算数の文章題の内容を式に直したりできなさそう
俺には>>674に正しく伝わる文章なんて書けそうもない

**デフォルトの名無しさん** · 2018/08/15(水) 14:50:05.48

はいはい

> ・理系院卒と部署に関係はある
とか言うアホに言われてもなぁ w

**デフォルトの名無しさん** · 2018/08/15(水) 15:04:43.74

やっぱり>>2にもどったな
印象操作やら神の声やら今夜のおかずやら他のノイズも混ざってるけどｗ

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
引き続き、知ったかぶりがVBAにマウントをとる長文と
VBA老害が見当外れのレスをする長文をお楽しみください

**デフォルトの名無しさん** · 2018/08/15(水) 15:18:45.96

>>679
> 引き続き、知ったかぶりがVBAにマウントをとる「長文」と
> VBA老害が見当外れのレスをする「長文」をお楽しみください
最近の長文 → >>604, >>672
なるほど確かに知ったかの見当外れのレスだわ w

**デフォルトの名無しさん** · 2018/08/15(水) 20:28:47.28

アレ？
なんで罵り合いが終わったの？
燃料切れ？

**デフォルトの名無しさん** · 2018/08/15(水) 20:45:18.70

寝落ち
起きたら再開

**デフォルトの名無しさん** · 2018/08/15(水) 20:55:50.25

期待してます
ボッコボコにして

**デフォルトの名無しさん** · 2018/08/15(水) 21:45:16.76

>>682
お仕事とか…してらっしゃらないんですか…？

**デフォルトの名無しさん** · 2018/08/15(水) 22:00:35.47

世間では明日までお盆休みだよ

**デフォルトの名無しさん** · 2018/08/15(水) 22:04:45.10

裏山
俺は強まで・・・

**デフォルトの名無しさん** · 2018/08/15(水) 22:08:06.98

主張の食い違いとかだったら面白いんだけどね

**デフォルトの名無しさん** · 2018/08/16(木) 00:05:39.03

>>477をまず読め。
ねえちゃん・おっさんは何処に所属してる?

まずVBAを使うのは会社全体の中で事務部門に所属するような、ねえちゃん・おっさんだと言ってる。

それに対してVBAを使うのは事務部門以外に所属する理系院卒だってあり得るだろうというのが>>482だ。

だから>>477と>482のやり取りの中ではその例に出てきた理系院卒は会社に所属している前提だ。

日本語弱い君は文章全体を理解しようとせずに出てくる単語単体にこだわるようだ。
アスペか何かか?

**デフォルトの名無しさん** · 2018/08/16(木) 00:15:17.92

>>688
ちょっと違うよ
>>482は理系院卒を「事務部門以外」とは言ってない。
事務部門にもいろいろな部署があるからね。いわゆる戦略的な「攻め」の部署には割とエリートっぽい奴が配属される。

まあスレの流れ的にはあまり関係ないからいいけど。

**デフォルトの名無しさん** · 2018/08/16(木) 00:20:40.85

>>689
確かに事務部門以外に限定しているわけじゃないけど、日本語弱い君とやり取りしてると細かいことはど―でも良くなる。

もっと基本的な所が既に通じないからな。

**デフォルトの名無しさん** · 2018/08/16(木) 00:22:29.57

(こいつらいったい何と戦っているんだ…)

**デフォルトの名無しさん** · 2018/08/16(木) 00:41:08.45

>>691
そりゃもちろん
「事務員に高度なITは使いこなせないから不要」
っていう固定観念と戦っているのさ。
事務員の中のポテンシャルの高い連中の能力を引き出せれば
くだらないSIerなんかとおさらばできて競争力も高まるからね。

**デフォルトの名無しさん** · 2018/08/16(木) 06:03:27.79

Worksheets("w").Range(Cells(1, 1), Cells(1, 43)).ClearContents
これってシートをアクティブにしなくても使えますよね？
アプリケーション定義またはオブジェクト定義のエラーが出てしまうのですが

**デフォルトの名無しさん** · 2018/08/16(木) 06:29:39.37

>>693
そのコードが実行されるときにアクティブになっているブックにwシートがなければエラーになるぞ
当たり前だけど

指定してるシートの名前が"w"じゃなくて"ｗ"とか"w "になってたなんてことはよくあるし、コードの実行時にwシートを持たない別のブックがアクティブになってしまってる場合もある

**デフォルトの名無しさん** · 2018/08/16(木) 06:34:34.81

>>693
wがアクティブでないとエラーになりますよ

**デフォルトの名無しさん** · 2018/08/16(木) 06:57:21.22

>>691
NASAの工作員かなんか

**デフォルトの名無しさん** · 2018/08/16(木) 07:23:14.62

>>688
> 理系院卒は会社に所属している前提だ。
で、それが何か？
含まれるの概念がわかってないの？
あと会社にいるからと言って所属部署があるとは限らんよ、社長かもしれないしね w

**デフォルトの名無しさん** · 2018/08/16(木) 08:10:34.34

>>697
文章をちゃんと読め。
理系院卒は"この場合は"何処かの部署に含まれている前提だ。
社長であるという前提ではない。

**デフォルトの名無しさん** · 2018/08/16(木) 08:26:56.80

>>698
で、それが何か？ w
ツッコミが明後日過ぎて笑うわ

**デフォルトの名無しさん** · 2018/08/16(木) 08:51:59.47

>>699
そういうわけで日本語に弱く論理破綻しているのがお前という結論にお前が抗えなくなったということだ。

**デフォルトの名無しさん** · 2018/08/16(木) 08:59:32.11

本当に再開してるじゃん
もしかして自作自演？
だとしたら深刻な症状ですよ

**デフォルトの名無しさん** · 2018/08/16(木) 09:06:30.09

セルに4桁の数字を打ち込むと､その行の変えたい4桁の数字が全部入れ替わるようにしたいのですが､できますか?
いまは､デフォルトで4桁の数字を9999に入れておいて､すべて置き換えで変えたい4桁の数字に置換えています｡
よろしくお願いします!

**デフォルトの名無しさん** · 2018/08/16(木) 09:07:26.88

出来る

**デフォルトの名無しさん** · 2018/08/16(木) 09:12:04.69

そもそもは>>477と>>482のやり取りをどう解釈するかという問題だ。

日本語弱い君の解釈では>>482は事務部門にいる理系院卒という解釈だ。
そして俺の解釈では>>482では理系院卒は事務部門に限定しているわけじゃないという解釈だ。

それなのに目先の文章や単語単体にとらわれて元々の>>477、>>482のやり取りを忘れてもらっては困る。

**デフォルトの名無しさん** · 2018/08/16(木) 09:21:29.75

>>702
今通勤中で手元にPCが無い。
WorkSheetのセルの値が変わったイベントで以下のようにする。
コードの中でTargetがA列の場合だけ以下が走るようにすればOK。
あとRows(i)はUsedRangeに限定した方が良いかな。
Dim cl As Range
For Each cl In Rows(i).Cells
cl.Value=Replace(cl.Value,Cells(i,1).Value)
Next

**デフォルトの名無しさん** · 2018/08/16(木) 09:37:10.05

>>704
悪いけど>>482は事務部門にいる理系院卒という意味だよ。
文章だけではそう限定できないから、どう取っても論理的に解釈間違いになるわけじゃないけどね。

>>477では事務部門のスタッフを「ねーちゃん・オッサン」と呼び、VisualStudioを使った開発なんかできない
人々の集まりのように描写していた。
それを「印象操作」と呼んだわけだ。

**デフォルトの名無しさん** · 2018/08/16(木) 09:40:28.42

既出かも知れません。
セルに入力した式を、数式として返すvbaが欲しい。

あるセルに=A1×A2と入っていれば、指定セルに2×3=6とか表示するやつ。

**デフォルトの名無しさん** · 2018/08/16(木) 09:43:32.55

>>700, >>704
> それなのに目先の文章や単語単体にとらわれて
それお前な

> ・法学部は学部に含まれる
> ・理系院卒と部署に関係はある
どんな関係があるんだ？
そもそも「含まれる」と「関係ある」という時点で比較になってないし
>>655で許してやったんだからそこでやめてりゃいいのに w

**デフォルトの名無しさん** · 2018/08/16(木) 09:45:06.52

じゃ、作れよ
俺はできんけど

**デフォルトの名無しさん** · 2018/08/16(木) 10:01:07.98

>>708
＞・理系院卒と部署に関係はある

単に事実として書いたんであって、論理的に読み取るとか解釈できる・できないの話じゃないでしょ。

**デフォルトの名無しさん** · 2018/08/16(木) 10:53:21.12

>>710
>>・理系院卒と部署に関係はある
> 単に事実として書いたんであって
だから「どんな関係」かを書きなよ

> 論理的に読み取るとか解釈できる・できないの話じゃないでしょ。
誰もそんな頓珍漢な話はしてない

**デフォルトの名無しさん** · 2018/08/16(木) 11:00:04.22

>>711
もう書かれているから断る

**デフォルトの名無しさん** · 2018/08/16(木) 11:16:20.96

やたら長文飛び交ってるからスルーしてたけどお前ら馬鹿なのか？

**デフォルトの名無しさん** · 2018/08/16(木) 11:36:03.34

>>713
スルーして本題が復活するまで待つか自分で振るかすればいいじゃん。

**デフォルトの名無しさん** · 2018/08/16(木) 11:37:12.39

これ自作自演のひとりの人らしいですよ

**デフォルトの名無しさん** · 2018/08/16(木) 11:55:56.49

botだよ

**デフォルトの名無しさん** · 2018/08/16(木) 12:04:32.04

最近のAIはすごいな

**デフォルトの名無しさん** · 2018/08/16(木) 12:08:01.31

>>693
cellsにも明示的にシート指定すればいいんだよ

**デフォルトの名無しさん** · 2018/08/16(木) 12:39:20.77

>>712
> もう書かれているから断る
でも、どこに書いてるかは明かせないってか？
低能がごまかすのによくやる手 w

**デフォルトの名無しさん** · 2018/08/16(木) 12:42:23.78

>>717
AIにしても酷い出来だろ、これは

**デフォルトの名無しさん** · 2018/08/16(木) 12:44:51.37

まだ機械学習中なんで

**デフォルトの名無しさん** · 2018/08/16(木) 12:51:48.47

>>719
みんな思ってるんだよ。
「断る」
ってな。

**702** · 2018/08/16(木) 12:55:51.13

>>705
ありがとうございます!

**デフォルトの名無しさん** · 2018/08/16(木) 12:59:30.71

みんな知らんだろうけどこの法学部と院卒のくだりは昨日の夜からやってるんだからな
一旦睡眠のために休憩してたみたいだけど
こんなどーでも良いことを続けられるなんて凄いよな

**デフォルトの名無しさん** · 2018/08/16(木) 13:41:48.38

>>724
人間はどーでもいいことにこそ注力しちゃう生き物なんだよなぁ
でもよそでやれ

**デフォルトの名無しさん** · 2018/08/16(木) 14:01:26.94

>>722
はいはい w

詭弁のガイドライン
5.資料を示さず持論が支持されていると思わせる
https://ma tome.na ver.jp/m/odai/2144740466806479501

**デフォルトの名無しさん** · 2018/08/16(木) 15:28:17.68

また寝たのか？
生活リズムガッタガタやな

**デフォルトの名無しさん** · 2018/08/16(木) 16:03:09.69

質問したいんやけど
VBA　エキスパートのベーシックの資格を取ろう公式テキスト買ったんやけど
模擬試験をやろうとしたけどWindows ７までしか対応していないんや
Windows 10の場合、代替プログラムをインストールしろと書いてあるが
インストールの仕方がわからん
知ってる人いる？

**デフォルトの名無しさん** · 2018/08/16(木) 17:16:08.82

すげーな、ハンドルと右折の話から一週間くらいでこれとか活気があっていいなｗ

サマータイムの話が職場で盛り上がった時に
それくらいはプログラム作るときに考慮しておけよなって人が多くて
やっぱり求められてるのはハンドル作れってことなんだなと痛感したわ
ー応じようだなんて１ミリも思わないけどｗｗ

**デフォルトの名無しさん** · 2018/08/16(木) 18:00:06.03

>>728
それ自体が試験の一部

**デフォルトの名無しさん** · 2018/08/16(木) 18:48:51.47

>>728
そのテキストのHPとかあるんじゃね

**デフォルトの名無しさん** · 2018/08/16(木) 21:26:24.30

教えてください

マクロを登録したチェックボックスを用意して、ワンクリックでその隣のセルの値をコピーする
という簡単そうな事ができませんでした
Activecell.offset(,1).Copy
くらいの事でできると思っていました…
すみません助けてください
たぶんすぐ出来るとか豪語してしまいました
反省しています

**デフォルトの名無しさん** · 2018/08/16(木) 21:31:43.44

>>732
出来ませんでした、と謝ればいいと思う

**デフォルトの名無しさん** · 2018/08/16(木) 21:46:48.30

>>732
Private Sub CheckBox1_Click()
　　CheckBox1.TopLeftCell.Offset(0, 1) = "←ここだよ"
End Sub

**デフォルトの名無しさん** · 2018/08/16(木) 23:30:13.50

>>734
参考にしてできました！
ありがとうございました！！！

**デフォルトの名無しさん** · 2018/08/17(金) 01:42:30.73

>>735
馬鹿は死ねよ

**デフォルトの名無しさん** · 2018/08/17(金) 01:50:16.73

そんなに自分を卑下しなくてもいいぞ

**デフォルトの名無しさん** · 2018/08/17(金) 07:22:56.68

>>736
隗より始めよ

**デフォルトの名無しさん** · 2018/08/17(金) 08:34:01.64

>>736
泣いて馬鹿を斬る

**デフォルトの名無しさん** · 2018/08/17(金) 17:20:05.57

with使うやつアホなの？
.で始まる部分を見るたびにwithを探しに行って確認する手間暇がかかって面倒。

**デフォルトの名無しさん** · 2018/08/17(金) 18:01:20.36

普通の人が追うのに苦労するほどなら確かにWithの使い方としてはあまり良くない
ただ>>740の能力がなさ過ぎる可能性が微レ存

**デフォルトの名無しさん** · 2018/08/17(金) 18:03:08.60

>>740
何故頑なに変数使わんのか謎だよなw
一行に何度も.出てくるの見ると吐きそうになる