Excel VBA 質問スレ Part65

2020/03/17(火) 16:27:20.88

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

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

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

2020/04/18(土) 15:07:20.22

>>419
日本語がおかしいというより、自分の脳内理解が共通認識だって信じて疑わない人だったようだぞ
かまった俺も悪かったが、俺は今後スルーするからお前もそうしろ

2020/04/18(土) 15:20:13.12

スレ違いになってきてるとは思うが。

最初のほうの386には
「そもそもexcelVBAって素人が頑張って自動化してみましたってのが99%なんだから
そういうのをメンテしなきゃならない羽目になったって話だろ」
って書いてあって、
ここ数レスはプログラム(開発資産)として引き継いだ中のVBAソースコードに焦点が当たってるように見える

まず引き受けた方がプロ(仕事としてVBAをやる)として、
前者ならドキュメントとかなくても(時間さえあれば)改修も簡単だろう。
後者ならドキュメント残してないやつ、もしくはそれを知らずにスキルもなく引き受けたやつが悪い。

まあこんな、前提とゴールをあやふやにして不毛で幼稚な言い合いをしたいなら別にスレを立ててろ

2020/04/18(土) 15:25:44.82

>>420
> 言うだろw
言うのはお前だけなw

>>421
知ったかが盛って語ったら引っ込みつかなくなったパターンだと思う

2020/04/18(土) 15:45:18.98

>>422
開発やったこと無い奴だから簡単等と言えるw
確かにドキュメントは無いが、あっても他人のコード読むのは大変だぞ。

2020/04/18(土) 15:47:00.47

>>423
引き継ぎって言葉分かってる?
それに、想像力があれば一番最初の段階で想定できるような話なんだがw

2020/04/18(土) 15:51:30.21

引き継ぎ開発でクグったら最初の3つとも他社からの引き継ぎのことが書いてあったわw

開発会社じゃ当たり前のことなんだけどなw

2020/04/18(土) 15:56:09.94

でもググったURL

2020/04/18(土) 15:56:30.59

は出せないw

2020/04/18(土) 15:59:10.55

>>422
ああ、素人のコードを引き継いだとしたらの話か。
まあ、素人の短い簡単なコードならその通りだな。

まあ、>>394に書いた通り、形の上では開発会社らしき所のコードだし、コード量も多いからねえ。
VBAはそういうの多いんだよ。
形では仕事で受けてても素人のコードとか。

2020/04/18(土) 16:01:12.79

>>427
出しても構わんがw
マナー的に出してないだけでw

というか、お前もググって見てから言えよ。
事務員の上にググることさえ出来ないのかよw

2020/04/18(土) 16:21:35.89

出しても構わんけど出せない
うんうん、そうだろねw

2020/04/18(土) 16:40:22.00

>>431
ググれないバカに出してやろうwww

システムの保守ベンダー変更による引き継ぎ
https://www.lanscope.jp/tips/8797/

他社開発システム・アプリケーション保守引継ぎ
https://www.stylez.co.jp/apmt/

他社が開発したシステムを引き継ぎます
https://www.tpc.jp/%E4%BB%96%E7%A4%BE%E3%82%B7%E3%82%B9%E3%83%86%E3%83%A0%E3%81%AE%E5%BC%95%E5%8F%97/

他社が開発したシステムも開発を引き継ぎ保守します。
https://kusanagi.dht-jpn.co.jp/2019/04/yamahakusanagi/

他会社が受託開発したPHPのWEBシステムを引き継ぎ運用し、その後の改修対応などを行うことがあります。
https://qiita.com/xylitol45@github/items/271f2b8e5de3e62d0840

そのWebサイト・システムの保守引き継ぎます。
https://www.accent.co.jp/lp_hosyu/

2020/04/18(土) 16:46:17.35

>>423
な、お前のような素人だけだよw
客が依頼してた会社を変えて、引き受けたのを引き継ぎとは言わないのはwww

2020/04/18(土) 17:45:11.63

必死にググったのは褒めてやるよw
でも、それ運用とか保守の話だろ
そりゃそう言うのは連続してるから引き継ぎって言うだろうけど、10年前の他社のコードの改修を引き継ぎとは言わんわな

2020/04/18(土) 17:51:35.98

微妙にニュアンスがずれてる気がするけど
わざと？

2020/04/18(土) 19:45:41.80

他でやれ

2020/04/18(土) 22:46:28.51

>>434
必死?
一発で出たぞwww

またボロが出る。
開発は作って終わりだと思っているのか?
普通は保守へと継続していくもんなんだが。
何も知らんのなw

2020/04/18(土) 22:51:16.48

>>410
ブラック・ショールズ式ってのが金融の世界にあるんだが、これをググって
初めて日本語の変数見て目が点になったｗ

2020/04/19(日) 05:44:09.18

質問していいのか？
グラフの近似式をセルにコピペするマクロだ。

2020/04/19(日) 06:21:55.35

あらら、他社のコードの保守まで受託してるって話にするの？
そういうケースだと普通はドキュメントも貰ってるはずだけどろくなドキュメントがないって話かな
そんなハイリスキーな受託して>>325みたいな愚痴こぼしてるなら知能の足りない会社と言われてもしょうがないじゃん

まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
でないと保守できないから
>>437は保守が何をするのかすらわかってなさそうw

2020/04/19(日) 06:29:22.92

>>439
コピペは難しい、普通にセルに直接ぶち込め
って書かれてるぞ
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14139043119

2020/04/19(日) 08:34:09.85

近似式をテキストとしてセルに貼るとこまでできたが、そのテキストから係数を得る方法はないですか

2020/04/19(日) 08:38:32.44

近似式をセルに落とし、計算する作業が大量のあるためです

2020/04/19(日) 09:19:45.38

>>440
プw
引き継ぎって知らんの?
いい加減、恥を晒すだけだぞw
というか、VBA案件だけの話だと思ってる?
爆笑もんだw

1つの客から1つの案件だけのわけね―だろ。
寧ろVBAの開発はメインじゃね―ぞ。
DBにAccessなんて普通は無いんだ。
バックエンドとか知らんの?

2020/04/19(日) 09:25:23.89

>>440
あと、知らんのだろうけど、ドキュメント類についてはVBAの場合はそうならないことが多いんだよ。

今までいろんな案件で仕事したがドキュメント貰ったことなんて記憶に無いくらいだ。
で、ドキュメント作る時間も無いことも多い。

これはVBA案件の特殊性だろうな。
VBAが言語として糞呼ばわりされる原因の1つだろう。

2020/04/19(日) 09:40:28.30

もうウザイから消えろ

2020/04/19(日) 09:44:05.10

>>446
無理にこのスレに居なくてもいいんですよ

2020/04/19(日) 10:45:28.85

>>442
近似式a x + bからa とか bを切り出すってこと？
VBA使わずともエクセル関数で出来るでしょ
RIGHT、LEFT、MIDとか駆使しろ

2020/04/19(日) 10:51:03.45

>>444-445
今度はAccessガーとか言い出したのか
まあ言い出すのがAccess止まりなのが物悲しいけどねw

ドキュメントも作らずに何を保守するつもりなんだよ
言われたらその場であたふた調べてやっつけ仕事でテキトーに改修するのか？
そう言うクズ会社なのはよくわかったよ

2020/04/19(日) 11:52:18.06

自宅待機でストレス溜まってんだろなー

2020/04/19(日) 12:04:09.20

>>449
バーカw
今度はじゃね―よw

ある特定の案件だけと考えるバカに教えてやってるだけ。
客からの要望はたくさんある。
VBAなんてたくさんある中のごく一部なのがむしろ普通。

ドキュメント作らずってw
それは最初に受けた会社に言えよwww
現実を知らないニートにゃ分からないんだろうなw

2020/04/19(日) 12:05:45.52

日本語が通じないんだよな。
ドキュメント残してないのがコッチにされてる。

2020/04/19(日) 12:08:31.03

トヨタ並に名前が知られた客から提示されたのがプログラム本体だけで、それ以外何もありませんってことだって有るんだけどな。
結構昔の話だが。

2020/04/19(日) 12:19:58.59

連投バカは日本語が理解できないらしい…
まあ無職の脳内妄想の限界かなw

> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す

2020/04/19(日) 22:09:40.02

長文質問失礼いたします。

VBAを用いたAscⅡコード129～159、224～252範囲の文字変換が上手くいきません。
環境:Windows10Pro excel2007 VB6.5

上記以外のアスキーコードでは、
①[Chrを用いた、AscⅡコード→文字への変換] → ②[Ascを用いた、文字→AscⅡコードへの変換]
の順序で2回変換すると最初と最後でコードが一致します。

しかし、129～159、224～252の範囲だと、
①変換では「・」、②変換では「-32443」が出力されます。(129～159、224～252の範囲ですべて同じ結果)

変換に適した別のコマンドがある、そもそもこのVerでは動作しない等、アドバイスをよろしくお願いいたします。
※大元の目的としては、オシロスコープから取り込んだ画像バイナリデータを画像データにするため、AscⅡコード→文字への変換を行おうとしています。

2020/04/19(日) 22:31:33.52

文字として表示って、その範囲をどんな文字で表示したいんだ？
画像バイナリデータを画像データって、普通画像データはバイナリなんだが

文字として表示しないならとりあえずAscBとChrB使えば一致するんじゃね

2020/04/19(日) 22:31:47.99

>>455
アスキーはAscⅡじゃなくてAsciiな
あと、画像データはバイナリなのに、どうして文字に変換するのかもわからない

方法が間違ってないとして、どこかでデータが化けてる可能性があるけど、どこが悪いのかその文章だけではわからない
まずは変数の型をチェックかな

2020/04/19(日) 22:58:29.23

-32443は文字化けした時に表示される文字のコードだから、根本的にデータの受け渡し方法を間違えてる

2020/04/19(日) 23:08:35.55

覚え初めてまだ三日だけどなかなかエクセル関数のように簡単にはいかんもんだね…
流石入門といえどプログラミング、敷居が高い
(A1:B1)から羅列されてる数字を(C1:D1)に
コピーしてABS関数で絶対数に変換
こんな事すらなかなか難しい

2020/04/19(日) 23:11:40.25

VBAは覚えることが多いだけで
やってることは関数と大差ない

2020/04/19(日) 23:18:18.40

3日？勉強中とかいって1ヶ月近く経ってない？

2020/04/19(日) 23:20:42.34

>>456 >>457
長文の返答失礼します。

>>文字として表示って、その範囲をどんな文字で表示したいんだ？
10進数数字をASCii文字に変換しようとしています。
(66→B 77→M)

>>画像バイナリデータを画像データって、普通画像データはバイナリなんだが
呼び方が不適切だったかもしれません
①画像データ：BM>・・・(Bitmapファイルをテキスト形式で表示したもの)
②画像バイナリデータ：66 77 62 150・・・(上記を10進数変更したもの。オシロスコープからはこの形式でデータを取り込んでいる)

>>あと、画像データはバイナリなのに、どうして文字に変換するのかもわからない
取り込んだ②データを①データ(文字列)に変更、
得られた文字列をファイルに入力し、拡張子を変更して画像ファイルを作成する目的です。

>>文字として表示しないならとりあえずAscBとChrB使えば一致するんじゃね
Chr、ChrB、ChrWでそれぞれ確認したところ、
・Chr
Chr→Asc変換前後で一部データ一致せず。正規データとは一部不一致あり。
・ChrB
ChrB→AscB変換前後で全データ一致。正規データとはほとんど不一致。
・ChrW
ChrW→AscW変換前後で全データ一致。正規データとは一部不一致あり(Chrと正規データの不一致位置と同じ位置)。
※オシロの外付けFDで取り込んだ画像データを正規データ呼んでいます。
※ChrとChrWでは129～159、224～252の範囲のデータのみが正規データと不一致だったが、ChrBでは確認した範囲ではすべてのデータが不一致

>>まずは変数の型をチェックかな
オシロスコープから取り込んだ②データは配列のByte型、Chrで文字列に変換した①データはString型です。

2020/04/19(日) 23:33:41.15

>>461
やったというより訳も分からずここの人にただ完成させてもらっただけだから俺の本当のVBAの勉強はこれからという感じで
おかげで肩の荷が降りて基礎から学べる幸運な情況ですね
変数の宣言やデータ型は何となく理解して
こっから仕事で簡単に自分でやってけそうな関数をこなせるようにしていきたい

ここの列が空白になるまで指定の列に四捨五入した数値を貼り付け
とか絶対数を貼り付け
あとは数値のバラし
とか覚えていって自職場で簡単なVBAのテンプレート作って行けたらいいなと

2020/04/20(月) 00:04:39.91

>>458
アドバイスありがとうございます。

大部分(129～159、224～252以外)の文字変換は問題なかったですが、今一度変換方法を再確認いたします。

2020/04/20(月) 00:13:41.98

>>462
もしかして、それって何も変換せずにそのままバイナリファイルに書き出せばいいのでは？
テキストファイルとバイナリファイルの違いは、出力方法はわかってる？

2020/04/20(月) 00:54:15.80

>>462
だから例えば130や250という数値をどういう文字にしたいんだ？

>Bitmapファイルをテキスト形式で表示したもの
普通に言うビットマップファイルはバイナリだからテキスト形式で表示なんてできないが

というか、たんにいわゆる.BMPのファイル作りたいって話じゃないのか
お前がいってるBitmapファイルってどんなんだよ
なんにせよ出力したいデータフォーマットちゃんと確認しろ

2020/04/20(月) 01:18:49.70

なぜ次から次へと馬鹿が出てくるのか

2020/04/20(月) 01:59:49.42

>>467
外出を自粛したり自宅で仕事する人が増えたから
みんな体力とヒマを持て余してる

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-Ho7r) · 2020/04/20(月) 02:13:58.53

>>462
AscⅡとかASCiiとか、なんでいちいち気持ち悪い書き方をするのか
こんなん入力するのも面倒だろうに
正式には全部大文字でASCII、許容範囲で小文字ascii、賛否ありそうだけど頭だけ大文字Asciiもギリ許せる、どれかにしてくれ

1文字たりとも間違いを許さない厳密さがないとプログラミングは無理だぞ

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-Ho7r) · 2020/04/20(月) 02:14:21.83

とにかく、説明がへたくそすぎて、何が悪いのかさっぱりわからん
動かない今のプログラムをここにそのまま書いてくれ
たぶんそれ見た方が早い
あとオシロスコープの機種名も

2020/04/20(月) 03:07:35.60

勉強しても仕事より辛い

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-csEB) · 2020/04/20(月) 03:16:22.96

たぶん、こうだな

Open "オシロ画面.bmp" For Binary Access Write As #1　'ファイル名を指定
Put #1, , 変数名　'バイト配列をそのまま全部出力
Close #1　'終了

2020/04/20(月) 06:02:11.72

>>471
就職先間違えたんじゃね

2020/04/20(月) 09:42:05.89

>>454
日本語が理解出来て無いバカニートはお前だろw

>要望に答えるためには、今動いてるものも解析しないと答えられるわけが無い。
>そのコ一ドが何やってるかわからずに機能追加なんてできるわけが無い。

だから>>325で四苦八苦してるんだろ。
ついでに言うと、こっちはちゃんとドキュメント残してる。
でもな、VBAの場合で今まで見聞きした前任者、前任の会社は残して無いことが非常に多い。

開発やってればそういう話、よく聞く話なんだよ。

2020/04/20(月) 09:53:56.27

>>474
マジで日本語理解できないの？
時系列ってわかる？
それとも無職の妄想だから同じ話を繰り返すしかなくなったのか？w

> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す

できてないから今アタフタしてるだけだろ

2020/04/20(月) 10:02:13.61

>>475
???
出来てるから今、四苦八苦してるんだが。
解析に苦労してると書いてるだろうがw

2020/04/20(月) 10:04:53.07

ついでに言っとくと、正直に言えばたった今じゃねえ。
2週間程度前の話だ。
でも掲示板で、そんな説明することは無いだろ。
どーでも良い話だからな。

2020/04/20(月) 10:07:15.13

>>475
さらにいうと、お前の言うとおりなら、日本にはまともでない会社だらけになっちまうけどなw

2020/04/20(月) 10:21:33.79

>>476-477
できてるって何が出来てるんだ？
どんどん話が壊れてるぞ

>>478
他社コードの保守はリスク高いから基本受けないし受けるとしたらそれ相応の対価を要求するなんて常識だぞ
言いなりになってそういうのを受けないと死んじゃうクズ会社なら愚痴ってないでまともに働けよw

2020/04/20(月) 10:51:40.63

>>479
常識が通用しない現場なんていくらでもある
お前の経験値が足りないのはよくわかったから、あと15年ぐらい、もっと修羅場を経験してから出直してこい

2020/04/20(月) 12:53:38.03

>>480
うん、常識の通じないクズ会社があることは知ってるよ
それが当たり前とか思ってるのが痛々しい
って話ねw

2020/04/20(月) 13:20:10.45

>>480
結果的に0から作るのと見積額が変わらなくなることも
0から作った方が見積もりが安いこともよくあるw

2020/04/20(月) 17:29:22.02

C5とD5の平方根をE5に入力する
これをC列が空白になるで行う

のシンプルなコード教えてくだせぇ

2020/04/20(月) 17:33:09.60

なぜ次から次へと馬鹿が来るのか

2020/04/20(月) 17:47:32.52

>>483
Columns("C:C").ClearContents

2020/04/20(月) 17:58:37.28

>>483 意味不明
>>485 なるほど、うまいな

2020/04/20(月) 20:13:51.99

まともに勉強してないだけだと思う

2020/04/20(月) 20:20:08.90

sqr(sqrt)関数あるんだな

2020/04/20(月) 20:27:38.91

皆様は、同一のブック内で複数のマクロがあり、それらの実行時に共通の処理を
させたいとき（実行しますか？の確認メッセなど）どういうコードを
書いておりますでしょうか。
私は開発→挿入→ボタン（フォームコントロール）にそれぞれマクロを登録して
実行させており、これらのボタンclick時に共通イベントを設定しようと
考えているのですが。非効率的でしょうか。

2020/04/20(月) 20:30:00.63

補足です。現在は共通処理sub作って、マクロごとにそれをcallしておりますが、
そのブックで日々マクロが増加してきており、そのcall一行すら面倒になってきました・・・

2020/04/20(月) 20:37:06.98

辞書登録でもしておくとか

2020/04/20(月) 20:57:06.86

>>489
application.callerとselect caseかな

2020/04/20(月) 21:57:48.37

>>492
おお、vba実行時に処理できるメソッドがあったんですね！
自分の勉強不足でした、大変助かりました。使わせていただきます。

2020/04/20(月) 23:00:14.60

Sub 関数SQRT練習() 'B2とC2の0に対してのズレ量でD2で位置度を求めこれを16行までやる。

Dim SQRT練習 As String
Dim Gyo As Long
Dim Ans As Double
Sqroot = ("SQRT練習")
Sheets(Sqroot).Select
For Gyo = 2 To 16
Cells(Gyo, 4) = Sqr(Cells(Gyo, 2), Cells(Gyo, 3)) * 2
Next
End Sub

論外ですか？もちろんピコンピコンエラーまくりです。
B1とC1がもしそれぞれ1なら2.828
それぞれ2なら5.657と
なってほしいのですがお手上げです

2020/04/21(火) 00:41:08.46

なぜ次から次へと馬鹿が湧くのか

2020/04/21(火) 01:54:12.98

まさか足し算すら出来ないとは夢にも思わないじゃん

2020/04/21(火) 04:14:58.32

sqrt(4) って 2だよね

2020/04/21(火) 04:17:02.05

vbaではsqrか

2020/04/21(火) 08:23:54.51

>>479
あ～あ。
素人丸わかりw
SEとか、技術者の勉強してるニートかなw

できてるってのは解析する時間もドキュメント残す時間も貰ってるということ。
ということは=それにかかる費用も貰ってるということだよ。
こんなことも理解出来ないのか?

VBAの案件ってのは残念ながら能力の低い奴がやることも多く、常識が通じないことが多い。
なにしろ時給2000円とかでやってる奴も結構いるくらいだ。
俺の場合は時給換算じゃね―けど時給になおしたら最低でも1.5倍は貰わないとやってられねえ。

2020/04/21(火) 08:50:35.54

>>499
> できてるってのは解析する時間もドキュメント残す時間も貰ってるということ。
> ということは=それにかかる費用も貰ってるということだよ。
↑
> 今、他人のそういうコードで四苦八苦してる。

> こんなことも理解出来ないのか?
で、何を理解しろって？
お前の頓珍漢さか？

あと3,000円/hってドヤるほど高くないぞw

2020/04/21(火) 10:52:51.55

excelの事務処理で時給3000円は高くね？

2020/04/21(火) 11:40:05.07

何が分からんのか分からんから、とりあえず値２つの合計の平方根を求めるやつをかいた
シート
https://imgur.com/8uy5ETZ

Sub main1()
Dim StartRow As Long, EndRow As Long ' 処理開始行,処理最終行
Dim r As Long ' カウンタ
Dim FirstValue As Long, SecondValue As Long, SumOfValue As Long ' 値１,値２,値の合計
Dim ValueOfSquareRoot As Double ' 値の合計の平方根

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("SQRT練習")

StartRow = 2
EndRow = 6

' 指定行のみ計算。逐一セルに代入する。計算ステップは細かくしている。虚数となる場合は一律-1をセルに代入。
With ws
For r = StartRow To EndRow
FirstValue = .Cells(r, 2).Value
SecondValue = .Cells(r, 3).Value
SumOfValue = FirstValue + SecondValue
If SumOfValue > 0 Then
ValueOfSquareRoot = Sqr(SumOfValue)
Else
ValueOfSquareRoot = -1
End If
.Cells(r, 4).Value = ValueOfSquareRoot
Next
End With

End Sub

**502** (ﾜｯﾁｮｲ 7749-RTks) · 2020/04/21(火) 11:42:34.25

ちょっとだけ汎用的にも書いた
こっちはベテランの叩き台にしてほしい

長いしあんまり突っ込まれると恥ずかしいから画像
https://imgur.com/4pE5uE6

2020/04/21(火) 12:31:16.21

>>500
日本語がまともに出来ないアホには理解出来ないからお前には無理w
何を理解しろって、別にお前に対して理解しろなんて言ってないぞ。
理解出来ないアホさ加減を嗤ってるだけだw

アホだから3,000円/hに突っ込むと思ったwww
最低でもと書いてるんだが。
そもそも、そこに突っ込むんじゃ無くて2000円/hに突っ込め。
そういう所はドキュメント無しで終わってもしようが無い。

2020/04/21(火) 12:40:09.59

>>501
派遣の場合は高い部類に入るだろうね。
力量があって派遣じゃなければVBAでも余裕で超える。
ExcelVBAでのセルとかシート操作の話では無くなるけど。

2020/04/21(火) 12:52:51.59

>>504
> 日本語がまともに出来ないアホには理解出来ないからお前には無理w
結局説明できなくなって理解力ガーとか低能が逃げる時によくやる手で笑うわ

まあどう言い逃れしようとしても
> 今、他人のそういうコードで四苦八苦してる。
って書いたのに突っ込まれたら何か知らんけどできてると言っちゃったアホがいた事実は消せないよw

2020/04/21(火) 12:57:31.51

>>501, >>505
派遣で事務処理なら高いほうだと思うぞ
まあ大前春子みたいな奴は知らんけどw
ただ、>>499は
> 俺の場合は時給換算じゃね―けど
とか言ってるから正社員なんだろ
ならわざわざドヤる程の額じゃねーよ
ってこと

2020/04/21(火) 14:56:45.54

>>494
「ズレ量」「位置度」の意味がわからん
図を書いて、「ここがズレ量」とか専門用語を使わずに説明してくれ

2020/04/21(火) 15:08:54.15

>>494
たぶん
× Cells(Gyo, 4) = Sqr(Cells(Gyo, 2), Cells(Gyo, 3)) * 2
○ Cells(Gyo, 4) = Sqr(Cells(Gyo, 2)^2 + Cells(Gyo, 3)^2) * 2

2020/04/21(火) 20:34:28.31

>>506
日本語、本当に分からないの?

四苦八苦してたのはその通りだが。
お前は、時間とお金を貰えば穴掘って埋めるだけの仕事でも喜んでやりそうだな。

2020/04/21(火) 20:37:32.58

>>507
正社員www
あの書き方で正社員だと思うかね。

>>505と併せて考えれば普通にフリーと分かりそうなもんだが。

2020/04/21(火) 20:56:47.79

>>510
で、何ができたんだ？
説明できないから穴掘りとかではぐらかそうとしてるのバレバレだよw

>>511
えっ、フリーだと激安だろw
なんでそんなの書いたんだ？

2020/04/21(火) 22:37:42.12

ブックをコピーするボタンを設置したくて

単純に
ActiveSheet.copy
msgbox "コピー完了"

にしてあるのですが
シートが6つある中で特定の2つのシートでそのボタンを選択すると

このシートはコピー不可　みたいなダイアログだしてコピーをしない
その他の4つのシートでは選択すると今まで通りにコピー
みたいな設定って可能でしょうか
すみません。

2020/04/21(火) 22:59:56.55

よろしくお願いします

AというブックのA1セルの値を
BというブックのリストというシートのA1からA500までで検索をし、
一致した値がある場合は同列のC～F行の値を取得し
元のAブックのC1～F1に貼り付けるVBAを
ご教授ください

2020/04/21(火) 23:03:12.43

今どこまで出来てるのかソース貼って
それと1個見つかったら2個以上あっても処理終了？

2020/04/21(火) 23:26:39.84

>>513
activesheet.nameでシート名取得し条件分岐
またはボタンを消す

2020/04/21(火) 23:30:41.07

>>513
s = ActiveSheet.Name
Select Case s
　　Case "Sheet3", "Sheet6"　' コピーできないシート名を並べる
　　　　MsgBox "コピー不可"
　　Case Else
　　　　ActiveSheet.Copy
　　　　MsgBox "コピー完了"
End Select

2020/04/22(水) 00:16:20.28

>>513
そのシートのボタン消せばいいんじゃないのか

2020/04/22(水) 01:31:05.24

>>517
出来ました。本当にありがとうございます。

2020/04/22(水) 01:41:45.18

いえいえ