探検
Excel VBA 質問スレ Part65
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (ワッチョイ 3bda-drwQ)
2020/03/17(火) 16:27:20.88ID:hh8LiIgR0ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part64
https://mevius.5ch.net/test/read.cgi/tech/1575297834/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
463デフォルトの名無しさん (ワッチョイ 9fb5-5bTb)
2020/04/19(日) 23:33:41.15ID:Dosl7noD0 >>461
やったというより訳も分からずここの人にただ完成させてもらっただけだから俺の本当のVBAの勉強はこれからという感じで
おかげで肩の荷が降りて基礎から学べる幸運な情況ですね
変数の宣言やデータ型は何となく理解して
こっから仕事で簡単に自分でやってけそうな関数をこなせるようにしていきたい
ここの列が空白になるまで指定の列に四捨五入した数値を貼り付け
とか絶対数を貼り付け
あとは数値のバラし
とか覚えていって自職場で簡単なVBAのテンプレート作って行けたらいいなと
やったというより訳も分からずここの人にただ完成させてもらっただけだから俺の本当のVBAの勉強はこれからという感じで
おかげで肩の荷が降りて基礎から学べる幸運な情況ですね
変数の宣言やデータ型は何となく理解して
こっから仕事で簡単に自分でやってけそうな関数をこなせるようにしていきたい
ここの列が空白になるまで指定の列に四捨五入した数値を貼り付け
とか絶対数を貼り付け
あとは数値のバラし
とか覚えていって自職場で簡単なVBAのテンプレート作って行けたらいいなと
464デフォルトの名無しさん (ワッチョイ 1701-xa8R)
2020/04/20(月) 00:04:39.91ID:jmR48CvL0465デフォルトの名無しさん (ワッチョイ 77ce-Ho7r)
2020/04/20(月) 00:13:41.98ID:01IV/2aE0466デフォルトの名無しさん (ワッチョイ bf2f-8Jcx)
2020/04/20(月) 00:54:15.80ID:3RmvNNii0 >>462
だから例えば130や250という数値をどういう文字にしたいんだ?
>Bitmapファイルをテキスト形式で表示したもの
普通に言うビットマップファイルはバイナリだからテキスト形式で表示なんてできないが
というか、たんにいわゆる.BMPのファイル作りたいって話じゃないのか
お前がいってるBitmapファイルってどんなんだよ
なんにせよ出力したいデータフォーマットちゃんと確認しろ
だから例えば130や250という数値をどういう文字にしたいんだ?
>Bitmapファイルをテキスト形式で表示したもの
普通に言うビットマップファイルはバイナリだからテキスト形式で表示なんてできないが
というか、たんにいわゆる.BMPのファイル作りたいって話じゃないのか
お前がいってるBitmapファイルってどんなんだよ
なんにせよ出力したいデータフォーマットちゃんと確認しろ
467デフォルトの名無しさん (ワッチョイ ff8e-eUuY)
2020/04/20(月) 01:18:49.70ID:ayPjQ7gM0 なぜ次から次へと馬鹿が出てくるのか
468デフォルトの名無しさん (スプッッ Sddf-Ho7r)
2020/04/20(月) 01:59:49.42ID:7tfcEhPrd469デフォルトの名無しさん (スフッ Sdbf-Ho7r)
2020/04/20(月) 02:13:58.53ID:ngLECqIpd >>462
AscUとかASCiiとか、なんでいちいち気持ち悪い書き方をするのか
こんなん入力するのも面倒だろうに
正式には全部大文字でASCII、許容範囲で小文字ascii、賛否ありそうだけど頭だけ大文字Asciiもギリ許せる、どれかにしてくれ
1文字たりとも間違いを許さない厳密さがないとプログラミングは無理だぞ
AscUとかASCiiとか、なんでいちいち気持ち悪い書き方をするのか
こんなん入力するのも面倒だろうに
正式には全部大文字でASCII、許容範囲で小文字ascii、賛否ありそうだけど頭だけ大文字Asciiもギリ許せる、どれかにしてくれ
1文字たりとも間違いを許さない厳密さがないとプログラミングは無理だぞ
470デフォルトの名無しさん (スフッ Sdbf-Ho7r)
2020/04/20(月) 02:14:21.83ID:ngLECqIpd とにかく、説明がへたくそすぎて、何が悪いのかさっぱりわからん
動かない今のプログラムをここにそのまま書いてくれ
たぶんそれ見た方が早い
あとオシロスコープの機種名も
動かない今のプログラムをここにそのまま書いてくれ
たぶんそれ見た方が早い
あとオシロスコープの機種名も
471デフォルトの名無しさん (ワッチョイ 9fb5-5bTb)
2020/04/20(月) 03:07:35.60ID:HepRq5En0 勉強しても仕事より辛い
472デフォルトの名無しさん (スフッ Sdbf-csEB)
2020/04/20(月) 03:16:22.96ID:0LewM/0Ud たぶん、こうだな
Open "オシロ画面.bmp" For Binary Access Write As #1 'ファイル名を指定
Put #1, , 変数名 'バイト配列をそのまま全部出力
Close #1 '終了
Open "オシロ画面.bmp" For Binary Access Write As #1 'ファイル名を指定
Put #1, , 変数名 'バイト配列をそのまま全部出力
Close #1 '終了
473デフォルトの名無しさん (ワッチョイ 77da-Ho7r)
2020/04/20(月) 06:02:11.72ID:1SCvgf4l0 >>471
就職先間違えたんじゃね
就職先間違えたんじゃね
474デフォルトの名無しさん (スプッッ Sd3f-N0vN)
2020/04/20(月) 09:42:05.89ID:kpWyfGjqd475デフォルトの名無しさん (ドコグロ MMdf-h94e)
2020/04/20(月) 09:53:56.27ID:k6bRrEuIM >>474
マジで日本語理解できないの?
時系列ってわかる?
それとも無職の妄想だから同じ話を繰り返すしかなくなったのか?w
> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
できてないから今アタフタしてるだけだろ
マジで日本語理解できないの?
時系列ってわかる?
それとも無職の妄想だから同じ話を繰り返すしかなくなったのか?w
> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
できてないから今アタフタしてるだけだろ
476デフォルトの名無しさん (スップ Sd3f-N0vN)
2020/04/20(月) 10:02:13.61ID:8H2k4fX/d477デフォルトの名無しさん (スップ Sd3f-N0vN)
2020/04/20(月) 10:04:53.07ID:8H2k4fX/d ついでに言っとくと、正直に言えばたった今じゃねえ。
2週間程度前の話だ。
でも掲示板で、そんな説明することは無いだろ。
どーでも良い話だからな。
2週間程度前の話だ。
でも掲示板で、そんな説明することは無いだろ。
どーでも良い話だからな。
478デフォルトの名無しさん (スップ Sd3f-N0vN)
2020/04/20(月) 10:07:15.13ID:8H2k4fX/d >>475
さらにいうと、お前の言うとおりなら、日本にはまともでない会社だらけになっちまうけどなw
さらにいうと、お前の言うとおりなら、日本にはまともでない会社だらけになっちまうけどなw
479デフォルトの名無しさん (ドコグロ MM5b-h94e)
2020/04/20(月) 10:21:33.79ID:RWBNH8g+M480デフォルトの名無しさん (ブーイモ MMcf-9YMR)
2020/04/20(月) 10:51:40.63ID:Smt4njnQM481デフォルトの名無しさん (ドコグロ MMdf-h94e)
2020/04/20(月) 12:53:38.03ID:zSz1bMm9M482デフォルトの名無しさん (アウアウエー Sadf-Ho7r)
2020/04/20(月) 13:20:10.45ID:+VtGXs+Fa483デフォルトの名無しさん (ブーイモ MMcf-IW4T)
2020/04/20(月) 17:29:22.02ID:LK5TIQvQM C5とD5の平方根をE5に入力する
これをC列が空白になるで行う
のシンプルなコード教えてくだせぇ
これをC列が空白になるで行う
のシンプルなコード教えてくだせぇ
484デフォルトの名無しさん (ワッチョイ ff8e-eUuY)
2020/04/20(月) 17:33:09.60ID:ayPjQ7gM0 なぜ次から次へと馬鹿が来るのか
485デフォルトの名無しさん (ワッチョイ ffcc-Ho7r)
2020/04/20(月) 17:47:32.52ID:gp23hNl10 >>483
Columns("C:C").ClearContents
Columns("C:C").ClearContents
486デフォルトの名無しさん (ワッチョイ 77ce-Ho7r)
2020/04/20(月) 17:58:37.28ID:01IV/2aE0487デフォルトの名無しさん (ワッチョイ b77c-IHcq)
2020/04/20(月) 20:13:51.99ID:Y6XPlQfH0 まともに勉強してないだけだと思う
488デフォルトの名無しさん (ワッチョイ d7ac-RTks)
2020/04/20(月) 20:20:08.90ID:xfj95GQN0 sqr(sqrt)関数あるんだな
489デフォルトの名無しさん (ワッチョイ 5709-xa8R)
2020/04/20(月) 20:27:38.91ID:326Vj6040 皆様は、同一のブック内で複数のマクロがあり、それらの実行時に共通の処理を
させたいとき(実行しますか?の確認メッセなど)どういうコードを
書いておりますでしょうか。
私は開発→挿入→ボタン(フォームコントロール)にそれぞれマクロを登録して
実行させており、これらのボタンclick時に共通イベントを設定しようと
考えているのですが。非効率的でしょうか。
させたいとき(実行しますか?の確認メッセなど)どういうコードを
書いておりますでしょうか。
私は開発→挿入→ボタン(フォームコントロール)にそれぞれマクロを登録して
実行させており、これらのボタンclick時に共通イベントを設定しようと
考えているのですが。非効率的でしょうか。
490デフォルトの名無しさん (ワッチョイ 5709-xa8R)
2020/04/20(月) 20:30:00.63ID:326Vj6040 補足です。現在は共通処理sub作って、マクロごとにそれをcallしておりますが、
そのブックで日々マクロが増加してきており、そのcall一行すら面倒になってきました・・・
そのブックで日々マクロが増加してきており、そのcall一行すら面倒になってきました・・・
491デフォルトの名無しさん (ワッチョイ b77c-IHcq)
2020/04/20(月) 20:37:06.98ID:Y6XPlQfH0 辞書登録でもしておくとか
492デフォルトの名無しさん (オッペケ Sr8b-uk89)
2020/04/20(月) 20:57:06.86ID:+CR9zmner >>489
application.callerとselect caseかな
application.callerとselect caseかな
493デフォルトの名無しさん (ワッチョイ 5709-xa8R)
2020/04/20(月) 21:57:48.37ID:326Vj6040494デフォルトの名無しさん (ブーイモ MMcf-5bTb)
2020/04/20(月) 23:00:14.60ID:mqB9NHYzM 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と
なってほしいのですがお手上げです
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と
なってほしいのですがお手上げです
495デフォルトの名無しさん (ワッチョイ ff8e-eUuY)
2020/04/21(火) 00:41:08.46ID:XAeWC18v0 なぜ次から次へと馬鹿が湧くのか
496デフォルトの名無しさん (ワッチョイ b7e6-R0o5)
2020/04/21(火) 01:54:12.98ID:FdhLTsrP0 まさか足し算すら出来ないとは夢にも思わないじゃん
497デフォルトの名無しさん (アウアウウー Sa1b-SldD)
2020/04/21(火) 04:14:58.32ID:uRz5dWGWa sqrt(4) って 2だよね
498デフォルトの名無しさん (アウアウウー Sa1b-SldD)
2020/04/21(火) 04:17:02.05ID:uRz5dWGWa vbaではsqrか
499デフォルトの名無しさん (スップ Sd3f-8lzQ)
2020/04/21(火) 08:23:54.51ID:1TfDEjo0d >>479
あ〜あ。
素人丸わかりw
SEとか、技術者の勉強してるニートかなw
できてるってのは解析する時間もドキュメント残す時間も貰ってるということ。
ということは=それにかかる費用も貰ってるということだよ。
こんなことも理解出来ないのか?
VBAの案件ってのは残念ながら能力の低い奴がやることも多く、常識が通じないことが多い。
なにしろ時給2000円とかでやってる奴も結構いるくらいだ。
俺の場合は時給換算じゃね―けど時給になおしたら最低でも1.5倍は貰わないとやってられねえ。
あ〜あ。
素人丸わかりw
SEとか、技術者の勉強してるニートかなw
できてるってのは解析する時間もドキュメント残す時間も貰ってるということ。
ということは=それにかかる費用も貰ってるということだよ。
こんなことも理解出来ないのか?
VBAの案件ってのは残念ながら能力の低い奴がやることも多く、常識が通じないことが多い。
なにしろ時給2000円とかでやってる奴も結構いるくらいだ。
俺の場合は時給換算じゃね―けど時給になおしたら最低でも1.5倍は貰わないとやってられねえ。
500デフォルトの名無しさん (ドコグロ MM5b-Wm+M)
2020/04/21(火) 08:50:35.54ID:sDUb3bhdM >>499
> できてるってのは解析する時間もドキュメント残す時間も貰ってるということ。
> ということは=それにかかる費用も貰ってるということだよ。
↑
> 今、他人のそういうコードで四苦八苦してる。
> こんなことも理解出来ないのか?
で、何を理解しろって?
お前の頓珍漢さか?
あと3,000円/hってドヤるほど高くないぞw
> できてるってのは解析する時間もドキュメント残す時間も貰ってるということ。
> ということは=それにかかる費用も貰ってるということだよ。
↑
> 今、他人のそういうコードで四苦八苦してる。
> こんなことも理解出来ないのか?
で、何を理解しろって?
お前の頓珍漢さか?
あと3,000円/hってドヤるほど高くないぞw
501デフォルトの名無しさん (ワッチョイ 77da-Ho7r)
2020/04/21(火) 10:52:51.55ID:mWboXDgG0 excelの事務処理で時給3000円は高くね?
502デフォルトの名無しさん (ワッチョイ 7749-RTks)
2020/04/21(火) 11:40:05.07ID:Jp/GQMh30 何が分からんのか分からんから、とりあえず値2つの合計の平方根を求めるやつをかいた
シート
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 ' 値1,値2,値の合計
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
シート
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 ' 値1,値2,値の合計
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
503502 (ワッチョイ 7749-RTks)
2020/04/21(火) 11:42:34.25ID:Jp/GQMh30504デフォルトの名無しさん (スップ Sd3f-8lzQ)
2020/04/21(火) 12:31:16.21ID:1TfDEjo0d >>500
日本語がまともに出来ないアホには理解出来ないからお前には無理w
何を理解しろって、別にお前に対して理解しろなんて言ってないぞ。
理解出来ないアホさ加減を嗤ってるだけだw
アホだから3,000円/hに突っ込むと思ったwww
最低でもと書いてるんだが。
そもそも、そこに突っ込むんじゃ無くて2000円/hに突っ込め。
そういう所はドキュメント無しで終わってもしようが無い。
日本語がまともに出来ないアホには理解出来ないからお前には無理w
何を理解しろって、別にお前に対して理解しろなんて言ってないぞ。
理解出来ないアホさ加減を嗤ってるだけだw
アホだから3,000円/hに突っ込むと思ったwww
最低でもと書いてるんだが。
そもそも、そこに突っ込むんじゃ無くて2000円/hに突っ込め。
そういう所はドキュメント無しで終わってもしようが無い。
505デフォルトの名無しさん (スップ Sd3f-8lzQ)
2020/04/21(火) 12:40:09.59ID:1TfDEjo0d506デフォルトの名無しさん (ドコグロ MM4b-Wm+M)
2020/04/21(火) 12:52:51.59ID:ADUc7MNZM >>504
> 日本語がまともに出来ないアホには理解出来ないからお前には無理w
結局説明できなくなって理解力ガーとか低能が逃げる時によくやる手で笑うわ
まあどう言い逃れしようとしても
> 今、他人のそういうコードで四苦八苦してる。
って書いたのに突っ込まれたら何か知らんけどできてると言っちゃったアホがいた事実は消せないよw
> 日本語がまともに出来ないアホには理解出来ないからお前には無理w
結局説明できなくなって理解力ガーとか低能が逃げる時によくやる手で笑うわ
まあどう言い逃れしようとしても
> 今、他人のそういうコードで四苦八苦してる。
って書いたのに突っ込まれたら何か知らんけどできてると言っちゃったアホがいた事実は消せないよw
507デフォルトの名無しさん (ドコグロ MM5b-Wm+M)
2020/04/21(火) 12:57:31.51ID:zuguU9RsM508デフォルトの名無しさん (ワッチョイ 77ce-Ho7r)
2020/04/21(火) 14:56:45.54ID:PwHPaaVD0509デフォルトの名無しさん (ワッチョイ ffcc-Ho7r)
2020/04/21(火) 15:08:54.15ID:VOMv0cPL0 >>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
たぶん
× Cells(Gyo, 4) = Sqr(Cells(Gyo, 2), Cells(Gyo, 3)) * 2
○ Cells(Gyo, 4) = Sqr(Cells(Gyo, 2)^2 + Cells(Gyo, 3)^2) * 2
510デフォルトの名無しさん (スップ Sd3f-8lzQ)
2020/04/21(火) 20:34:28.31ID:1TfDEjo0d511デフォルトの名無しさん (スップ Sd3f-8lzQ)
2020/04/21(火) 20:37:32.58ID:1TfDEjo0d512デフォルトの名無しさん (ドコグロ MMeb-Wm+M)
2020/04/21(火) 20:56:47.79ID:PQUXM5VQM513デフォルトの名無しさん (ワッチョイ 9fb5-bgg0)
2020/04/21(火) 22:37:42.12ID:9g8Dif430 ブックをコピーするボタンを設置したくて
単純に
ActiveSheet.copy
msgbox "コピー完了"
にしてあるのですが
シートが6つある中で特定の2つのシートでそのボタンを選択すると
このシートはコピー不可 みたいなダイアログだしてコピーをしない
その他の4つのシートでは選択すると今まで通りにコピー
みたいな設定って可能でしょうか
すみません。
単純に
ActiveSheet.copy
msgbox "コピー完了"
にしてあるのですが
シートが6つある中で特定の2つのシートでそのボタンを選択すると
このシートはコピー不可 みたいなダイアログだしてコピーをしない
その他の4つのシートでは選択すると今まで通りにコピー
みたいな設定って可能でしょうか
すみません。
514デフォルトの名無しさん (スップ Sd3f-D5eO)
2020/04/21(火) 22:59:56.55ID:bkj7Ha2sd よろしくお願いします
AというブックのA1セルの値を
BというブックのリストというシートのA1からA500までで検索をし、
一致した値がある場合は同列のC〜F行の値を取得し
元のAブックのC1〜F1に貼り付けるVBAを
ご教授ください
AというブックのA1セルの値を
BというブックのリストというシートのA1からA500までで検索をし、
一致した値がある場合は同列のC〜F行の値を取得し
元のAブックのC1〜F1に貼り付けるVBAを
ご教授ください
515デフォルトの名無しさん (ワッチョイ bf02-rm8A)
2020/04/21(火) 23:03:12.43ID:HzeK5leR0 今どこまで出来てるのかソース貼って
それと1個見つかったら2個以上あっても処理終了?
それと1個見つかったら2個以上あっても処理終了?
516デフォルトの名無しさん (オッペケ Sr8b-uk89)
2020/04/21(火) 23:26:39.84ID:RBZ7Rq7nr517デフォルトの名無しさん (ワッチョイ 77ce-Ho7r)
2020/04/21(火) 23:30:41.07ID:PwHPaaVD0 >>513
s = ActiveSheet.Name
Select Case s
Case "Sheet3", "Sheet6" ' コピーできないシート名を並べる
MsgBox "コピー不可"
Case Else
ActiveSheet.Copy
MsgBox "コピー完了"
End Select
s = ActiveSheet.Name
Select Case s
Case "Sheet3", "Sheet6" ' コピーできないシート名を並べる
MsgBox "コピー不可"
Case Else
ActiveSheet.Copy
MsgBox "コピー完了"
End Select
518デフォルトの名無しさん (ワッチョイ 7c7c-sVZV)
2020/04/22(水) 00:16:20.28ID:G7FFveIV0 >>513
そのシートのボタン消せばいいんじゃないのか
そのシートのボタン消せばいいんじゃないのか
519デフォルトの名無しさん (ワッチョイ 7ab5-l81y)
2020/04/22(水) 01:31:05.24ID:6f1TA8hd0 >>517
出来ました。本当にありがとうございます。
出来ました。本当にありがとうございます。
520デフォルトの名無しさん (ワッチョイ 6cac-xf6K)
2020/04/22(水) 01:41:45.18ID:tj5eX5rX0 いえいえ
521デフォルトの名無しさん (ワッチョイ 0791-N0F4)
2020/04/22(水) 11:01:53.99ID:TBrfp0e60 >>512
本当に分かってないとはw
調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
お前はバカだから金と時間そ貰えればただ穴を掘って、その場でその穴を埋めるだけの仕事やらされても喜ぶかもしれんが、金や時間貰っても糞コ一ド読まされるのは普通の奴にゃ苦痛なんだよ。
本当に分かってないとはw
調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
お前はバカだから金と時間そ貰えればただ穴を掘って、その場でその穴を埋めるだけの仕事やらされても喜ぶかもしれんが、金や時間貰っても糞コ一ド読まされるのは普通の奴にゃ苦痛なんだよ。
522デフォルトの名無しさん (ワッチョイ 0791-N0F4)
2020/04/22(水) 11:03:37.37ID:TBrfp0e60523デフォルトの名無しさん (ドコグロ MMa8-f1XF)
2020/04/22(水) 11:40:39.43ID:yd/WL25UM524デフォルトの名無しさん (ドコグロ MM85-f1XF)
2020/04/22(水) 11:48:33.04ID:JonPflQBM すまん途中で送信しちまった
>>521
> 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
ゴメンな、糞会社はそうなんだろね
お疲れ様
>> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
まあ、そもそもまともな会社は他社の糞コードの保守なんて滅多に受けないし
で、何ができたんだ?
>>510では過去形だけど>>325では今まさにやってることになってるけど、偶然この一週間で終わったのかな?
ますます辻褄合わせが大変になってるぞw
>>522
>> 日本語の理解力がないのかな?
>> 自慢にもならないことをいちいち書くとかバカじゃね?
まさかと思うけど3,000円/h相当の俺スゲーとか思ってる?
>>521
> 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
ゴメンな、糞会社はそうなんだろね
お疲れ様
>> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す
まあ、そもそもまともな会社は他社の糞コードの保守なんて滅多に受けないし
で、何ができたんだ?
>>510では過去形だけど>>325では今まさにやってることになってるけど、偶然この一週間で終わったのかな?
ますます辻褄合わせが大変になってるぞw
>>522
>> 日本語の理解力がないのかな?
>> 自慢にもならないことをいちいち書くとかバカじゃね?
まさかと思うけど3,000円/h相当の俺スゲーとか思ってる?
525デフォルトの名無しさん (ワッチョイ 6cac-xf6K)
2020/04/22(水) 12:11:09.80ID:tj5eX5rX0 こういうのってこうやって段々長文になっていくよなw
526デフォルトの名無しさん (ブーイモ MMfd-1Gce)
2020/04/22(水) 12:39:44.42ID:rSQQIqcfM 客は選べない
クソな仕事でも黙々とこなすやつが結局は上に上がってく
文句ばっかり言うやつはそこまでの人間
クソな仕事でも黙々とこなすやつが結局は上に上がってく
文句ばっかり言うやつはそこまでの人間
527デフォルトの名無しさん (ワッチョイ 0791-N0F4)
2020/04/22(水) 12:42:08.80ID:TBrfp0e60 >>523
プw
他人の書いたプログラム見たことすら無いとはw
まともに開発に絡んだことがあれば100人が100人他人のコードなんて読みたく無いんだよ。
引き継ぎという言葉も知らない、ググることも出来ない、保守という仕事が何をやるかも分からない。
二―トが背伸びは恥の元だぞ。
プw
他人の書いたプログラム見たことすら無いとはw
まともに開発に絡んだことがあれば100人が100人他人のコードなんて読みたく無いんだよ。
引き継ぎという言葉も知らない、ググることも出来ない、保守という仕事が何をやるかも分からない。
二―トが背伸びは恥の元だぞ。
528デフォルトの名無しさん (ワッチョイ 0791-N0F4)
2020/04/22(水) 12:44:28.51ID:TBrfp0e60 3000円/hが自慢?
何を言ってるんだ?
3000円/hは最低限の話だが。
アホだからそこに反応する。
2000円/hが主題だと言ってるだろうに。
何を言ってるんだ?
3000円/hは最低限の話だが。
アホだからそこに反応する。
2000円/hが主題だと言ってるだろうに。
529デフォルトの名無しさん (ワッチョイ 0791-N0F4)
2020/04/22(水) 12:47:10.01ID:TBrfp0e60530デフォルトの名無しさん (ワッチョイ 9602-TRCj)
2020/04/22(水) 12:51:44.35ID:M+DGBLrr0 暇なのはわかるけど
何日ひっぱるつもりなん
何日ひっぱるつもりなん
531デフォルトの名無しさん (ブーイモ MM5e-l81y)
2020/04/22(水) 12:58:15.17ID:4ePZRvo/M たびたび済みません
元のVBAのフォーマットから
新しいブックをコピーを教えて頂いたのですが
コピーする度に1回目にコピーしたブック内のシートの右に足されていく みたいな設定は可能ですか?
具体的に言うと4月分をコピー
その次に5月分、6月分とコピーすると
初回(4月分)にコピーしたブックのシート右に足されていく
さらに欲張ると元のフォーマットで4月とか5月とか特定のセルに入力した文字がそのままシート名になってくれる
すみませんがやり方ありましたら御教授を宜しくお願いします。
元のVBAのフォーマットから
新しいブックをコピーを教えて頂いたのですが
コピーする度に1回目にコピーしたブック内のシートの右に足されていく みたいな設定は可能ですか?
具体的に言うと4月分をコピー
その次に5月分、6月分とコピーすると
初回(4月分)にコピーしたブックのシート右に足されていく
さらに欲張ると元のフォーマットで4月とか5月とか特定のセルに入力した文字がそのままシート名になってくれる
すみませんがやり方ありましたら御教授を宜しくお願いします。
532デフォルトの名無しさん (ドコグロ MMa8-f1XF)
2020/04/22(水) 13:20:05.68ID:RF8jAbo1M533デフォルトの名無しさん (ワッチョイ 0101-QpYc)
2020/04/22(水) 14:11:10.05ID:PH7WDass0 >>514
例えばA!A1にリンゴっていれると単価だか購入数だかをB!から拾ってきてA!C1〜F1に入れる感じの物?
多分VBAというよりエクセル関数VLOOKUPで済む話かと
VLOOKUP(A!A1, B!A:F, 3)
例えばA!A1にリンゴっていれると単価だか購入数だかをB!から拾ってきてA!C1〜F1に入れる感じの物?
多分VBAというよりエクセル関数VLOOKUPで済む話かと
VLOOKUP(A!A1, B!A:F, 3)
534デフォルトの名無しさん (ワッチョイ 0101-g4zf)
2020/04/22(水) 14:31:43.03ID:YnJWUcMz0 社内システムで書類となったものの特定の場所の値とエクセルの上の特定の場所の値が合っているか照合したいです。
そういったマクロ組む場合
1. 書類をスキャナーでpdfにする。
2. pdfをocr機能使って照合に使うシートとは違うシートにデータ転記。
3. 2.でデータ転記したシートの値と確認元のシートの値を照合する。
というのがぼんやり浮かんでるんですが、1-3までの流れでよりスマートな方法があるなら上の流れをどう変えたらいいか教えていただけませんか?
よろしくお願いいたします。
そういったマクロ組む場合
1. 書類をスキャナーでpdfにする。
2. pdfをocr機能使って照合に使うシートとは違うシートにデータ転記。
3. 2.でデータ転記したシートの値と確認元のシートの値を照合する。
というのがぼんやり浮かんでるんですが、1-3までの流れでよりスマートな方法があるなら上の流れをどう変えたらいいか教えていただけませんか?
よろしくお願いいたします。
535デフォルトの名無しさん (ラクッペペ MM34-eHaU)
2020/04/22(水) 14:47:15.65ID:lF2YSEgcM マクロで何とかなるスキャナーやOCRならいいんじゃないの?
536デフォルトの名無しさん (ワッチョイ 0791-N0F4)
2020/04/22(水) 15:04:32.48ID:TBrfp0e60537デフォルトの名無しさん (ドコグロ MM85-f1XF)
2020/04/22(水) 15:26:26.42ID:7QCXjzFAM 今度はニートとか言い出したぞw
恥ずかしい奴
>> 結局説明できなくなって理解力ガーとか低能が逃げる時によくやる手で笑うわ
恥ずかしい奴
>> 結局説明できなくなって理解力ガーとか低能が逃げる時によくやる手で笑うわ
538デフォルトの名無しさん (ワッチョイ 0a2f-Hty+)
2020/04/22(水) 17:33:29.11ID:jDnlGnaS0539デフォルトの名無しさん (ワッチョイ 0101-g4zf)
2020/04/22(水) 17:47:01.75ID:YnJWUcMz0 >>535-538
csvファイル関連のapiもかなり時間かかったので開発をつついてみます。
ocr使ってデータ転記しないと私の能力と使えるソフトやapiでは座標指定ができないから回りくどいやり方するつもりです。
今のところGoogleクラウドのocrがapi公開してるからそれにしようかなとぼんやり思ってるとこです。
アドバイスありがとうございました。
csvファイル関連のapiもかなり時間かかったので開発をつついてみます。
ocr使ってデータ転記しないと私の能力と使えるソフトやapiでは座標指定ができないから回りくどいやり方するつもりです。
今のところGoogleクラウドのocrがapi公開してるからそれにしようかなとぼんやり思ってるとこです。
アドバイスありがとうございました。
540デフォルトの名無しさん (ワッチョイ 0791-2b7E)
2020/04/22(水) 18:42:39.01ID:TBrfp0e60 >>537
最低限ってのは俺が受けるとしたら最低限3000円/hは貰わないと受けないという話。
こんなの分からないのお前以外いない。
これまでのやり取りも酷いし、"引き継ぎ"についても分からない。
致命的だよ。
最低限ってのは俺が受けるとしたら最低限3000円/hは貰わないと受けないという話。
こんなの分からないのお前以外いない。
これまでのやり取りも酷いし、"引き継ぎ"についても分からない。
致命的だよ。
541デフォルトの名無しさん (ワッチョイ 0791-2b7E)
2020/04/22(水) 18:50:25.53ID:TBrfp0e60 >>537
あと、その変な引用とアンカ―どうにかならんのか?
あと、その変な引用とアンカ―どうにかならんのか?
542デフォルトの名無しさん (ドコグロ MM40-f1XF)
2020/04/22(水) 19:58:37.32ID:UdDG4RF8M543デフォルトの名無しさん (ワッチョイ d4da-1Gce)
2020/04/22(水) 20:13:28.16ID:bDGlwx+F0 おまえら能ある鷹は爪を隠すってことわざ知っているか?
544デフォルトの名無しさん (ワッチョイ acce-1Gce)
2020/04/22(水) 20:18:29.36ID:Al75grru0 ここは質問スレ
ルールを守らないやつには誰も仕事なんか頼まない
ルールを守らないやつには誰も仕事なんか頼まない
545デフォルトの名無しさん (ワッチョイ 9602-TRCj)
2020/04/22(水) 22:05:00.09ID:M+DGBLrr0 爪出してないしとか言いそう
546デフォルトの名無しさん (アウアウエー Sa6a-BE4G)
2020/04/22(水) 22:35:47.35ID:86ULQnrYa そもそも爪がない
547デフォルトの名無しさん (ワッチョイ 7cda-1Gce)
2020/04/22(水) 23:56:54.01ID:ioC/S0KO0 CSVはComma Separated Valueの略ですが、
Commaはわざわざ略さなくても、既に,があるんだから、そのまま,SVでいいと思うんですよ。
Commaはわざわざ略さなくても、既に,があるんだから、そのまま,SVでいいと思うんですよ。
548デフォルトの名無しさん (ワッチョイ 7cda-1Gce)
2020/04/23(木) 00:04:13.90ID:WrYMug8t0 で、VBAの質問なんですが、何にもないプロシージャって、何か使い道はありますか?
普通は全然意味ないと思うんですが、なんていうか0番スプライト的な感じで。
Sub Test()
End Sub
普通は全然意味ないと思うんですが、なんていうか0番スプライト的な感じで。
Sub Test()
End Sub
549デフォルトの名無しさん (ワッチョイ 91ad-R0M4)
2020/04/23(木) 00:22:20.73ID:IA7mxVD60550デフォルトの名無しさん (ワッチョイ 7c7c-sVZV)
2020/04/23(木) 00:30:31.41ID:/DzsyJb70 誤読とか以前にわかりにくすぎるわ
一体何がいいのか
一体何がいいのか
551デフォルトの名無しさん (ワッチョイ 6cac-xf6K)
2020/04/23(木) 01:00:46.60ID:tvgCM2UH0 今さらcsvの命名にケチつけるなんて、極論が好きな反抗期なんだろ
中身のないプロシージャの意味とか、それ質問する理由も書かないしな
中身のないプロシージャの意味とか、それ質問する理由も書かないしな
552デフォルトの名無しさん (アウアウウー Saab-AGUX)
2020/04/23(木) 02:10:50.59ID:q29uZhI+a >>548
あるかないかならある
あるかないかならある
553デフォルトの名無しさん (ワッチョイ 0791-2b7E)
2020/04/23(木) 02:29:45.14ID:4BIs3zJP0554デフォルトの名無しさん (スップ Sd9e-Op/G)
2020/04/23(木) 03:04:53.13ID:Yau2aIj5d 木曜日にワッチョイが切り替わるんだよなあ
めんどくせえ
めんどくせえ
555デフォルトの名無しさん (ドコグロ MM46-f1XF)
2020/04/23(木) 05:14:45.28ID:Bp33q84zM > 今、他人のそういうコードで四苦八苦してる。
↓
> ついでに言っとくと、正直に言えばたった今じゃねえ。
> 2週間程度前の話だ。
なんだそのバレバレな言い訳はw
流石に恥ずかしくないのか?
そもそもそれが本当だったとしても>>476の
> 出来てるから今、四苦八苦してるんだが。
が意味不明なのは変わらんし
何ができて、何に四苦八苦してるのか書いてみ
> 引用に>>使うアホはいない。
まじでわかってないのかよ…
自分自身への引用を明示してるだけだぞ
馬鹿すぎるわ
↓
> ついでに言っとくと、正直に言えばたった今じゃねえ。
> 2週間程度前の話だ。
なんだそのバレバレな言い訳はw
流石に恥ずかしくないのか?
そもそもそれが本当だったとしても>>476の
> 出来てるから今、四苦八苦してるんだが。
が意味不明なのは変わらんし
何ができて、何に四苦八苦してるのか書いてみ
> 引用に>>使うアホはいない。
まじでわかってないのかよ…
自分自身への引用を明示してるだけだぞ
馬鹿すぎるわ
556デフォルトの名無しさん (オッペケ Sr39-xf6K)
2020/04/23(木) 08:02:32.37ID:WPkfNDtBr VBA質問スレで必死になるのはちょっと恥ずかしいよなあw
557デフォルトの名無しさん (ワッチョイ 0791-2b7E)
2020/04/23(木) 09:42:16.36ID:4BIs3zJP0558デフォルトの名無しさん (ワッチョイ 0791-2b7E)
2020/04/23(木) 09:51:26.69ID:4BIs3zJP0 >>555
解析する時間もドキュメント作成する時間も費用も貰っているが他人のコード解析するのに四苦八苦してるんだがね。
これのどこが変なのかさっぱり分からん。
何ができて何に四苦八苦してるかの前に、お前は俺が何が出来てないと思ってるのか言えよ。
今までの話じゃ、お前の主張は解析する時間、ドキュメント作成する時間や費用を貰うと四苦八苦することが無くなるということのようだが、そんなこたあねえぞ。
解析する時間もドキュメント作成する時間も費用も貰っているが他人のコード解析するのに四苦八苦してるんだがね。
これのどこが変なのかさっぱり分からん。
何ができて何に四苦八苦してるかの前に、お前は俺が何が出来てないと思ってるのか言えよ。
今までの話じゃ、お前の主張は解析する時間、ドキュメント作成する時間や費用を貰うと四苦八苦することが無くなるということのようだが、そんなこたあねえぞ。
559デフォルトの名無しさん (ドコグロ MMa8-f1XF)
2020/04/23(木) 09:51:33.56ID:dNGhRpxuM >>557
「何ができて」の説明が一切なくて失笑
「何ができて」の説明が一切なくて失笑
560デフォルトの名無しさん (ワッチョイ 0791-2b7E)
2020/04/23(木) 09:52:35.44ID:4BIs3zJP0 自分自身への引用でも>>なんて使わん。
>で十分だし、普通。
>で十分だし、普通。
561デフォルトの名無しさん (ドコグロ MM46-f1XF)
2020/04/23(木) 09:55:24.79ID:TqAmz8xEM >>558
ドキュメント作成してるのに四苦八苦してるなら役に立たないドキュメントを作ったお前がアホなだけだけど?
あと、せめてレスを1つにまとめろよ
なぜかバカは同じ内容に複数レスで返すんだよな
まあ低能にまとめる能力を期待しても無駄かなw
ドキュメント作成してるのに四苦八苦してるなら役に立たないドキュメントを作ったお前がアホなだけだけど?
あと、せめてレスを1つにまとめろよ
なぜかバカは同じ内容に複数レスで返すんだよな
まあ低能にまとめる能力を期待しても無駄かなw
562デフォルトの名無しさん (ワッチョイ 0791-2b7E)
2020/04/23(木) 09:55:54.13ID:4BIs3zJP0■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 高市首相の答弁書に「台湾有事答えない」と明記 存立危機発言当時 ★2 [蚤の市★]
- 米大統領報道官「日本と強固な同盟維持、中国とも協力」 [少考さん★]
- JA全農が「新おこめ券」…来年9月末の有効期限を新設、必要経費のみ上乗せ ★2 [蚤の市★]
- ミス・ユニバース フィンランド代表の「つり目」写真が波紋… 本人釈明も批判やまず 協会謝罪「徹底的に検証」へ [冬月記者★]
- 【テレビ】粗品「THE W」バッサリ「おもんない、レベル低い」審査員就任で「日テレが“血の海”に…」 [湛然★]
- 1人3千円の食品高騰対策、何に使える? あいまいなまま衆院通過 [蚤の市★]
- 助けてくれ!!いま電車だがウンコ漏れそう!!!!
- 【悲報】維新の政治資金でガールズバー、高市首相「良いか悪いかは国民の皆さまが判断されること」 [115996789]
- お前ら「冬のボーナス」なんぼだった?
- 中国人、ガチ超正論。「日本人がアイヌに対してやったことを『問題ない』とするなら、中国が日本人に同じことをしても文句ないだろう?」 [314039747]
- 【朗報】井端監督、侍ジャパンで岡本村上の一塁三塁構想を発表WWWWWWWWWWWWWWWWWWWWWWW
- 【悲報】女性「スタバで癒やされに来たのに、小汚いおっさんがいたあ!!😭」 [769050516]
