20/06/13 16:50:17 hwBvm+CU.net
>771
ありがとうございます。
そこまでの説明が探しきれなかったので助かります。
801:デフォルトの名無しさん
20/06/13 16:52:28 69sGe9cG.net
>>766
Forの使い方を間違ってる
途中で1足して、最後にまた1引くんなら、Do LoopとIfなどを使って条件をはっきり書くべき
プログラミング全般の話となると、コンパイラによっては最初にStep値で割り算して回数を求めてしまうコードを吐くやつもあるので、正常に動かなくなる
802:デフォルトの名無しさん
20/06/13 18:20:23.36 gmb5Wcnr.net
ブックのなかに、シートがたくさんあって、
マクロ利用者毎にマクロで動かしたいシートが違う。
だから、マクロの実行中に、利用者にシートを選択させて、それをactivesheetにさせたい。
そういうの、できる?
803:デフォルトの名無しさん
20/06/13 18:31:43.88 sXc2xmOg.net
できる
804:デフォルトの名無しさん
20/06/13 18:35:00.95 Q06gyfKt.net
>>775
ロジック的に変
Webページやスマホアプリでも最初にログインするのとかあるでしょ？
後から選択するくらいなら最初に分けた方が良いのでは？
805:デフォルトの名無しさん
20/06/13 18:38:57.44 gmb5Wcnr.net
>>777
できれば、そうしたんだけど。
何人もの利用者が共通で使っているブックなので、シートを分けられないんだ。
シートがゴチャゴチャの状態から特定シートを利用者に選ばせたい。
806:デフォルトの名無しさん
20/06/13 18:42:11.92 ejIEXNUq.net
>>775
URLﾘﾝｸ(qiita.com)
この辺コピペしたら動くんじゃない？
807:デフォルトの名無しさん
20/06/13 18:54:40.10 Q06gyfKt.net
>>778
ごめん参りました＿|￣|○>>779
808:デフォルトの名無しさん
20/06/13 18:56:13.87 gmb5Wcnr.net
>>779
回答サンクス。
でも、もっとコードをシンプルにしたい。
809:デフォルトの名無しさん
20/06/13 18:56:56.64 gmb5Wcnr.net
>>781
マクロを途中で止めて、利用者にシートを選択させることによって(そのシートのどこかのセルを選択させる)、activesheetにさせたいんよ。
810:デフォルトの名無しさん
20/06/13 19:11:25.34 Ft3NByW3.net
自分でシートを開いてその後マクロを実行する形じゃダメなの
811:デフォルトの名無しさん
20/06/13 19:20:55 gmb5Wcnr.net
>>783
今は、苦肉の策でそうしてるんだけどね。
諸事情により途中でactivesheet を選ばせたいんだ。
812:デフォルトの名無しさん
20/06/13 19:50:08.25 mObNCAEc.net
これでいい気がする
URLﾘﾝｸ(qiita.com)
813:デフォルトの名無しさん
20/06/13 20:02:21.69 gmb5Wcnr.net
>>785
サンクス
ありがとー。
でも、もっと簡単にできんかな。
どうやら、無理っぽいな。
814:デフォルトの名無しさん
20/06/13 20:08:18.16 Q06gyfKt.net
マクロの途中で>>779で作ったUserForm1.Showすりゃ良いでしょう
815:デフォルトの名無しさん
20/06/13 20:23:03.52 mObNCAEc.net
じゃあこれ
URLﾘﾝｸ(www.relief.jp)
816:デフォルトの名無しさん
20/06/13 20:28:03.66 sXc2xmOg.net
>>782
途中でセル選択ダイアログでも表示すりゃいいじゃん
817:デフォルトの名無しさん
20/06/13 20:36:43.64 gmb5Wcnr.net
>>788
ありがと。
それやってみたけど、ちょっと面倒だった。
もう一回やってみる。
818:デフォルトの名無しさん
20/06/13 20:42:30 gmb5Wcnr.net
>>788
やっぱ、いけるかも。
819:デフォルトの名無しさん
20/06/13 20:42:48 gmb5Wcnr.net
>>789
ありがと。いけるかも。
820:デフォルトの名無しさん
20/06/14 08:41:44.1
821:2 ID:ffGowWaR.net
822:デフォルトの名無しさん
20/06/14 11:14:04 uWyGdyFQ.net
>>768
複数の自作関数をセットにして使いまわしたい時とか、
取得した値をプロパティとして保持しておきたい時とか、
自作関数でインテリセンスを使いたい時とか。
823:デフォルトの名無しさん
20/06/14 11:20:05.40 ZfTKHz7W.net
>>794
モジュールと構造体でいいよねそれ
824:デフォルトの名無しさん
20/06/14 11:21:47.96 435IzS7y.net
VBA歴まだ1ヶ月
でtxtデータから全て数値をシートに引っ張り出す事は成功したけどそれをVBAで計算させるスキルはないからエクセル関数使ってる
もっとスキルが欲しい
825:デフォルトの名無しさん
20/06/14 12:36:35.03 PywPq9gj.net
関数でできることは関数でやりましょう（例外あり）
826:デフォルトの名無しさん
20/06/14 12:52:53.71 UBYu/Pyg.net
関数ばかりでもいかんですう
827:デフォルトの名無しさん
20/06/14 13:01:56 435IzS7y.net
引っ張り出した数値を
ABS関数
ROUND関数
MAX、MIN関数
IF関数
でだんだんフィルターを通す感覚で
で本来の数値に対応させてる
VBAでそれをやる力を得るには5年はかかるな
俺じゃ
828:デフォルトの名無しさん
20/06/14 13:26:59.00 0qngbhsm.net
限定的な使い方になるが、連想配列でユーザ定義型使いたい時に代わりにクラスモジュール使うって手がある
829:デフォルトの名無しさん
20/06/14 13:44:32.79 attwzNFV.net
質問ですが、列が3つありそのうち2つが検索用ワードで
これを元に検索し3つ目のセルにあるワードを配列に収めていく処理を行いたいです。
例えば、こういったテーブルがあります。
すずき、いちろう、170
すずき、じろう、171
たなか、さぶろう、172
検索条件を1列目「すずき」2列目「条件なし」とした時、170,171を配列に収める
検索条件を1列目「すずき」2列目「いちろう」とした時、170を配列に収める
と、やろうとした時どういった処理が考えられるでしょうか。
830:デフォルトの名無しさん
20/06/14 13:51:33.71 nNGIeJAo.net
データベースのアンド検索クエリ覚えなはれ
831:デフォルトの名無しさん
20/06/14 13:52:24.03 0qngbhsm.net
>>801
オートフィルタで抽出して3列目を配列に格納
832:デフォルトの名無しさん
20/06/14 14:09:01.53 NfMb0cpJ.net
>>801
まず表の範囲をテーブル化
そしたらテーブル操作の処理使えて簡単
URLﾘﾝｸ(officetanaka.net)
833:デフォルトの名無しさん
20/06/14 14:16:14 UBYu/Pyg.net
>>801
逆にどういった処理も考えられないの？
834:デフォルトの名無しさん
20/06/14 14:28:07 attwzNFV.net
ありがとうございます。
テーブル化の方向で調べてみます。
835:デフォルトの名無しさん
20/06/14 17:08:34 zv9EPLCI.net
ユーザー定義関数をさ、AutoFill使って連続した複数セルに「=MyFunction()」みたいな感じで
代入していくじゃん
数式は正確に代入されてるのになぜか#VALUE!のエラーがでるんだよなぁ
計算対象になってるセルの1つをダブルクリックして値を入力するモードにしてから
そのまま何もしないでエンター押すと、さっきまで#VALUE!だったところが
再計算されて正常にセルに表示される
オートフィルに備えて連続セルの一番先頭にVBAから個別に代入しておいたセルがあるんだけど
ここはちゃんと計算結果がでてる
んで、このセルを始点にして手動でオートフィルかけて数式いれるとちゃんと計算される
手動オートフィルの結果代入された数式とVBAのAutoFill使って代入した数式を比較しても全く同じ
でもVBAのほうだけは#VALUE!ですわ
これ一体なんなのさ
一通り調べてわからんかったからAutoFillやめてForで回していれたった
やっぱ俺にはこういう原始人的なコードがあってるわ
836:デフォルトの名無しさん
20/06/14 17:36:38 0qngbhsm.net
>>807
計算対象のセルが更新された時自動で関数が処理される設定になってないから
837:デフォルトの名無しさん
20/06/14 17:49:03.80 AaZP5Hye.net
>>806
ワシのやり方を参考にするなら
Youtubeのチャンネル登録してな。
838:デフォルトの名無しさん
20/06/14 18:50:39.41 zv9EPLCI.net
>>808
手動・自動のやつでしょ
もちろん自動になってるわ
Forで回して数式代入したときは普通に計算されるから理由としてはいまいちじゃね
あと手動でオートフィルしてもいけるしね
表の右端に何列か並んでる数式は全部計算されるんだけど
下端にあるやつがだめなんだよね
どちらも全く同じパターンで代入してんだよね
まぁForでできるからいいんだけどな
839:デフォルトの名無しさん
20/06/14 19:19:38 0qngbhsm.net
>>810
シートじゃなくて関数の設定
volatire
840:デフォルトの名無しさん
20/06/14 20:00:28.24 Nip9LUw0.net
>>811
volatile (揮発性) じゃね？
841:デフォルトの名無しさん
20/06/14 20:18:20.66 95POjxnT.net
>>807
> =MyFunction()
みたいに引数がないと>>811が言うようにvolatile指定しないと再計算されない
引数にセルとか範囲を指定してあると指定されたセルや範囲の値が変更されたら再計算される
842:デフォルトの名無しさん
20/06/14 21:59:15.66 NTnc+gBz.net
>809
本人?。GW終わって更新控えめな気がする
843:デフォルトの名無しさん
20/06/15 00:54:28.92 otdT67Yk.net
フォームを開いている際にセルをクリックしようとしても阻止されるんですが、
この行動を行った際にフォームを閉じるという処理をすることはできますか？
844:デフォルトの名無しさん
20/06/15 00:59:25.05 AC0AKbql.net
ユーザーフォームのイベントで制御できなきゃ無理じゃね
一覧くらい見たんだろ
845:デフォルトの名無しさん
20/06/15 02:14:12 VIqxNPAl.net
>>814
この人はダメだね。
コメントでちょっと突っつかれただけで
コメント欄オフにするしプライドが高すぎ。
知識や経験が豊富で教え方も上手いとは思うけど
ユーチューバ―には向いてないと思うわ。
846:デフォルトの名無しさん
20/06/15 05:44:07.25 YCbdWLsV.net
>>811
>>813
Application.Volatile
入れてみた
結果だけど、やっぱボタン押して数式代入した直後はダメだった
変らず#VALUE!
変化があったのは計算対象になっているセルを1つ変更すると、
MyFunctionが入っているセルの全てが再計算されて正常値が表示されるっていう点ね
Volatile入れる前は、変更セルを計算対象としてるセル１つだけが再計算された
ちなみにMyFunction(rng As Range)です。すんません
あと、これ重くなりそうでちと考えてしまう
847:デフォルトの名無しさん
20/06/15 10:48:29 zn0xvlk+.net
>>818
ボタンのコードの後ろに、Application.Calculate とかを入れる
848:デフォルトの名無しさん
20/06/15 11:02:05 zn0xvlk+.net
>>815
フォームを閉じるにはUnload ステートメント、非表示にするだけなら hide メソッドを使う
セルクリックが目的なら、ShowModal=False か、フォームのShowメソッドで vbModeless を指定すれば、閉じなくてもいいよ
849:デフォルトの名無しさん
20/06/15 22:32:32.01 qQkMiS3I.net
>>818
よくわかってなくてすまぬが数式入ってるセル全部選択して
Selection.Value = Selection.Value
とか「=」を「=」に置換するとかして内容同じだけど編集したことにすると
全部計算される、ってのは根本的な解決方法じゃないけどそれは別の問題？
850:デフォルトの名無しさん
20/06/15 22:40:50.61 eWIek9um.net
>>821
代入で再計算させるなら formula = formula だぞ
851:デフォルトの名無しさん
20/06/15 22:42:03.32 GtKitEiM.net
このスレの住民ってVBAエキスパートとか余裕な感じ？
852:デフォルトの名無しさん
20/06/15 22:58:28.87 MWB6z4Ac.net
余裕でダメだと思う。
運転歴20年のやつが、教習所の学科試験に通るかどうか。
853:デフォルトの名無しさん
20/06/16 01:37:43.85 vbVHH0Hs.net
練習問題を見た感じ、満点は無理だけど合格はできると思う
854:デフォルトの名無しさん
20/06/16 02:23:10 4czdKWOA.net
人によるだろう
855:デフォルトの名無しさん
20/06/16 08:13:35.35 4RAL3CE7.net
>>819
それ以前試してだめでしたわ
>>821
>>822
解決方法なのかどうかは置いておいて、面白い視点だなって思いました
Selection.Formula = Selection.Formula で、問題のあった2行のうち1行は行けました
この2行の違いを分析すると何か見えてくるかもしれないなぁ
似たような方法なんだけど、これはいけた
Dim ary
ary = Sheet1.Range("G11:AH11")
Sheet1.Range("G11:AH11") = ary
数式は表の最下部の行 G50:AH50 の各セルに入っていて、
例えばG50の数式はG11を引数の一部として使っている
計算の対象となっている値の一部を代入し直してみたってこと
Forで回して数式入れていくのは見た目ごちゃごちゃするから
わかりやすさっていう点ではこっちの方がいいのかな
856:デフォルトの名無しさん
20/06/16 12:20:48.09 6wBq1IET.net
>>824
運転歴20年の奴は余裕で通る。
というか、はっきり言ってVBAエキスパートは初心者と変わらんよ。
某掲示板で質問者にもっと勉強してね的なこと言ったら持ってたようだった。
857:デフォルトの名無しさん
20/06/16 19:13:50.26 Kui7C9E3.net
リストビューなるものを触ってみましたが2点分からないです。
①データを転記する際にwith文を使うとうまく出来て、使わないと一行ずつズレるのは？
Me.ListItems.Add
.Text = 111
.SubItems(1) = 222
.SubItems(2) = 333
End With
Addして追加だからズレるのだろうけど、withって単なる省略だから同じ意味じゃないの？
②転記したリストビュー全項目ループするにはどうしたいいですか？
858:デフォルトの名無しさん
20/06/16 20:14:01.04 v7FumBBx.net
Doしたらいい
859:デフォルトの名無しさん
20/06/16 21:46:13.61 aBdT/SFF.net
いや呼び方の問題とか、FormatだのStrComp関数だのあんまり使わんの出るから模試はやったほうがいいよ
860:デフォルトの名無しさん
20/06/16 21:52:16.10 aBdT/SFF.net
>>829
withはコード省略じゃなくて参照。
（増やす）ってメソッド処理は一回だけで、（増えた項目）って出力インスタンスを参照できる形になる
with 使わないと毎回（増やす＋編集）の処理になる
861:デフォルトの名無しさん
20/06/16 21:57:13.61 aBdT/SFF.net
項目じゃなくてリストの間違いだった
862:デフォルトの名無しさん
20/06/16 22:40:42.45 woSalLPH.net
>>827
Selection.Calculate でもダメなんですよね？
863:デフォルトの名無しさん
20/06/16 23:47:36.73 cErksS8E.net
>>822
そうそう間違えました
表示形式が反映されないときに.Value使ったんでついそれ書いちゃいました
864:デフォルトの名無しさん
20/06/17 00:48:13.69 VnGmvv1H.net
>>835
表示形式反映させるなら.Formula = .Formula では
865:デフォルトの名無しさん
20/06/17 13:19:05.23 vz74rE0X.net
.Shimura = .Ushiro
866:デフォルトの名無しさん
20/06/17 15:24:21 3v2Pocgc.net
そのコマンド打ったら参照先が見つかりませんってエラーが出たんだが
867:デフォルトの名無しさん
20/06/17 15:55:47.59 F6Gn58oB.net
だめだこりゃ！
868:デフォルトの名無しさん
20/06/17 17:19:39.75 AebhaO3Q.net
前スレの人達のくれた今の職場にいる限り永久に使える心臓部になるプロシージャ3つ
これのおかげで救われた
後はひたすら勉強しないといけない
ただそのせいで毎日
869:夜中の2時とかまで強迫観念に捕らわれたように本やサイト見て体壊しかけてる 前スレの人達ありがとう
870:デフォルトの名無しさん
20/06/17 17:52:05.46 VnGmvv1H.net
独り言板へどうぞ
871:デフォルトの名無しさん
20/06/17 18:14:13.33 LyT08W7k.net
そこまで初心者の人がやらなきゃいけないのか…
専門の派遣でも雇えば…
872:デフォルトの名無しさん
20/06/17 18:25:49 1+VGIPZ0.net
>840
前スレのどれ？
873:デフォルトの名無しさん
20/06/17 19:41:41.88 3u8uTgOs.net
まあ嘘だろうけどな、そんなん
874:デフォルトの名無しさん
20/06/17 20:29:26.87 Pc4G9CL1.net
前スレ見えないけど
フォルダ内のテキストすべての特定の部位から文字を全部抽出するコード
これです
875:デフォルトの名無しさん
20/06/17 20:47:48.75 6I8rhd2p.net
車輪の再発明どころか劣化真似事をありがたがるような馬鹿は消えろよ
876:デフォルトの名無しさん
20/06/17 21:02:20.52 UkLP/htk.net
>>836
数式を値で張り付けたときに表示形式が反映されなかったんでValueだったんですよ
877:デフォルトの名無しさん
20/06/17 21:30:10.13 VnGmvv1H.net
>>847
値貼り付けでは反映されんよ
878:デフォルトの名無しさん
20/06/18 00:14:55.64 +xg8PxB0.net
下記のような2次元配列があります。
1,りんご
2,ばなな
3.みかん
これの果物名の列だけをセルに代入したいですが、簡単な方法はありますか？
現状、果物の列を一端列数0の配列に入れなおしてそのままセルに代入する案しか思いつきませんが、
もっとスマートな方法あれば教えてください。
879:デフォルトの名無しさん
20/06/18 00:29:49 b73sLWwm.net
行列入れ替えは考慮外なの？
参考は沢山出てくる
EXCELのVBAで２次元配列の特定の列または行を１次元配列に変換する方法
qiita.com/takahasinaoki/items/1295c3df5ddfb13bdf8e
880:デフォルトの名無しさん
20/06/18 01:18:10.70 AEhoYLDr.net
>>849
3だけピリオド
881:デフォルトの名無しさん
20/06/18 08:45:41 CbKzbr3Z.net
>>849
貼り付け先の果物の前の列が消されても良いなら配列から1、2、3消してそのまま貼り付ける。
駄目なら貼り付け先の値を配列に入れてから貼り付ける。
貼り付け先の値を入れるのは本末転倒だからそういうデータが少ない場合以外は勧めない。
882:デフォルトの名無しさん
20/06/18 09:42:50.65 1Z+MjfLn.net
>>849
地道に入れ直すしかない
883:デフォルトの名無しさん
20/06/18 15:10:31.12 JIQPCGLI.net
てか配列から直接セルに代入しないといけないってのは
データ数が多いとか速度重視したいとか？
そうでないなら基本通りにFor使って入れりゃいいだけなんだけど
884:デフォルトの名無しさん
20/06/18 15:51:42.38 AEhoYLDr.net
セルに入れるのがそもそも簡単なのに何ができないんだかわからん
885:デフォルトの名無しさん
20/06/18 16:29:20.31 DGNmlHkR.net
おまいら質問をちゃんと読んでるか？
「簡単な方法はありますか？」なんだから、Forで回すのは嫌ってことだろ
つまり回答は「そんな方法はない」
886:デフォルトの名無しさん
20/06/18 16:32:36 DGNmlHkR.net
ステップ数を減らしたいだけなら、一旦そのまま全部ワークシートに入れて2列目だけコピペか1行目を削除すれば数行で完結する
たぶんForより速い
887:デフォルトの名無しさん
20/06/18 16:33:11 DGNmlHkR.net
書き間違い→1列目を削除
888:デフォルトの名無しさん
20/06/18 17:30:14.12 AEhoYLDr.net
質問がどっかの問題の引用っぽく感じたので答えはかかないけどね
889:デフォルトの名無しさん
20/06/18 17:38:49.86 Kimfxpnn.net
同じ社員同士なのにエクセルの便利機能とかを
情報共有しないのってなんなんだろう
890:デフォルトの名無しさん
20/06/18 17:57:51.44 1Z+MjfLn.net
ループからの抜け方、①と②どっちが推奨？
①
do while
for
if
脱出フラグ = true
exit for
end if
next
if 脱出フラグ then exit
891:do loop ② do while for if 脱出条件 then exit do next loop
892:デフォルトの名無しさん
20/06/18 17:57:55.15 AEhoYLDr.net
嫌われているんだろ
893:デフォルトの名無しさん
20/06/18 17:58:44.91 1Z+MjfLn.net
>>860
今まで関わった職場わりとしてるが
894:859
20/06/18 18:01:15.31 1Z+MjfLn.net
①の3行目のifは脱出条件な
895:デフォルトの名無しさん
20/06/18 18:12:03 AEhoYLDr.net
>>861
処理の抜けや他の処理に影響がないならという条件付きで?、
場合によっては exit sub 、exit function でも書く
896:デフォルトの名無しさん
20/06/18 19:24:08 LKxMxESP.net
do whileの条件とifの条件ををandで繋いでdo while
loop行の前でi=i+1(forのカウンタ代わり)
これでよいのでは
897:デフォルトの名無しさん
20/06/18 19:39:21.23 ck4WAMd+.net
GoToの使用を躊躇しない。
898:デフォルトの名無しさん
20/06/18 19:42:12.81 1Z+MjfLn.net
>>866
二重ループの抜け方の作法を聞いてるんだが
899:デフォルトの名無しさん
20/06/18 19:48:21.18 KBH9L3ob.net
do whileとforで２重ループするのが確定で、外側まで一気に抜けるのが確定なら２を選ばない理由がない
900:デフォルトの名無しさん
20/06/18 19:53:02.72 DGNmlHkR.net
>>868
二重ループの内側から一気に抜けたい時は、俺なら内側のループを別プロシージャにするか、Do Loopを二重にする
コード量によってはフラグ変数やExitは見通しが悪くなる、別の言い方をすれば終了条件がわかりづらくなるからあんまり使いたくない
901:デフォルトの名無しさん
20/06/18 20:17:54.42 1Z+MjfLn.net
>>866,869,870
とりあえず処理に問題なければ一気に外に抜けること自体は問題ないってことか
確かにDoに変えるのも手だな
適当に使い分けることにするわサンキュー
902:デフォルトの名無しさん
20/06/18 20:18:23.62 1Z+MjfLn.net
間違えたわ>>865だ
903:デフォルトの名無しさん
20/06/18 20:21:15.52 ao9b7VBW.net
>>861
囲碁なら上、オセロなら下
904:デフォルトの名無しさん
20/06/18 20:25:42.22 eqFwPDXL.net
すごく個人的には、Do Untilで書いた方が「抜ける！」って読みやすい
905:デフォルトの名無しさん
20/06/18 20:26:39.51 eqFwPDXL.net
Do whileよりって話ね
そう書けば抜ける複数条件をDoの後ろに書いて違和感が無い
906:デフォルトの名無しさん
20/06/18 20:28:18.94 XkUbux+a.net
これ… >>873に『その心は？』って聞いてあげた方がいいの？
907:デフォルトの名無しさん
20/06/18 20:33:29 ao9b7VBW.net
>>876
おじいちゃん出しっぱなしで片付けないんだもん
908:デフォルトの名無しさん
20/06/18 20:34:24 vZk8Xm54.net
Gotoはもちろんのこと、余程のことがない限りはExit For(Do)使うよりはExit Function使った方がいい
909:デフォルトの名無しさん
20/06/18 21:01:16 ob2ctoKl.net
>>878
そんなこたあね―な。
910:デフォルトの名無しさん
20/06/18 22:48:55.15 Swy0cO/s.net
Do While
何で
Loop
While
2つあるの?
Wend
911:デフォルトの名無しさん
20/06/18 23:00:26.73 6Vkb8BK5.net
vbaだから
912:デフォルトの名無しさん
20/06/18 23:21:26 1Z+MjfLn.net
>>880
while～wendは過去の名残
今はdo whileを使うのが正しい
913:デフォルトの名無しさん
20/06/18 23:40:35.48 Cax/ofky.net
一応、while wendは最後までループ抜けさせないぞって読ませ方ができる
知ってる人が少なくなってるからむしろ逆効果のお節介となってきているが
914:デフォルトの名無しさん
20/06/19 00:17:23.49 NwluTwH5.net
行番号とか代入のLetとかも使ってるやつはいない
過去の名残があちこちにあるのがVBA
915:デフォルトの名無しさん
20/06/19 08:29:01.10 VZXzW3Q1.net
do while～loopって構文が気に食わんわ
do [処理] while [脱出判定] loop
もしくは
while [脱出判定] do [処理] loop
のほうが思考に沿う
ってかdo必要？
916:デフォルトの名無しさん
20/06/19 09:57:59.84 UXZn7YtP.net
VBA必要？
917:デフォルトの名無しさん
20/06/19 09:58:43.65 wZIpnWDZ.net
Excelが必要としてるんだ
918:デフォルトの名無しさん
20/06/19 16:55:48.19 8jNiNgQB.net
だってVBAだから
919:デフォルトの名無しさん
20/06/19 18:51:31.92 c4aN/6Uq.net
エクセルマクロとして代替えがないから必要だな
920:デフォルトの名無しさん
20/06/19 21:17:20.11 RlTsj/W2.net
職場の人が書くマクロ、わかりやすいんだけど無駄改行多くてスクロールしないと全体像掴めないでつらい
921:デフォルトの名無しさん
20/06/19 21:26:36.78 8GB492Jb.net
>>885
While [脱出判定]
[処理]
Wend
922:デフォルトの名無しさん
20/06/19 23:55:48.34 +/P4LWyU.net
>>890
実は強制終了対策で改行してるとか?
923:デフォルトの名無しさん
20/06/20 00:04:01 6cdt+s4Y.net
>>885
構文解析でトークンの先読みが少なくて済むための配慮じゃないかな、知らんけど
924:デフォルトの名無しさん
20/06/20 00:41:32.09 YZMPfrl8.net
>>885
英語として
Do while a is b. If a is bigger than b, then break..
というのと
While if a is bigger than a, do something.
どちらが自然かという問題だったようだ。どっちも変だけど
925:デフォルトの名無しさん
20/06/20 02:09:29 qvmNBmpu.net
>>890
職場での問題なら職場内で解決しなされ
926:デフォルトの名無しさん
20/06/20 04:41:54.35 heakYJWv.net
ちょ、VBAのCollectionのAddメソッドってvalue/keyの順番だったのかよぉ
C#もJavaもPythonもkey/valueの順だから勘違いしてたわ！
なんかおかしいとおもった
927:デフォルトの名無しさん
20/06/20 08:01:08.69 ygihVcRE.net
>>896
Add時にKeyを省略できるからね
省略するとKeyがどうなるのかは知らんけど
928:デフォルトの名無しさん
20/06/20 09:40:22.78 heakYJWv.net
>>897
重複排除できてねぇぢゃねぇかクソ言語がぁぁぁ！って思ってましたごめんなさい
929:デフォルトの名無しさん
20/06/20 10:42:49.25 m9vPjHEn.net
>>898
重複排除したいならdictionaryの方がいいんじゃないか
930:デフォルトの名無しさん
20/06/20 12:12:13.86 RmKRgXjX.net
>>890
それは1プロシージャの行数が多いということかな?
それはダメダメだ。
そういうことになることはあるけど、本人が書ける奴なら自分でも分かってるかもね。
時間があれば直すんだけどってのは時々ある。
931:デフォルトの名無しさん
20/06/20 12:16:26.19 RmKRgXjX.net
>>896
Dictionaryと逆だから注意。
932:デフォルトの名無しさん
20/06/20 12:24:38.59 CytyTodc.net
excelからwordのoleなのですが、印刷プレビュー画面が表示されている
あいだは処理を停止させておきたのですが、どうすればできますか？
また、excelのほうのPrintPreviewメソッドではそれが実現できるのですが、
その違いはなんなのでしょうか。
Dim WORD As Object
Set WORD = CreateObject("Word.application")
WORD.Documents.Open(filePath)
WORD.PrintPreview = True
Do Until WORD.PrintPreview = False
Loop
933:デフォルトの名無しさん
20/06/20 12:44:36 ygihVcRE.net
>>898
重複排除したきゃKey指定すればいいだけだろ
てか、そういう使い方しかしたことないわ
934:デフォルトの名無しさん
20/06/20 12:57:07 m9vPjHEn.net
keyの位置間違えててできなかったって話だろ…
935:デフォルトの名無しさん
20/06/20 15:27:33.55 ygihVcRE.net
ああすまん、よく読んだらそうだな
936:デフォルトの名無しさん
20/06/20 15:53:54.10 wuXUOHn9.net
PCに疎い人達の集まる職場
週に1回の頻度で1200個の数値を4時間かけて手打ちしてたのを3秒で終わらせるマクロ組んで改善提案→何かわからんけど組んだんだろ で300円
他のシートやブックに行き来しやすいように
図形に文字入れてハイパーリンクをセットしたのを2つ作った
→これはいいぞ 1000円
もう嫌だ
937:デフォルトの名無しさん
20/06/20 15:58:25.34 MH9+mSJC.net
300円とか1000円って何？
938:デフォルトの名無しさん
20/06/20 16:02:10 wuXUOHn9.net
>>907
改善提案出すとお金貰える仕組みの会社だから
トヨタグルーやトヨタ系とかは結構そうじゃないかな
939:デフォルトの名無しさん
20/06/20 16:08:51.15 MH9+mSJC.net
>>908
単にプレゼンというか説明下手なだけじゃないの？
940:デフォルトの名無しさん
20/06/20 16:23:05.64 wuXUOHn9.net
>>909
もうマクロに関してそこは諦めたわ
if関数使ったりそういう改善のが1000円や1500円で貰えるからそっちでいってる
同僚から組んで欲しいってのも全部断ってる
58歳のパソコンに疎すぎる人に説明する必要性もないかな
941:デフォルトの名無しさん
20/06/20 17:02:57.89 wVoXfuuE.net
まぁ、「実際の能率の向上」より「誰にでも分かりやすく使い易い」にウエイトが傾いてるってのはよくあることじゃね。
どんな評価方法か知らんけど。
・直接的に恩恵を受ける人の数
⇒あくまで例えばだが、>>906の「3秒マクロ」で仕事が楽になるのが数人しかいない、とか、
「図形2つ」が割と広い範囲で使える上に、他の職場でも応用が利く、とか。
・柔軟性
⇒例えば3秒マクロに何かしら元となるデータがあると仮定して、
そのデータを出力するシステムの仕様に変更があった場合対応できなくなる、とか。
他方、図形2つの方は文字どおり図形2つ作って文字入れてハイパーリンクを加えただけなので、
例えば参照先URLなりが変わったとしても、比較的対応が容易だし、
よほどのことがなければ「使えなくなる」ということが考えられない、とか。
・上司のその時の気分、あるいは好かれ具合
⇒それな
942:デフォルトの名無しさん
20/06/20 17:21:32.15 qvmNBmpu.net
>>910
同じような所が10カ所(ファイル)あったら10000円～15000円もらえるのかな
943:デフォルトの名無しさん
20/06/20 17:21:48.48 XQZF02H8.net
相談もなしに勝手なマクロを組んだことで減点対象になったのだろう
もしかしたら、その作業は近々システムの変更でなくなる予定だったかもしれない
作業以外の目的があったのかもしれない
残業が多いなと思っていたら、
余計なものを作って遊んでいた、減給されないだけましだろう
944:デフォルトの名無しさん
20/06/20 17:41:36.37 qvmNBmpu.net
マクロの変更も有識者間でコードレビューして評価報告書提出して上司に確認のサインもらって
修正連絡票回覧するまでやらないとクレームはいったりするよね
知らない間に勝手にマクロが書き換えられていたとか言われたらやばいだろ
945:デフォルトの名無しさん
20/06/20 18:45:21.31 m9vPjHEn.net
>>906
わかりやすく説明するなり評価方法に基づいたアピールするなりすりゃいいじゃん
946:デフォルトの名無しさん
20/06/21 05:53:32.39 I80zoHyc.net
お前らの職場って大変そうだな
おれんところなんか俺しかVBA触れるやついないから好き放題やってるわ
947:デフォルトの名無しさん
20/06/21 09:05:05 zpzjHnJy.net
俺も俺も
初心者に毛が生えた程度の知識だけど周りはPC素人ばかりだからやりたい放題だ
948:デフォルトの名無しさん
20/06/21 10:08:30.56 7ZJTD4pQ.net
同じく
PCマイスターみたいに見られてるけど、薄々勘付かれているかもしれない
949:デフォルトの名無しさん
20/06/21 13:43:26.96 /utMrS/w.net
エクセルはそこそこ使いこなせるがマクロは全く知らないってな人に
簡易マクロ作っただけで「ハァ？お前天才かよ？」みたいな反応されるよな。
褒められる優越感と小学生でも書けるコードで褒められる自分へ嫌悪感で
葛藤しまくるよな
950:デフォルトの名無しさん
20/06/21 14:00:37.96 ANltB6r3.net
いや、別に。
951:デフォルトの名無しさん
20/06/21 15:15:50.34 0WnnnX3x.net
両方とも別に
952:デフォルトの名無しさん
20/06/21 17:39:52.32 1ON8fipo.net
>>919
他の奴らってそもそも業務が違うだろ
953:デフォルトの名無しさん
20/06/21 17:47:04.76 k1xdFuXh.net
>>922
出来ない正社員と出来るバイトの俺
954:デフォルトの名無しさん
20/06/21 17:50:26.78 HGSDkuyA.net
>>919
読んでるこっちが恥ずかしい
955:デフォルトの名無しさん
20/06/21 18:05:28.37 xIpMoW7x.net
スレチだけどPHPは
ハイパーテキスト・プリプロセッサだってのに
初歩でも神呼ばわりだぜ
【PHP】下らねぇ質問はここに書き込みやがれ 11
URLﾘﾝｸ(itest.5ch.net)
96
> hoge.com/****
>に指定した数字入れて、html出力ってできますか？
103 foreach(
107
＞>103
神！おっぱ・（自粛）
956:デフォルトの名無しさん
20/06/21 19:11:40.34 f7O4FwhH.net
よくメニューに[＋]があり、
これを押すと隠してあったメニューが表示されるといった仕組みがあるのですが、
これをエクセルで実現することはできるでしょうか。
957:デフォルトの名無しさん
20/06/21 19:46:46.68 HGSDkuyA.net
簡単なのはVisibleプロパティをFalseからTrueにする方法
958:デフォルトの名無しさん
20/06/21 19:54:02.33 apqHGiEy.net
>>926
ユーザーフォームの使用になる
URLﾘﾝｸ(e-tech.life.hyogo-u.ac.jp)
ユーザーフォームのイベントで条件を記述してやるのが良い
959:デフォルトの名無しさん
20/06/21 19:54:53.04 jOeQJVeR.net
>>926
グループ化使うとか
960:デフォルトの名無しさん
20/06/21 20:09:41.65 Ca9zW0qx.net
>>923
100人規模で周りの人達ができない正社員なわけない
バイト数人が使う程度のマクロだろ
961:デフォルトの名無しさん
20/06/21 20:17:13.26 dwey+O0N.net
俺も大したことできないけど零細で偉そうにしてるわ
人生なんて鶏口牛後で十分なんだよ
962:デフォルトの名無しさん
20/06/21 21:52:25.43 LN5eNKcO.net
>>930
100人前後の会社で
60人ほど派遣
20人くらいがバイト
10人くらいのパート
正社員は10人ほどのうち確実に7人はエクセルもまともに使えないレベルなのでWord使ってる
エクセルを使うのは正社員1人派遣1人バイトの俺
3ヶ月に一度現れる謎の5人組はよく分からない
そいつらの給料が月70～80万円って言ってた
俺のバイト代は月12万円くらいだった
この国はおかしいって狂ってるよ
963:デフォルトの名無しさん
20/06/21 22:06:48.15 jOeQJVeR.net
大して優秀なわけでもないやつがちょっと優位な部分があるだけで周りを見下すあるある
964:デフォルトの名無しさん
20/06/22 00:04:33.28 CPlWdThO.net
>>932
Excel vba ができる人が少ないのは会社の重要な業務ではないからだろ
エクセルはあくまで補助的な使い方しかしてないんじゃねーの
965:デフォルトの名無しさん
20/06/22 00:17:00.59 W8AXf1Mi.net
採用条件に入ってないし学校やパソコン教室でも普通は教えないからできないのが普通
そもそもプログラミングとは何か、どういう場面で使うと便利なのかもわかってない人が大半
うっかり省力化すると事務員の首が飛ぶから、人の心があれば黙ってるものだし
966:デフォルトの名無しさん
20/06/22 01:24:44 CPlWdThO.net
一般的なプログラミングの話をするならExcelは不向き
そもそも表計算ソフトの延長でしかない
967:デフォルトの名無しさん
20/06/22 02:04:25.88 6UseFZdn.net
>>934
はいその通りです。
【60代パート】リングファイルを棚にしまう
【社長】ハンコついてパートに渡す <
968:br> 【60代パート】Wordから印刷して社長の机に置く 【50代課長】エクセルからWordにコピペしたファイル名とフォルダをパートに指示 【20代大卒美人派遣】エクセルで原価計算して課長に渡す 【30代バイト】梱包出荷伝票をエクセルに打込み
969:デフォルトの名無しさん
20/06/22 02:11:43.53 NG7/h+3B.net
>>937
多分そういうこと言ってるわけじゃないと思うぞ
970:デフォルトの名無しさん
20/06/22 02:30:48 6UseFZdn.net
>>938
え？
Excel vba を仕事にするのが会社の重要な業務である業界ってどこですか？
971:デフォルトの名無しさん
20/06/22 03:23:12.33 CPlWdThO.net
>>939
お前の会社は何の業界の会社だよｗ
例えば30代のバイトが梱包している作業のほうが会社にとって利益をもたらすんじゃないのか
972:デフォルトの名無しさん
20/06/22 08:49:37 no76adsC.net
ヨコレスだけど30代に梱包やらせる会社とか潰れちまえ
頭も体も回る年代なんだから大いに無駄な事やらせた方がいいと思うね
年食って手数よりも口数のほうが多くなってきたら梱包に回せ
973:デフォルトの名無しさん
20/06/22 10:07:31.70 lKh0OPb2.net
では無能な30代には何をやらせれば良いのだ？
974:デフォルトの名無しさん
20/06/22 10:18:08.71 f1XJDlES.net
バイトに雑用させるのは普通だし年齢関係ないわ
975:デフォルトの名無しさん
20/06/22 10:44:00.06 i2ShoQV/.net
VBAスレなのにバイトの仕事がどうのって話になってて、さすがだなっておもいましたwww
976:デフォルトの名無しさん
20/06/22 10:45:26.13 DpiCYHaq.net
vbaってプログラミングなの？
977:デフォルトの名無しさん
20/06/22 11:16:34 DTKm8QVZ.net
プログラミングじゃなかったらなんなんだ
物書きか？
978:デフォルトの名無しさん
20/06/22 11:19:23 DpiCYHaq.net
Excel関数の延長？
979:デフォルトの名無しさん
20/06/22 12:06:22.79 f1XJDlES.net
正式な定義を知りたきゃMS公式でも見ればいいだろ…
980:デフォルトの名無しさん
20/06/22 12:10:34.37 DpiCYHaq.net
申し訳ありませんでした
981:デフォルトの名無しさん
20/06/22 12:26:25 qDFuj4q3.net
馬鹿ばっか
982:デフォルトの名無しさん
20/06/22 18:17:44 es1/qSoW.net
一年限定で異動してきた職場
噂に聞いてたけど想像を絶するところだった
エクセル使う業務がほとんどなのに
関数使える人が数人、まともな人は確かにいる
ふとみたおっさんはエクセルの表の合計を電卓で足してキーボードでそれを打ち込
ふとおばちゃん達は
「ここ選択してイコールの後にアルファベットと数値と同じ数値が反映される」
「えー！そうなの？」
と会話してる
マクロ以前の問題だった
983:デフォルトの名無しさん
20/06/22 18:44:26 CPlWdThO.net
管理者が無能だと会社がなくなる
管理者が有能なら無能な人材に高い給料は出さない
984:デフォルトの名無しさん
20/06/22 19:03:11 f1XJDlES.net
周りは出来ない語りしてもお前が優秀になれるわけじゃないんだよなぁ
985:デフォルトの名無しさん
20/06/22 23:08:43.37 eYhHFxw6.net
VBAでイキるの面白すぎるからやめて
986:デフォルトの名無しさん
20/06/22 23:16:11.85 R2BScS4S.net
やめたら面白くないだろ
987:デフォルトの名無しさん
20/06/23 00:55:19 TulROOqi.net
30代の梱包バイトのおばちゃんがVBAできないとか比較する方がおかしい
988:デフォルトの名無しさん
20/06/23 01:00:04 bSgedWTD.net
VBA素人です
というか、ちょっとだけPHPを書いたことがある程度のプログラム初心者です
セルA1:A5のどこか一箇所に値を入力すれば全てのセルが埋まるようにしたいのです
全てのセルには入力された値に対して決まったパーセンテージをかける
たとえばA1に100と入力されたらA2~5にはそれぞれA1*○％(○はA2~5とも異なる)
A2に100と入力されたらA1及びA3~5にそれぞれA2*○％
多分条件分岐でいうと
if A1が空白でないならA1には入力した値、A2*○％、A3*○％・・・
elseif A2が空白でないなら・・・
みたいな
989:感じになるのかなと思うのですが冗長ですよね… do Whileで書けるのか、他にスマートな書き方があるのか見当がつきません フォームでどのセルに入力するか選んで値を入れてボタンを押すと 全てのセルが埋まる、というのが理想です アドバイスを頂けたらありがたいです よろしくおねがいします
990:デフォルトの名無しさん
20/06/23 01:09:31.87 kv8byCI9.net
for r=1 to 5
if 入力されたセルじゃない場合
cells = 入力された数値かける定数
end if
next
みたいな感じでは？
991:デフォルトの名無しさん
20/06/23 01:33:11.82 kv8byCI9.net
あー、これじゃダメみたい、すみません。
992:デフォルトの名無しさん
20/06/23 01:53:19.74 bE26MwSl.net
>>957
ちょっとだけとか書くなよ
全くわかっていない馬鹿だろうが
993:デフォルトの名無しさん
20/06/23 02:25:19.01 akfNW9d5.net
入力セルによらず割合が一定なら100%の値を出してからそれをループで入れろバカか
994:デフォルトの名無しさん
20/06/23 03:24:31 TulROOqi.net
>>957
俺なら入力は１か所（A1）だけにして A2～A5 は 入力させない or "=A1" にでもするかもな
995:デフォルトの名無しさん
20/06/23 05:39:38.41 BwhdgQkj.net
>>957ユーザーフォームにリストボックスとテキストボックスとコマンドボタンを作成し以下
Dim val As Double
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "A1"
.AddItem "A2"
End With
End Sub
Private Sub CommandButton1_Click()
If UserForm1.ListBox1.Value="A1" then
val = UserForm1.TextBox1.Value
A1
Else If UserForm1.ListBox1.Value="A2" then
val = UserForm1.TextBox1.Value
A2
End If
End Sub
Sub A1()
Range("A1").value=val
Range("A2").value=val*0.2
Range("A3").value=val*0.3
Range("A4").value=val*0.4
Range("A5").value=val*0.5
End Sub
Sub A2()
Range("A1").value=val*0.1
Range("A2").value=val
Range("A3").value=val*0.3
Range("A4").value=val*0.4
Range("A5").value=val*0.5
End Sub
996:デフォルトの名無しさん
20/06/23 07:50:59.28 xSXJEKQO.net
意図が伝わるようにユーザーフォームで入力させた方がいいように見えるな
visibleのtrue ,false切り替えでうまくやりたい
997:955
20/06/23 09:36:33.10 bSgedWTD.net
ご教示下さったみなさまありがとうございます
>>963
丁寧にありがとうございます
書いて頂いたのでなんとかなりそうです
998:デフォルトの名無しさん
20/06/23 10:14:19.39 eVy5K5L9.net
コピペ
999:961
20/06/23 12:34:05.64 5v5sJ6te.net
>>965
スマホで寝ながら打ったから
Win7のExcel2010にコピペして確認してみたらミスってた
訂正。大文字だったスマソ then＞Then
URLﾘﾝｸ(i.imgur.com)
1000:デフォルトの名無しさん
20/06/23 13:08:23.25 AqGxlhQk.net
VBEが勝手に大文字に直してくれるから、ステートメントは全部小文字で入力してるわ
1001:デフォルトの名無しさん
20/06/23 16:26:51.99 lLVW3adv.net
UsedRangeの使えなさに絶望しました
あれってなに目的で使えんの？
>>968
おれもそれチェック代わりに使ってるんで
変数はほぼ全て大文字スタートだわ
他言語だとやらないけどVBAはエディタがあれなんで
1002:デフォルトの名無しさん
20/06/23 17:18:02.36 JWFUfSAs.net
>>969
間違った使い方してるだけじゃないのか
1003:デフォルトの名無しさん
20/06/23 18:21:08.83 coVE1fyX.net
>>969
グラフ自動生成するときとかに使ってる
1004:デフォルトの名無しさん
20/06/23 18:22:23.82 z7FZNG3t.net
usedrangeはファイルの中身を検査する時に使うな
個人情報が入ってないかとか
1005:デフォルトの名無しさん
20/06/23 18:28:15.83 X4/0OZ1g.net
UsedRangeは普通に使うぞ。
寧ろ、一番使うかも。
Excelの固定じゃない範囲を取得する場合、これでOKというようなものが無い。
都度考えることになる。
1006:デフォルトの名無しさん
20/06/23 21:35:23 LvHFRgi0.net
値化とか
1007:デフォルトの名無しさん
20/06/23 21:40:15 LvHFRgi0.net
2次元の動的配列にバックデータを突っ込むときに使う
1008:デフォルトの名無しさん
20/06/23 22:16:19.70 zDUcrbEK.net
やっと念願の夢かなって生産現場に異動できそう
PCをあまり使わなくなる職場にいけるから
マクロ組んだりもほとんどしなくて済むから嬉しすぎる
そしてここで教えてくれた人たちへの恩も忘れられんよ
1009:デフォルトの名無しさん
20/06/23 22:27:25.32 UicElvK7.net
ひでぇなぁ忘れられちゃうのかぁ残念
汗だくの梱包現場からエアコン効いた部屋に行きたいよ
1010:デフォルトの名無しさん
20/06/24 10:22:12 XfIA0IcT.net
Sub Sample1()
Dim Target As Range
Set Target = Range("P:P").FiVBA エラー 91
これで
オブジェクト変数または With ブロック変数が設定されていません。t.Offset(0, 1)
End Sub
何がだめ?
1011:デフォルトの名無しさん
20/06/24 10:26:15 7kmsZdqz.net
FiVBAって命令あるの？
1012:デフォルトの名無しさん
20/06/24 13:23:42.08 hNjrAS7L.net
tってなんだよ
宣言してないオブジェクト変数が動くわけないだろ
1013:デフォルトの名無しさん
20/06/24 13:58:43 LpqCs0qI.net
なにがだめって聞かれても全てがとしか
1014:デフォルトの名無しさん
20/06/24 14:29:06 jVCudKEf.net
ちゃんと内容を確認しないのが駄目
1015:デフォルトの名無しさん
20/06/24 14:58:07.29 ec8khzg7.net
ごめん間違えた
これです
Sub Sample1()
Dim Target As Range
Set Target = Range("P:P").Find(What:="田中")
MsgBox Target.Offset(0, 1)
End Sub
1016:デフォルトの名無しさん
20/06/24 15:31:45.69 7kmsZdqz.net
>>983
URLﾘﾝｸ(www.moug.net)
ここでも参考にしな
まず確実に言えるのは、Nothingのエラー対処ができてない
1017:デフォルトの名無しさん
20/06/24 16:03:07.42 A95Qwidx.net
>>983
田中がないんだろどうせ
1018:デフォルトの名無しさん
20/06/24 16:11:20.98 ec8khzg7.net
Set Target = Range("P:P").Find(What:="田中")
この田中を変数というか特定のセルの値にしたい場合どうしたらいい？
A1のセル内容を参照したいとする
1019:デフォルトの名無しさん
20/06/24 16:18:53 ec8khzg7.net
あ、できた
ごめん自分は京都大学霊長類研究所のジェームズという7歳のチンパンジーだからVBAよくわからないんだ
皆さんありがとございまうす
1020:デフォルトの名無しさん
20/06/24 16:21:57 4/s69xMY.net
>>987
解決内容を書けチンパンジー
1021:デフォルトの名無しさん
20/06/24 17:53:24 A95Qwidx.net
自己紹介や自分語りはいらん
1022:デフォルトの名無しさん
20/06/24 19:08:49.57 Ra7WLueW.net
>>986
Nothingのエラ―対処が出来て無いってのはみんなが通る道だ。
1023:デフォルトの名無しさん
20/06/24 19:26:45 aYj5R9EO.net
自分で使う分にはエラー終了でも正常終了でも変わらんし
1024:デフォルトの名無しさん
20/06/25 14:24:07.38 UL1INOQI.net
In Range("R:R")
というのがあるとして
R列全体を選択するのはマストなんだけど
ホントはR7からソレ以下全部にしたい
In Range("R7:R")ではうまく行かないみたいだしこういう場合ってどうしたらいいんだろう
1025:デフォルトの名無しさん
20/06/25 14:52:26.82 fOnLoXil.net
usedrangeじゃ駄目なんですか？
1026:デフォルトの名無しさん
20/06/25 15:35:07.92 eDJAI9Nl.net
テーブルにすれば？
1027:デフォルトの名無しさん
20/06/25 15:38:48.25 emOdy//g.net
cellsでそこから最終行まで指定すればいいじゃない
1028:デフォルトの名無しさん
20/06/25 16:00:07 eepaDL1r.net
colmns.countが最終桁番号だしApplication.Intersectで指定２範囲の重複部分だせるし
1029:デフォルトの名無しさん
20/06/25 16:24:03.44 oGWS7APt.net
直感的にやるならRange(Range("R7"),Range("R7").End(xlDown))でいいんじゃない
1030:デフォルトの名無しさん
20/06/25 17:54:02 xz2BRr
1031:37.net
1032:デフォルトの名無しさん
20/06/25 17:54:59 orhJfehX.net
きたこれ
VBA歴2ヶ月なのに俺は職場のPCの先生から神様扱い
1033:デフォルトの名無しさん
20/06/25 18:26:51 BKkovaqh.net
何そのダメ先生
1034:デフォルトの名無しさん
20/06/25 18:32:44 0L1EfJ/H.net
おだてられて浮かれてるだけだなw
1035:デフォルトの名無しさん
20/06/25 18:45:05 goJhPQKd.net
うー
1036:1001
Over 1000 Thread .net
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 46日 5時間 1分 20秒
1037:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています