ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part65
https://mevius.5ch.net/test/read.cgi/tech/1584430040/
※デフォルト設定
探検
Excel VBA 質問スレ Part66
■ このスレッドは過去ログ倉庫に格納されています
11000
2020/05/10(日) 13:43:45.00ID:Nkoph0aj664デフォルトの名無しさん
2020/06/09(火) 17:54:43.46ID:AbQV9kr1 Private Sub TextBox1_Change() 'Xの図面寸法
TextBox3 = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub
Private Sub TextBox2_Change() 'Xの測定値
TextBox3 = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub
Private Sub TextBox3_AfterUpdate()'Xのズレ
TextBox3 = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub
Private Sub TextBox4_Change()'Yの図面寸法
TextBox6 = Val(TextBox4.Value) - Val(TextBox5.Value)
End Sub
Private Sub TextBox5_Change() 'Yの測定値
TextBox6 = Val(TextBox4.Value) - Val(TextBox5.Value)
End Sub
Private Sub TextBox6_Change() 'Yのズレ
TextBox6 = Val(TextBox4.Value) - Val(TextBox5.Value)
End Sub
Private Sub TextBox7_Change()
'位置度最難関
TextBox7 = Val(Sqr(TextBox3.Value) ^ 2) + Val(Sqr(TextBox6.Value) ^ 2) * 2
End Sub
tBox6.Value) ^ 2) * 2
End Sub
1〜6まではぐぐったらなんとかできた
あとは7… >>663 ぐぐるより難しそうで無理す
TextBox3 = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub
Private Sub TextBox2_Change() 'Xの測定値
TextBox3 = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub
Private Sub TextBox3_AfterUpdate()'Xのズレ
TextBox3 = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub
Private Sub TextBox4_Change()'Yの図面寸法
TextBox6 = Val(TextBox4.Value) - Val(TextBox5.Value)
End Sub
Private Sub TextBox5_Change() 'Yの測定値
TextBox6 = Val(TextBox4.Value) - Val(TextBox5.Value)
End Sub
Private Sub TextBox6_Change() 'Yのズレ
TextBox6 = Val(TextBox4.Value) - Val(TextBox5.Value)
End Sub
Private Sub TextBox7_Change()
'位置度最難関
TextBox7 = Val(Sqr(TextBox3.Value) ^ 2) + Val(Sqr(TextBox6.Value) ^ 2) * 2
End Sub
tBox6.Value) ^ 2) * 2
End Sub
1〜6まではぐぐったらなんとかできた
あとは7… >>663 ぐぐるより難しそうで無理す
665デフォルトの名無しさん
2020/06/09(火) 17:58:28.74ID:AbQV9kr1 ああ、最後に変なコピペが混じってる
3と6にも多分式を入れないとだめですよね恐らく
3と6にも多分式を入れないとだめですよね恐らく
666デフォルトの名無しさん
2020/06/09(火) 18:02:48.17ID:AbQV9kr1 いや違う、むしろ7に入れずに3と6っぽい?
そもそもド素人にはやはり厳しいね
頑張りますわ
そもそもド素人にはやはり厳しいね
頑張りますわ
667デフォルトの名無しさん
2020/06/09(火) 18:44:30.51ID:AbQV9kr1 うおぉ、浮動小数点かこりゃ?
どっかでroundで四捨五入せんといかんのね
1人であたふたすまん
ほんとムズい
どっかでroundで四捨五入せんといかんのね
1人であたふたすまん
ほんとムズい
668デフォルトの名無しさん
2020/06/09(火) 19:24:04.57ID:Hq8JX0Tk Changeイベントなんか使うから難しくなるわけで・・・・
そのサイトにあるように、ボタン押して計算するようなもの作りたいんだろ?
ならズレ角度抜きで、テキストボックス7個作って
ボタン押すと上の4個から数値拾ってきて下の3個に計算結果を入れるっていうな
イベント系はCommandButton1_Click()だけでいいはずだぞ
そのサイトにあるように、ボタン押して計算するようなもの作りたいんだろ?
ならズレ角度抜きで、テキストボックス7個作って
ボタン押すと上の4個から数値拾ってきて下の3個に計算結果を入れるっていうな
イベント系はCommandButton1_Click()だけでいいはずだぞ
669デフォルトの名無しさん
2020/06/09(火) 19:44:15.62ID:Hq8JX0Tk Private Sub CommandButton1_Click()
Dim drawingX As Double: drawingX = TextBox1.Value
Dim drawingY As Double: drawingY = TextBox2.Value
Dim realX As Double: realX = TextBox3.Value
Dim realY As Double: realY = TextBox4.Value
Dim diffX As Double: diffX = realX - drawingX
Dim diffY As Double: diffY = realY - drawingY
Dim ResultPosition As Double: ResultPosition = Sqr(diffX * diffX + diffY * diffY) * 2
TextBox5 = ResultPosition
End Sub
https://i.imgur.com/yhMCwtL.jpg
位置度だけだけど。
テキストボックスはIMEModeOffにしておく
Dim drawingX As Double: drawingX = TextBox1.Value
Dim drawingY As Double: drawingY = TextBox2.Value
Dim realX As Double: realX = TextBox3.Value
Dim realY As Double: realY = TextBox4.Value
Dim diffX As Double: diffX = realX - drawingX
Dim diffY As Double: diffY = realY - drawingY
Dim ResultPosition As Double: ResultPosition = Sqr(diffX * diffX + diffY * diffY) * 2
TextBox5 = ResultPosition
End Sub
https://i.imgur.com/yhMCwtL.jpg
位置度だけだけど。
テキストボックスはIMEModeOffにしておく
670デフォルトの名無しさん
2020/06/09(火) 19:49:22.56ID:0Bu4FXEm なんでユーザーフォームってクソダサなんだろな
色変えられるんだしMicrosoftももうちょい気遣ってくれてもいいのにな
色変えられるんだしMicrosoftももうちょい気遣ってくれてもいいのにな
671デフォルトの名無しさん
2020/06/09(火) 20:04:52.19ID:PO2SY+XL >>669
天才ですか、、
何も知らん癖に自動にしたいかなぁと
思って検索してパクりまくって作ってましたわ
ズレ量も欲しいからとせっせと
小数点も3桁以上は四捨五入したく
1〜4までは意味も分からずとりあえず
ちゃんと挙動してるかなぁレベル
アドバイス貰う以前の素人レベルだからスクショですんません
原理すらわかってない
https://i.imgur.com/0iPDqgX.jpg
https://i.imgur.com/ksEqFVN.jpg
天才ですか、、
何も知らん癖に自動にしたいかなぁと
思って検索してパクりまくって作ってましたわ
ズレ量も欲しいからとせっせと
小数点も3桁以上は四捨五入したく
1〜4までは意味も分からずとりあえず
ちゃんと挙動してるかなぁレベル
アドバイス貰う以前の素人レベルだからスクショですんません
原理すらわかってない
https://i.imgur.com/0iPDqgX.jpg
https://i.imgur.com/ksEqFVN.jpg
672582
2020/06/09(火) 20:10:52.53ID:w8zDheKG >>664
そういう書き方せずに>>663を具体的な値の部分は削除してまず関数化する。
Function GetResultPosition(drawingX As Double, drawingY As Double, realX As Double, realY As Double) As Double
Dim diffX As Double: diffX = realX - drawingX
Dim diffY As Double: diffY = realY - drawingY
Dim ResultPosition As Double: ResultPosition = Sqr(diffX * diffX + diffY * diffY) * 2
GetResultPosition = ResultPosition
End Function
初心者を脱っしていれば、点はユーザー定義にしてると思うけど、まあこんな感じ。
そういう書き方せずに>>663を具体的な値の部分は削除してまず関数化する。
Function GetResultPosition(drawingX As Double, drawingY As Double, realX As Double, realY As Double) As Double
Dim diffX As Double: diffX = realX - drawingX
Dim diffY As Double: diffY = realY - drawingY
Dim ResultPosition As Double: ResultPosition = Sqr(diffX * diffX + diffY * diffY) * 2
GetResultPosition = ResultPosition
End Function
初心者を脱っしていれば、点はユーザー定義にしてると思うけど、まあこんな感じ。
673デフォルトの名無しさん
2020/06/09(火) 20:19:17.07ID:OFRsK1Sh いつまで素人素人言い訳してくれくれする気だ
674582
2020/06/09(火) 20:19:48.80ID:w8zDheKG 次にTextBoxの値を関数い代入する。
なお、TextBoxの名前もそれっぽく変えておく。
Sub test()
Dim drawingX As Double
Dim drawingY As Double
Dim realX As Double
Dim realY As Double
drawingX=txtDrawingX.Value
drawingY=txtDrawingY.Value
realX=txtRealX.Value
realY=txtRealY.Value
txtResult.Value=GetResultPosition(drawingX, drawingY, realX, realY)
End Sub
なお、TextBoxの名前もそれっぽく変えておく。
Sub test()
Dim drawingX As Double
Dim drawingY As Double
Dim realX As Double
Dim realY As Double
drawingX=txtDrawingX.Value
drawingY=txtDrawingY.Value
realX=txtRealX.Value
realY=txtRealY.Value
txtResult.Value=GetResultPosition(drawingX, drawingY, realX, realY)
End Sub
675デフォルトの名無しさん
2020/06/09(火) 20:28:43.03ID:PO2SY+XL ごめんスクショの所も直しきれてなかったし初心者を脱してないレベルだから
調子乗って挑戦しようと思ったのが間違い
測定値はどこまで小数点書こうが3桁で四捨五入
ズレ量も四捨五入された3桁で表示
四捨五入された3桁のズレ量同士で計算されて
位置度も3桁で四捨五入されてフィニッシュ
やろうとした事が多すぎました
普段のエクセルのSQRT関数入れたツールか
関数電卓で断念します
クレクレとかじゃなく、助言みんなありがとうです
調子乗って挑戦しようと思ったのが間違い
測定値はどこまで小数点書こうが3桁で四捨五入
ズレ量も四捨五入された3桁で表示
四捨五入された3桁のズレ量同士で計算されて
位置度も3桁で四捨五入されてフィニッシュ
やろうとした事が多すぎました
普段のエクセルのSQRT関数入れたツールか
関数電卓で断念します
クレクレとかじゃなく、助言みんなありがとうです
676582
2020/06/09(火) 20:51:16.65ID:w8zDheKG >>675
四捨五入なんて最後で良いじゃん。
ResultPositionを四捨五入して返すだけだと思うが。
入力の見た目も四捨五入したいならそれぞれでやりゃ良いし。
どっちにしろ、四捨五入なんて考えずに作って、出来てから考えた方が良いぞ。
四捨五入なんて最後で良いじゃん。
ResultPositionを四捨五入して返すだけだと思うが。
入力の見た目も四捨五入したいならそれぞれでやりゃ良いし。
どっちにしろ、四捨五入なんて考えずに作って、出来てから考えた方が良いぞ。
677デフォルトの名無しさん
2020/06/09(火) 21:14:50.07ID:PO2SY+XL >>676
どうも…事情がありまして
ズレ量と位置度を両方記入する必要があるから計算を合わせたいのです
そうしないと記入したズレ量と数値の計算が違ってくるので
なので普段はExcel関数ツール作ってで計算させてます
(名称はセル番地)
まず小数点7桁ぐらいで出力されてきやがるズレ量をRound関数で全て小数点3桁にする
↓
小数点3桁同士で位置度の計算をさせる
=if(位置度="","",SQRT(SUMSQ(X実測値-X図面寸法,Y実測値-Y図面寸法))*2)
↓
最後に出た位置度も小数点3桁にする
=if(位置度="","",Round(位置度,3)
↓
位置度とズレ量を小数点3桁まで記入
現状これが自分の最善だったので…
どうも…事情がありまして
ズレ量と位置度を両方記入する必要があるから計算を合わせたいのです
そうしないと記入したズレ量と数値の計算が違ってくるので
なので普段はExcel関数ツール作ってで計算させてます
(名称はセル番地)
まず小数点7桁ぐらいで出力されてきやがるズレ量をRound関数で全て小数点3桁にする
↓
小数点3桁同士で位置度の計算をさせる
=if(位置度="","",SQRT(SUMSQ(X実測値-X図面寸法,Y実測値-Y図面寸法))*2)
↓
最後に出た位置度も小数点3桁にする
=if(位置度="","",Round(位置度,3)
↓
位置度とズレ量を小数点3桁まで記入
現状これが自分の最善だったので…
678デフォルトの名無しさん
2020/06/09(火) 21:21:13.62ID:PO2SY+XL 間違えた
小数点3桁同士で位置度の計算をさせる
=if(Xの実測値="","",SQRT(SUMSQ(X実測値-X図面寸法,Y実測値-Y図面寸法))*2)
2つ目はこうやった
小数点3桁同士で位置度の計算をさせる
=if(Xの実測値="","",SQRT(SUMSQ(X実測値-X図面寸法,Y実測値-Y図面寸法))*2)
2つ目はこうやった
679582
2020/06/09(火) 21:24:41.76ID:kJxmgxZ3680デフォルトの名無しさん
2020/06/09(火) 21:29:48.33ID:PO2SY+XL681デフォルトの名無しさん
2020/06/09(火) 21:37:07.98ID:/5vAUGTr そういう業務と無縁だからエクセル関数で計算とかほとんど知らん俺からすると
そんな数式ほんとかよと思ったら
ほんとだった
それはそれでよく考えたもんだなおい
測定をする?部署は凄いね
そんな数式ほんとかよと思ったら
ほんとだった
それはそれでよく考えたもんだなおい
測定をする?部署は凄いね
682デフォルトの名無しさん
2020/06/09(火) 21:38:09.42ID:khiSZY25683デフォルトの名無しさん
2020/06/09(火) 21:41:34.61ID:hYyeR2h+ プログラミングの基本も知らないレベルの人がコピペでツール作って業務に使用するって大丈夫なのか?
684デフォルトの名無しさん
2020/06/09(火) 21:45:05.79ID:FZrbGc0Z 少数以下の計算結果を同じにするのは、Excelでは一番難しい分野の一つ
たとえば銀行の利息とか、素人が作った数式だとまず合わない
たとえば銀行の利息とか、素人が作った数式だとまず合わない
685デフォルトの名無しさん
2020/06/09(火) 21:56:09.99ID:khiSZY25 この先も苦労するだろうし、もし重大な問題が起きた場合周りが迷惑するんだよな
686デフォルトの名無しさん
2020/06/09(火) 21:59:00.39ID:I+ooWyO2 馬鹿に教えても何かあるとまた頼るだけ
馬鹿に教えてもろくなことにならんぞ
その場で形だけ低姿勢にしてるだけで本音は違うからな
馬鹿に教えてもろくなことにならんぞ
その場で形だけ低姿勢にしてるだけで本音は違うからな
687デフォルトの名無しさん
2020/06/09(火) 22:01:59.19ID:0Bu4FXEm より正確な計算するのってcurrency型だっけ?
double使うより
double使うより
688デフォルトの名無しさん
2020/06/09(火) 22:10:25.08ID:OFRsK1Sh 向き不向き以前に学習する気が無い
689デフォルトの名無しさん
2020/06/09(火) 22:26:28.10ID:1rtAHViu 少数の計算はどの言語でやってもやっかい
なので普通は名の知れたライブラリを呼ぶ
自分で書くのは最後の手段
なので普通は名の知れたライブラリを呼ぶ
自分で書くのは最後の手段
690デフォルトの名無しさん
2020/06/09(火) 22:27:34.95ID:I+ooWyO2 >>687
違いがわからない馬鹿はコメントしなければ良いのに
違いがわからない馬鹿はコメントしなければ良いのに
691デフォルトの名無しさん
2020/06/09(火) 23:36:40.87ID:KturEXme スレチかもしれないけど他の方法も・・
>>651
VBA使わずにフォームコントロールのリスト選ぶだけで表示
https://i.imgur.com/SHqygJ1.png
>>661
HTAのVBSciptで
https://i.imgur.com/rvwycaA.png
>>651
VBA使わずにフォームコントロールのリスト選ぶだけで表示
https://i.imgur.com/SHqygJ1.png
>>661
HTAのVBSciptで
https://i.imgur.com/rvwycaA.png
692デフォルトの名無しさん
2020/06/10(水) 01:20:22.09ID:aAKpfJRW 学べない俺には刺さるわ、言い訳だが…
これだけは!っていう心臓部になるコードだけはネットで見つけて何とか繋げて作る
どこ弄ればどう変わるかだけ後で見ても絶対わかるようにコードより丁寧なコメントを残す
それさえ完成するともう安心して終わり
あとは簡単な挙動はテンプレがネットにあるからひろってくる
ユーザーフォームのボタンはで黄緑、黄色、水色を多用する
プロシージャ当てはめるだけで職場じゃパソコンの先生扱い
android端末やiPhoneの扱いならなぁ
近所でおばちゃまたちのスマホ教室を副業でやってるくらい詳しいのにっくそっ!
これだけは!っていう心臓部になるコードだけはネットで見つけて何とか繋げて作る
どこ弄ればどう変わるかだけ後で見ても絶対わかるようにコードより丁寧なコメントを残す
それさえ完成するともう安心して終わり
あとは簡単な挙動はテンプレがネットにあるからひろってくる
ユーザーフォームのボタンはで黄緑、黄色、水色を多用する
プロシージャ当てはめるだけで職場じゃパソコンの先生扱い
android端末やiPhoneの扱いならなぁ
近所でおばちゃまたちのスマホ教室を副業でやってるくらい詳しいのにっくそっ!
693デフォルトの名無しさん
2020/06/10(水) 05:20:40.78ID:9S1ZPIsx 趣味や勉強中ならわかるが仕事頼んだら理解してないネットのコピペもって来るような人にはもう頼めんだろ
694582
2020/06/10(水) 06:37:22.19ID:h6488s/K695デフォルトの名無しさん
2020/06/10(水) 08:27:35.36ID:ZDdhDfGU あいつは禿げたおっさんで体臭臭そうだけど、俺からみるとなかなか頑張ってると思うぜ
簡単な書籍買って一冊読んである程度まとまった知識得るといいわ
一年後にはここでふんぞりかえってレスしてると思うね
簡単な書籍買って一冊読んである程度まとまった知識得るといいわ
一年後にはここでふんぞりかえってレスしてると思うね
696デフォルトの名無しさん
2020/06/10(水) 16:06:12.58ID:alb8qwRt 買った本開いたの最初だけで、今は枕になってるぞ
697デフォルトの名無しさん
2020/06/10(水) 16:45:17.85ID:zxOaMDTC >>696
メルカリへ
メルカリへ
698デフォルトの名無しさん
2020/06/10(水) 17:48:53.56ID:GhRRuhdi >>696
くれ
くれ
699デフォルトの名無しさん
2020/06/10(水) 20:30:18.07ID:O8L9L3qt700デフォルトの名無しさん
2020/06/10(水) 20:43:31.30ID:O8L9L3qt なるほど、普段XとYの図面値が両方0な事も結構多い
そういうときはTextboxの1と3(XとYの図面値)のValueを0に設定しとけばいいのか
こういう事を本で基礎から学ばずスマホで調べて小ずるく終わらせるのが自分の学習性の無さ
、本当に駄目ですわ…
教えてくれた人への感謝と自分への落胆が酷い
もう生産部署に飛ばしてくれよ
そういうときはTextboxの1と3(XとYの図面値)のValueを0に設定しとけばいいのか
こういう事を本で基礎から学ばずスマホで調べて小ずるく終わらせるのが自分の学習性の無さ
、本当に駄目ですわ…
教えてくれた人への感謝と自分への落胆が酷い
もう生産部署に飛ばしてくれよ
701デフォルトの名無しさん
2020/06/10(水) 21:27:00.27ID:r05FbU6w フォームボタンを置いてそのシートで矢印押し続けるとセル移動が飛び飛びになるんだけど対処法ありますか?
とりあえずマクロ登録した図形にしたら発生しなくなったけど押した感ないから気持ち悪い
とりあえずマクロ登録した図形にしたら発生しなくなったけど押した感ないから気持ち悪い
702デフォルトの名無しさん
2020/06/10(水) 21:32:19.71ID:2cEQGA3C >>699
理解する気が無いからな
理解する気が無いからな
703デフォルトの名無しさん
2020/06/10(水) 21:34:24.10ID:2cEQGA3C >>701
本当に飛び飛びになってるかカーソル位置をdebug.printとかで確認してみろ
本当に飛び飛びになってるかカーソル位置をdebug.printとかで確認してみろ
704デフォルトの名無しさん
2020/06/10(水) 22:01:15.35ID:zJ0W6AlK705デフォルトの名無しさん
2020/06/10(水) 23:43:02.56ID:r05FbU6w706デフォルトの名無しさん
2020/06/11(木) 02:06:11.07ID:l/gRHUK3 馬鹿はこうやって厚かましく聞きだそうとする
707デフォルトの名無しさん
2020/06/11(木) 04:35:21.72ID:upd9DdGd 俺はあのおっさんはハゲで臭いけどできるやつだって思ってるわ
しゃちょーの器だ
頑張ったな、おっさん
しゃちょーの器だ
頑張ったな、おっさん
708デフォルトの名無しさん
2020/06/11(木) 05:50:14.88ID:p+d7/Y3X >>706
質問スレで何を言ってんだ?
質問スレで何を言ってんだ?
709デフォルトの名無しさん
2020/06/11(木) 07:33:56.10ID:Ppd1dcd+ 馬鹿って言いたいだけの人の相手しちゃダメ
710デフォルトの名無しさん
2020/06/11(木) 12:31:19.92ID:9UX6mR7k いや、学ばない俺でも流石にセルに反映されるボタンくらいは聞かずに作れたのでそこまでは聞いてないですよ
ボタンに
アクティブセルとテキストボックスのvalueを=の動きつけるだけだし
ボタンに
アクティブセルとテキストボックスのvalueを=の動きつけるだけだし
711デフォルトの名無しさん
2020/06/11(木) 14:46:24.05ID:xmZccwT9 その「だけ」の組み合わせなんだよなぁ
712デフォルトの名無しさん
2020/06/11(木) 15:47:31.15ID:fXLeDjMq 算数の問題で答えだけ合っていても計算式がないと正解にはならない
カンニングとみなされるって知らんのか
そうやって問題から逃げている初心者に教えることはない
カンニングとみなされるって知らんのか
そうやって問題から逃げている初心者に教えることはない
713デフォルトの名無しさん
2020/06/11(木) 15:50:35.95ID:fXLeDjMq ちょっと言いすぎたかな
714デフォルトの名無しさん
2020/06/11(木) 15:56:00.83ID:G1l0Tewu いや、それでいいんだよ
715デフォルトの名無しさん
2020/06/11(木) 16:13:44.92ID:HN+bic0j エクセル初心者はVBAなんて触らんし
VBAやマクロ禁止の部署もあるからなぁ
パートさんには入力欄とクリックのみだったりとか
まー初心者がこのスレ見ることもないか・・
VBAやマクロ禁止の部署もあるからなぁ
パートさんには入力欄とクリックのみだったりとか
まー初心者がこのスレ見ることもないか・・
716デフォルトの名無しさん
2020/06/11(木) 17:23:40.82ID:9UX6mR7k いやもう完成しました
感謝もしたし謝罪もします
計算式はPCないところで関数電卓使ったりするから嫌でもわかっとります
√( xズレ^2+yズレ^2) *2
VBAでもまず覚えようと思ったので
Xズレ→B列 Yズレ→C列 位置度→D列のデータの時
Dim s As Long
Do While Cells(s, 3) <> ""
Cells(s, 4) = Sqr(Cells(s, 2) ^ 2 + Cells(s, 3) ^ 2) * 2
Cells(s, 4) = Format(Cells(s, 4), "0.000")
s = s + 1
Loop
エンドサブちゃん
高卒には荷が重すぎ
高学歴でしょここの人達
感謝もしたし謝罪もします
計算式はPCないところで関数電卓使ったりするから嫌でもわかっとります
√( xズレ^2+yズレ^2) *2
VBAでもまず覚えようと思ったので
Xズレ→B列 Yズレ→C列 位置度→D列のデータの時
Dim s As Long
Do While Cells(s, 3) <> ""
Cells(s, 4) = Sqr(Cells(s, 2) ^ 2 + Cells(s, 3) ^ 2) * 2
Cells(s, 4) = Format(Cells(s, 4), "0.000")
s = s + 1
Loop
エンドサブちゃん
高卒には荷が重すぎ
高学歴でしょここの人達
717デフォルトの名無しさん
2020/06/11(木) 17:29:15.93ID:/dMXe1DS その言い訳がましいフレーズをレスに入れるから良くないって、今後は書き込む前に考えたほうがいいよ
ここはもう来なくてもいいから
ここはもう来なくてもいいから
718デフォルトの名無しさん
2020/06/11(木) 17:34:53.28ID:Gg4t4WTy 俺は計算系は答えられんがここは質問スレだからどんどんこい。
煽ってるだけの奴は何の目的でこのスレにするんだ。芸能人の話題待ちでもあるまいし。
自分の決め事があるならいいけど初心者は変数は後でわかるようにとにかく宣言すべし。
日本語だけはあまりお勧めしない。
煽ってるだけの奴は何の目的でこのスレにするんだ。芸能人の話題待ちでもあるまいし。
自分の決め事があるならいいけど初心者は変数は後でわかるようにとにかく宣言すべし。
日本語だけはあまりお勧めしない。
719582
2020/06/11(木) 19:31:53.23ID:lwV9wV8Y720デフォルトの名無しさん
2020/06/11(木) 20:34:47.38ID:upd9DdGd 特定の行・列を表示・非表示にするボタン使ってるんだけどさ
この行・列にActiveXの他のボタンがあったりなんかするこ、たまにこいつらが消滅するんだよなぁ
debug.printとかで位置確認すると確かにそこにいるんだけどHeight=0とかになってる
んで適当にSubプロシージャ作ってHeight=200とかに設定するんだけどだめ
ならない
エラーはかないけど、debug.printで確認してもぜぃろぉのまま
Deleteも効かない
てかエラー出る
オブジェクトの選択と表示からみると存在してる
再起動してもだめ
てかたまに開けなくなるw
しゃーないから、新しいシート作って、そこにシート全選択でこぴぺすると
表示されてるボタンはコピーされるが
消滅したボタン群だけはコピーされない
コピーされないってのは、オブジェクトの選択と表示にそいつらが出なくなることから判断してる
消えたやつは新しく作り直してる
まぁそうすると元に戻るんだけどさ
なんだか半分死んでて半分生きてるような感じなんだろうなぁ
お前らこういうことある?
この行・列にActiveXの他のボタンがあったりなんかするこ、たまにこいつらが消滅するんだよなぁ
debug.printとかで位置確認すると確かにそこにいるんだけどHeight=0とかになってる
んで適当にSubプロシージャ作ってHeight=200とかに設定するんだけどだめ
ならない
エラーはかないけど、debug.printで確認してもぜぃろぉのまま
Deleteも効かない
てかエラー出る
オブジェクトの選択と表示からみると存在してる
再起動してもだめ
てかたまに開けなくなるw
しゃーないから、新しいシート作って、そこにシート全選択でこぴぺすると
表示されてるボタンはコピーされるが
消滅したボタン群だけはコピーされない
コピーされないってのは、オブジェクトの選択と表示にそいつらが出なくなることから判断してる
消えたやつは新しく作り直してる
まぁそうすると元に戻るんだけどさ
なんだか半分死んでて半分生きてるような感じなんだろうなぁ
お前らこういうことある?
721蟻人間 ◆T6xkBnTXz7B0
2020/06/11(木) 20:43:48.25ID:9OB4DptL ActiveXはサポート終了でしょ
722デフォルトの名無しさん
2020/06/11(木) 20:47:39.72ID:upd9DdGd だってぇ・・・右クリで移動されちゃうボタンとかいやだもん
723デフォルトの名無しさん
2020/06/11(木) 21:20:07.19ID:v1OJq4JH Active S○X
724デフォルトの名無しさん
2020/06/11(木) 21:49:44.43ID:Pc/1Hill txt123 = objIE.document.all.tags("table")(2).outerText
でテキストを取得しました。
txt123 の中に授業表が入っています。
体育という単語が含まれていれば、A列のセルに〇、国語という単語が含まれていればB列に〇、
算数はC列・・・
という具合に特定の文字列が含まれていれば指定の列のセルに〇を入れたいのですが、
どうしたらいいでしょうか?
特定の文字列は国語、算数、体育、社会、理科の5つです。
でテキストを取得しました。
txt123 の中に授業表が入っています。
体育という単語が含まれていれば、A列のセルに〇、国語という単語が含まれていればB列に〇、
算数はC列・・・
という具合に特定の文字列が含まれていれば指定の列のセルに〇を入れたいのですが、
どうしたらいいでしょうか?
特定の文字列は国語、算数、体育、社会、理科の5つです。
725デフォルトの名無しさん
2020/06/11(木) 21:52:07.03ID:DFKeKDYT >>724
馬鹿は死ねば治るかもよ
馬鹿は死ねば治るかもよ
727デフォルトの名無しさん
2020/06/11(木) 22:00:18.32ID:vUhEmjDF >>724
こんなこともわからない頭の悪い奴に教えられる子供がどうなるか
こんなこともわからない頭の悪い奴に教えられる子供がどうなるか
728デフォルトの名無しさん
2020/06/11(木) 22:05:40.83ID:S8xfnPZH >>724
色々無理だと思うぞ。やめとけ。
色々無理だと思うぞ。やめとけ。
729デフォルトの名無しさん
2020/06/11(木) 22:28:34.49ID:Pc/1Hill730デフォルトの名無しさん
2020/06/11(木) 23:19:34.07ID:fXLeDjMq まさかと思うがテキストボックス123個とか作ってるんじゃないよな
731デフォルトの名無しさん
2020/06/11(木) 23:44:22.39ID:52kheZTp 何でそれでいきなりIE制御・・・。
732デフォルトの名無しさん
2020/06/12(金) 00:13:44.58ID:Y0E/tOto 授業表をIEで見るって社内システムがそれなのか?
733デフォルトの名無しさん
2020/06/12(金) 00:33:39.25ID:cWAZHeBV IE制御とかレガシーにも程があるだろ。。
734デフォルトの名無しさん
2020/06/12(金) 00:43:49.91ID:V6O8I1+o WebページのテーブルってエクセルのVBAで
IE以外にどうやって取得するの?
IE以外にどうやって取得するの?
735デフォルトの名無しさん
2020/06/12(金) 01:56:00.71ID:MW3IhN88 test
736デフォルトの名無しさん
2020/06/12(金) 02:10:15.74ID:MW3IhN88 選択した範囲のセル色を変えたいです。
If Intersect(Target, Range("B1:B5")) Is Nothing Then Exit Sub
色変更処理
変更可能なセルはB1:B5のみとしたいですが、
これだとB6が一緒に選択されている場合に一緒に色が変更されてしまいます。
B1:B6を囲ってしまった場合でも、B1:B5までの色のみ変更させたい場合どうしたらいいでしょうか。
If Intersect(Target, Range("B1:B5")) Is Nothing Then Exit Sub
色変更処理
変更可能なセルはB1:B5のみとしたいですが、
これだとB6が一緒に選択されている場合に一緒に色が変更されてしまいます。
B1:B6を囲ってしまった場合でも、B1:B5までの色のみ変更させたい場合どうしたらいいでしょうか。
737デフォルトの名無しさん
2020/06/12(金) 02:51:45.45ID:KALz8/u9 また馬鹿か
738デフォルトの名無しさん
2020/06/12(金) 03:29:37.08ID:IFmaagGk >>736
選択した範囲は選択されているのか?
選択した範囲は選択されているのか?
739デフォルトの名無しさん
2020/06/12(金) 06:26:26.47ID:u23pgbjD >>736
intersectした結果とTargetを比較したらいけないかな
intersectした結果とTargetを比較したらいけないかな
740デフォルトの名無しさん
2020/06/12(金) 07:59:23.12ID:d1Ad7gfn >>720
シートに配置したボタンでよく遭遇するよ。そんなもんだと思ってるから、ボタン押下時のコードに自分自身の位置とサイズを初期化するコードを書くようにしてる。
シートに配置したボタンでよく遭遇するよ。そんなもんだと思ってるから、ボタン押下時のコードに自分自身の位置とサイズを初期化するコードを書くようにしてる。
741デフォルトの名無しさん
2020/06/12(金) 08:22:21.81ID:F5wzc1/2 >>737
分からないからそれしか言えないのか?
分からないからそれしか言えないのか?
745デフォルトの名無しさん
2020/06/12(金) 12:46:47.02ID:HqN3pHW3 >>720
セルにあわせて移動やサイズ変更するかどうかの設定があったはずだが
セルにあわせて移動やサイズ変更するかどうかの設定があったはずだが
746デフォルトの名無しさん
2020/06/12(金) 13:13:42.59ID:1+2Rgw6z >>745
バージョン2010以降「セルに合わせてサイズ変更や移動しない」の設定になっていても
サイズが変わってしまう事例を多数経験しています。(2007は経験なし)
ボタンだけでなく、コメントの位置も極端に移動すること多数。
バージョン2010以降「セルに合わせてサイズ変更や移動しない」の設定になっていても
サイズが変わってしまう事例を多数経験しています。(2007は経験なし)
ボタンだけでなく、コメントの位置も極端に移動すること多数。
747デフォルトの名無しさん
2020/06/12(金) 13:14:30.95ID:hxFv/xna >>742
ヘェ〜そんな関数あるんだ、IEオブジェクトだけかと思ってた、ありがとう
ヘェ〜そんな関数あるんだ、IEオブジェクトだけかと思ってた、ありがとう
748デフォルトの名無しさん
2020/06/12(金) 17:49:02.54ID:aQA9YYrW749デフォルトの名無しさん
2020/06/12(金) 23:01:56.39ID:FlbnSBZd Windows10に変えたら、クロマキー合成みたいなのが出来なくなっちゃったんだけど、
何か方法ない?
何か方法ない?
750デフォルトの名無しさん
2020/06/12(金) 23:29:11.20ID:KALz8/u9 また馬鹿が来た
751デフォルトの名無しさん
2020/06/12(金) 23:57:17.59ID:FlbnSBZd752デフォルトの名無しさん
2020/06/13(土) 00:29:59.36ID:0QXppYe5 クロマキーはWin7まで。
ていうかクロマキーて・・。
確かにクロマキーだが。
ていうかクロマキーて・・。
確かにクロマキーだが。
753デフォルトの名無しさん
2020/06/13(土) 01:18:01.22ID:l5EmusQW 一旦あきらめて、真の目的を違う方法で達成することを考えましょう
754デフォルトの名無しさん
2020/06/13(土) 03:31:14.05ID:d/IEOBZf >>751
自分が言われたという自覚があるんだ?
自分が言われたという自覚があるんだ?
755デフォルトの名無しさん
2020/06/13(土) 06:33:26.28ID:iOfV/qX/756デフォルトの名無しさん
2020/06/13(土) 07:35:38.54ID:gm1IvgiV 質問スレなんてどこでも、マウントとって承認欲求を満たそうとする奴らばかりだよ。
特にVBAスレは、プログラミング板の他のスレでは相手にされないレベルの奴がここなら俺でもマウントとれるだろと集まってくる。
特にVBAスレは、プログラミング板の他のスレでは相手にされないレベルの奴がここなら俺でもマウントとれるだろと集まってくる。
757デフォルトの名無しさん
2020/06/13(土) 10:49:08.95ID:hwBvm+CU VBA始めて1週間
結構できるようになったけど、俺ってすごい!?
結構できるようになったけど、俺ってすごい!?
758デフォルトの名無しさん
2020/06/13(土) 11:02:28.88ID:iOfV/qX/ >>757
どうやって勉強した?どこまでできるようなった?
どうやって勉強した?どこまでできるようなった?
759デフォルトの名無しさん
2020/06/13(土) 12:54:09.65ID:l5EmusQW VBA完全に理解した
↓
VBAなにもわからない
↓
VBAチョットデキル
↓
VBAなにもわからない
↓
VBAチョットデキル
760デフォルトの名無しさん
2020/06/13(土) 13:53:12.35ID:sXc2xmOg 何を以て「できる」と判断したのか?
761デフォルトの名無しさん
2020/06/13(土) 13:57:01.18ID:k9PzEFx9 初心者の頃に書いたコードみるとマジナンだらけでチョベリバだわ
762デフォルトの名無しさん
2020/06/13(土) 14:05:41.14ID:GFk/ON+H 編集ができるってことじゃね
763デフォルトの名無しさん
2020/06/13(土) 14:17:20.43ID:Ft3NByW3 ダニングクルーガー効果とかいうやつじゃね
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 米大統領報道官「日本と強固な同盟維持、中国とも協力」 [少考さん★]
- ミス・ユニバース フィンランド代表の「つり目」写真が波紋… 本人釈明も批判やまず 協会謝罪「徹底的に検証」へ [冬月記者★]
- 【おこめ券】鈴木憲和農相 小泉前農相の備蓄米放出を“反省”「備蓄の円滑な運営を図ってまいります」 [Hitzeschleier★]
- 1人3千円の食品高騰対策、何に使える? あいまいなまま衆院通過 [蚤の市★]
- ゆたぼん 二重手術を報告「めちゃくちゃ気に入っています」 [muffin★]
- 【27歳会社員】「自慰行為に使うために」コインランドリーの乾燥機から24歳女性の下着など計11点(時価8万2080円相当)盗んだ疑い [nita★]
