Excel総合相談所 154

1 ：名無しさん＠そうだ選挙にいこう：2023/05/05(金) 21:37:01.08 .net

【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否

注意事項
・情報を隠すために別の問題を設定するのはやめましょう。たいていの場合その問題は的外れな設定で、期待していたものからずれた回答が返ってきます。

スレッド作成は>>980がやります

※前スレ
Excel総合相談所 153
https://mevius.5ch.net/test/read.cgi/bsoft/1678315752/

890 ：名無しさん＠そうだ選挙にいこう：2023/08/02(水) 15:06:34.48.net

A1に体重50kg
A2に5kg増加
として
A1+A2の値が現在の体重55kgになる

891 ：名無しさん＠そうだ選挙にいこう：2023/08/02(水) 15:08:13.15.net

馬鹿が質問するだけで荒れるスレ

892 ：名無しさん＠そうだ選挙にいこう：2023/08/02(水) 15:30:06.72 .net

荒らしてるのは質問も回答もしない馬鹿

893 ：名無しさん＠そうだ選挙にいこう：2023/08/02(水) 18:15:47.01.net

あまり馬鹿とか書かない方が良いよ。リアルでも口癖になって人間関係が面倒臭くなる可能性あるから。

894 ：793：2023/08/02(水) 18:16:50.71.net

>>865,867
>>793です
できました。ありがとうございました

895 ：名無しさん＠そうだ選挙にいこう：2023/08/02(水) 19:42:28.76.net

(´・ω・｀)どういたしまして。

896 ：名無しさん＠そうだ選挙にいこう：2023/08/02(水) 21:03:52.38.net

>>893
馬鹿とか阿呆とか言い合えるのは仲がいい証拠

897 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 02:48:21.57 .net

質問です
Excel office pro plus 2019 で、セル単位の並び替えの方法はありますか?
通常のソートは、行単位や列単位ですが、文字列の入ったセルの先頭文字をキーにソートができますでしょうか?
例
B234　　　　　A123
C56　　A111
の4つのセルがあるとき、
結果として
A111
A123
B234
C56　　
という具合です。
よろしくお願いします

898 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 09:46:38.53 .net

>>897
バージョンとか更新してる？
いわゆる365って事でいいんだよね？

899 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 10:59:29.33.net

>>898
>バージョンとか更新してる？
>いわゆる365って事でいいんだよね？
すみません、更新、365の意味がわかりません。どこを見たら良いでしょうか。
VBでないとできないっぽいでしょうか?

900 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 12:02:35.27.net

pro plusが本物ならボリュームライセンス管理者に更新の方法教えてもらえ
pro plusは法人向けボリュームライセンス専用の製品で一般向けの製品 ではない

901 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 13:24:21.33.net

2019用の式じゃないと動かないのか

902 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 16:25:57.92.net

ヤフオク辺りのぁゃιぃShopとかで手に入れた奴か　ちゃんと使えたりするからタチが悪い
ま、それはともかく、A111がセル番地とかだと勘違いしたけど、それぞれセルの値か？
そンなら苦労は無いだろ？　書き込んだようにセルの位置もそこら中に散ってるって意味？

903 ：873：2023/08/03(木) 17:54:05.38.net

A1,A2ともに標準になってたので試しにどちらもユーザー定義で880にしてA1-A2にしてもダメでした。
>>876もダメでしたがこれだと仮に出来てもA1からA2だけ経過した時間になるのではないでしょうか

904 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 18:46:43.57.net

馬鹿って言うヤツが馬鹿なんだよ泣

905 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 19:25:51.03 .net

>>902
>ヤフオク辺りのぁゃιぃShopとかで手に入れた奴か
そうです。ヤフオクで買った中古に入っていました。

>A111がセル番地とかだと勘違いしたけど、それぞれセルの値か？
そうです。セルの中の値でソートがしたいのです。
位置はバラバラですが、セル内の値が壊れなければ、1列にドバーッと並べば良いです。

>書き込んだようにセルの位置もそこら中に散ってるって意味？
そうです。1行の数値ありセル数は一定ではありませんが、
前回の例のように空白のセルをはさんで孤立していることはありません。

906 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 19:55:29.92 .net

>>903
馬鹿は消えろ

907 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 20:18:37.80 .net

馬鹿って書かないでください。傷つきます。

908 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 20:36:56.06 .net

阿呆は消えろ

909 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 21:14:00.52.net

境界知能者は消えろ

910 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 21:42:08.57.net

ぁゃιぃついでに、こういった野良アプリで解決する方法もある　サイトの日本語が少しおかしい
https://ja.extendoffice.com/documents/excel/3420-excel-copy-paste-non-adjacent-cells-rows-columns.html
泥臭い初歩的な方法だと、セルがいくつあるか知らんがそれぞれいっこずつ[コピー]-[値として貼り付け]で
どこか別の範囲に一列に詰めて貼り付けて行けば、ツールバーの[データ]-[昇順に並び替え]で簡単に並べ変わる
　いや、それならこうすれば　という人が出て来るまではそれでお試し

911 ：名無しさん＠そうだ選挙にいこう：2023/08/03(木) 21:50:40.61.net

>>905
Excel365ならsortとvstack関数の組み合わせで出来る。
その他にもかなり便利な関数増えてるのでOfficeの買い直しを勧める

912 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 06:06:50.09 .net

>>905
だいたい最大何行ぐらい？
あと列も何列？

913 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 06:09:13.05 .net

>>903
>>887への回答は？

914 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 07:26:33.27.net

>>905
出品者に情報抜かれるぞ

915 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 10:33:41.86.net

>>912
行は横方向ですよね？
横は15個ぐらい
縦は100こくらいです

916 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 10:35:17.64.net

>>914
どうしたら良いでしょうか？
エクセル買うといくらくらいしますか？
.xlsx と　.xlsを主に使っています

917 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 11:03:45.12.net

直接被害が生じる可能性は低いと思うけど何の説明もなく非正規品のOfficeを仕込んでいる出品者の素性が怪しいのは確か
というか正体不明の中古品をクリーンインストールもせずによくそのまま使ってるな
中古品のPCは一旦完全フォーマットして自分で環境構築した方が良い

918 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 11:57:00.76.net

次の関数が作れません。どなたか教えて下さい。
A列に商品名、B列に金額があり、指定した２品の合計を出すというものです。
「=SUM(SUMIFS(B列,A列,{"りんご","バナナ"}))」　と予め式の中に商品名を載せれば集計されるのですが
後半の{"りんご","バナナ"}の部分をC1にりんご,バナナと入力しておいてそのセルを上記の式に引用する場合どのような関数になるでしょうか。
＆とかtext関数とか""で囲むとか色々試したけどダメでした。。。

919 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 12:10:44.03.net

indirect関数でいけるのでは？

920 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 12:14:02.28.net

indirectも試しました。いまいち使い方（他の式との繋げ方）がわからず＆や""など使って繋いでもダメでした。

921 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 12:15:44.47.net

>>918
C1に「りんご,バナナ」でなく、C1に「りんご」D1に「バナナ」としてC1:D1を指定する。
Excel365ではこれでいったけど、2016とかだともしかしたらダメかもしれない。

922 ：名無しさん＠そうだ選挙にいこう：2023/08/04(金) 12:30:23.30.net

もしバージョン古くて動かなくても
テンプレも使わずに質問してくるのが悪い

923 ：名無しさん＠そうだ選挙にいこう：2023/08/06(日) 15:19:52.63 .net

前のやつが作ったVBAがわけ分からなすぎて悶絶してる
そいつやめたから聞けないし

924 ：名無しさん＠そうだ選挙にいこう：2023/08/06(日) 15:33:32.91 .net

>>923
新しく作り直したら良いじゃない

925 ：名無しさん＠そうだ選挙にいこう：2023/08/06(日) 16:54:35.01 .net

実際、実務のVBAって書いた本人しか分からない書き方が多いよね。
その人が辞めたらもうお手上げ

926 ：名無しさん＠そうだ選挙にいこう：2023/08/06(日) 17:03:23.58 .net

逆じゃない？コード残ってたら何してたかわかる

927 ：名無しさん＠そうだ選挙にいこう：2023/08/06(日) 17:59:19.31 .net

ウチの職場の場合だが、VBAよりも表設計をシンプルにしてくれと言いたい。
いろいろ詰め込みすぎ

928 ：名無しさん＠そうだ選挙にいこう：2023/08/06(日) 18:18:22.89 .net

>>926
何してたかはわかってもなぜそうしたかはわからない
コメントになぜかを残してない限りは

929 ：名無しさん＠そうだ選挙にいこう：2023/08/07(月) 08:38:08.13 .net

VB系プログラマにそれを求めてもな
粗製乱造プログラマ時期のプログラマだし

930 ：名無しさん＠そうだ選挙にいこう：2023/08/07(月) 18:07:38.44 .net

なるほどね。やっぱそれか。

931 ：名無しさん＠そうだ選挙にいこう：2023/08/08(火) 23:05:03.97 .net

教えてください
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel 2019
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

セルを選択して、CTRL+C、別セルを選択して、CTRL+Vすると、
そのセルの右下に、(Ctrl)と書かれた変な絵が出ます。
それが邪魔で見たいセルが見えません。
これを初めから見せないようにするにはどの設定をすれば良いでしょうか。
宜しくお願いします。

932 ：名無しさん＠そうだ選挙にいこう：2023/08/08(火) 23:57:20.81 .net

>>931
ファイル→そのた→オプション→詳細設定
→コンテンツを貼り付けるときに貼り付けオプションボタンを表示する(´・ω・｀)オフにしる！

933 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 01:16:35.52 .net

>>932
パシり乙
ジュースとパン買ってこいや

934 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 01:25:54.14 .net

>>933
(´・ω・｀)先にお金ください

935 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 02:19:42.17 .net

馬鹿に顎で使われるチー牛

936 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 04:41:49.33 .net

>>934
うるせー、買ってこいや

937 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 13:38:40.16 .net

こんな当たり前のことを自分で見てみようともせずにすぐに人に聞くような奴に何で答えるかね
オプションを見ろくらいにしとけよ

938 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 15:19:10.83 .net

エキスパートオンリーのスレじゃないんだしハードル上げないでくれる？

939 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 18:14:45.25 .net

思ったんだけどさ、操作系ならこのスレに質問するよりネットで検索した方が速くねえか？

940 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 19:23:51.12 .net

検索ワードに悩む

941 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 21:19:19.21 .net

【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel 2019
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
よく使う数式に名前をつけて使い回す方法って無いかな
例えばindex（範囲,match（検索対象,検索範囲）,match（見出し,見出し検索範囲））
のような式を
table1search（検索対象,見出し）
みたいな形に呼び出せたら便利なんだが

942 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 21:59:57.72 .net

VBAで関数定義

943 ：名無しさん＠そうだ選挙にいこう：2023/08/09(水) 22:11:25.39 .net

>>941
Excel365にすればLambda関数でできる。

2019でもセル位置とかにかなりの制限あるけど出来るらしい。自分の知ってるところでは「Lambda関数 オフィス田中」で検索。

944 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 10:18:00.08 .net

>>932
ありがとうございました。
助かりました。
検索ワードがわからなくて困っていました。
どうもありがとう。

945 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 10:21:12.48 .net

>>937
あなたにとっては当たり前かも知れませんが、
初心者にはわからないものなんです。
あなただって覚えたての頃は、誰かに質問したでしょう。
その時周りは、なんでそんな当たり前のことを聞くんだろうと思ったのです。
初心者の気持ちになれないなら、回答者はやめた方がいいど思います。

946 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 10:23:22.50 .net

回答せずに茶々入れるだけの人だから相手にするだけ時間の無駄だよ

947 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 10:25:37.80 .net

>>946
ありがとうございます。
しかし、あのように自分のレベルでしか物が見えない人って、
たまに見るよね。
能力は高いんだろうけど、相手の立場に立て

948 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 10:33:15.66 .net

>>947
能力も低いよ
回答しないってのはつまり回答できないからだし
分かってる振りして後から難癖付けるしかできない
そういう楽しみしかないってことから、
心だけでなく懐も貧しいってことが推察できる

949 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 10:54:37.30 .net

こういうやり取りを江戸の華として愉しむのもオツなもんてすなあw

950 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 11:17:27.05 .net

>>945
初心者と怠け者は違う
お前は怠け者
オプションを見るとか当たり前だろ

951 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 11:25:32.89 .net

「オプションを見ろ」「その項目は○○にある」という回答を得るまでがハードルなんですよ

952 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 12:01:02.08 .net

境界知能か？

953 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 12:20:31.41 .net

>>951
見ようともしない言い訳だろ

954 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 12:42:26.51 .net

>>953
かしこいね！えらいね！

955 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 12:59:45.95 .net

自分で調べようともしない馬鹿は消えろや

956 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 13:05:33.54 .net

夏だねえ

957 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 15:00:18.68 .net

>>950
シランなら黙ってろ

958 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 15:56:13.46 .net

>>944
(´・ω・｀)また来てねー

959 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 16:01:45.97 .net

馬鹿が質問すると荒れる例

960 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 16:14:52.97 .net

絡んだやつのせいやろ、答えないなら書き込むなですよ

961 ：名無しさん＠そうだ選挙にいこう：2023/08/10(木) 19:01:36.89 .net

もうやめて！私のために争わないで！！

962 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 00:23:26.62 .net

「教えて」「助けて」で始まる質問をする奴は馬鹿ばっかの法則

963 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 00:50:40.50 .net

ググレカスのネラーも甘くなったもんだ

だが騙されるなよ
味方と思ってるやつも何一つ答えてない
お前が答えを引き出すのを待ってるだけの同族でさらに怠け者なだけだからな

964 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 00:59:41.41 .net

答えられない奴が質問者に八つ当たりするスレはココですか?

965 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 08:09:09.18 .net

お盆なんだからもう喧嘩やめようや
お前らの父ちゃん母ちゃんも地獄から帰ってきてるんだろ？

966 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 13:13:38.13 .net

俺と違って地獄に行くわけじゃないんだよなあ

967 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 13:21:13.52 .net

【1 OSの種類 　 　 　 　 .】 Windows11
【2 Excelのバージョン 　 】 Excel2019
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

match関数の曖昧検索について質問します。
山田　大田　山口
みたいなリストから“田”が含まれたセルの位置を抜き出す場合は　=match(“*田*”,A1:C1) 　のようにすれば抽出できますが、
東京都　北海道　大阪府
みたいなリストから“東京都文京区一丁目1-1”という値を前方一致で検索して一番最初に出てきたセルの位置を抽出する方法はありますか？
2019で使用可能でVBAを使わないものであればmatch以外の関数でも問題ありません。

968 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 16:26:21.85 .net

=MATCH(1,INDEX(MATCH(A1:C1&"*",A10,0),0),0)

969 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 19:06:09.65 .net

初級者を馬鹿にするヤツほど大したことないんだよな。

総合相談所スレなんだから事あるごとに茶々いれるんじゃなくて回答するのが筋では？
マジで昔の良スレとは別物スレになっちまったな。

970 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 20:59:46.39 .net

>>968
なにこれすごい
なんでmatch関数の検索範囲に検索対象を入れて検索できるんだ？

971 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 22:08:45.23 .net

>>969
しつこく聞きたがる馬鹿の論理

972 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 23:27:16.82 .net

>>971
興味ないならキエロ

973 ：名無しさん＠そうだ選挙にいこう：2023/08/11(金) 23:58:44.18 .net

クレクレ乞食

974 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 01:11:55.99 .net

答えてもらえなかった乞食と
答えられないけど謎の上から目線で鬱憤を晴らしたいニワカ玄人のバトル

ゴミしかいない

975 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 02:45:34.01 .net

しつこいクレクレは何かあるのだろう

976 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 13:52:23.16 .net

一升
たて1.5cmよこ2.5cmで
A4用紙一杯に格子模様の
用紙を作りたいのですが
入門書を読んでもどこを
見てもやり方がわからないので
困ってます、どなたかヒントか
ここを調べれば良いのか
教えていただけないでしょうか

977 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 14:01:30.91 .net

>>976
https://tokusengai.com/_ct/17244548

978 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 14:09:33.43 .net

>>977
早速にありがとうございます

979 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 18:16:19.83 .net

>>978
数値指定はセルのサイズでピッチではないから
罫線の太さでピッチが変わったような気がする

980 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 19:49:32.11 .net

正確な方眼紙を作りたいならExcelなんかよりCADを使った方が早くて簡単
フリーのCADでもかなり正確に印刷できるのを確認済

981 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 20:04:42.73 .net

wordの表の方がexcelより正確だったよ

982 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 20:33:41.63 .net

cadは図形特化
文字入れ大変だからな

983 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 22:57:13.70 .net

一太郎使えよ

984 ：名無しさん＠そうだ選挙にいこう：2023/08/12(土) 23:13:40.01 .net

花子じゃないのか

985 ：名無しさん＠そうだ選挙にいこう：2023/08/13(日) 20:43:47.06 .net

お前らお盆だから一日中Excelできるぞ！
今日は10時間も練習しちまったわ

986 ：名無しさん＠そうだ選挙にいこう：2023/08/13(日) 20:51:14.55 .net

おう。
ただいま箱ひげ図を研究しとる

987 ：名無しさん＠そうだ選挙にいこう：2023/08/13(日) 22:53:13.39 .net

お世話になります。
私、パソコン音痴のおっさんです。

【1 OSの種類 　 　 　 　 .】 Windows11
【2 Excelのバージョン 　 】 Microsoft® Excel® 2019
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 可


F行(F2:F1000)までのそれぞれのセルを
１回Ｗクリックするごとに当該セルが１加算されるＶＢＡ
を組んでみたのですが、ＦをＷクリックしても無反応です。
どこがミスっているかをご教示いただけますと幸いです。
(スピンボタンは使いません。加えて「マクロを有効にする」にしてあります。)


Private Sub CommandButton1_Click()
Range("F2:F1000").Value = Range("F2:F1000").Value + 1
End Sub

何卒、よろしくお願いいたします。

988 ：名無しさん＠そうだ選挙にいこう：2023/08/13(日) 22:53:16.88 .net

お世話になります。
私、パソコン音痴のおっさんです。

【1 OSの種類 　 　 　 　 .】 Windows11
【2 Excelのバージョン 　 】 Microsoft® Excel® 2019
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 可
F行(F2:F1000)までのそれぞれのセルを
１回Ｗクリックするごとに当該セルが１加算されるＶＢＡ
を組んでみたのですが、ＦをＷクリックしても無反応です。
どこがミスっているかをご教示いただけますと幸いです。
(スピンボタンは使いません。加えて「マクロを有効にする」にしてあります。)
Private Sub CommandButton1_Click()
Range("F2:F1000").Value = Range("F2:F1000").Value + 1
End Sub

何卒、よろしくお願いいたします。

989 ：名無しさん＠そうだ選挙にいこう：2023/08/13(日) 23:43:25.46 .net

>>988
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Application.EnableEvents = False
　　Dim r, c
　　r = Target.Row
　　c = Target.Column
　　If c = 6 Then
　　　　If 2 <= r And r <= 1000 Then
　　　　　　Cells(r, c) = Cells(r, c) + 1
　　　　End If
　　End If
　　Application.EnableEvents = True
End Sub

990 ：名無しさん＠そうだ選挙にいこう：2023/08/13(日) 23:55:36.67 .net

動かない見本

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　If Not Intersect(Target, Range("F2:F1000")) Is Nothing Then Target.Value = Target.Value + 1
End Sub