[[20180804105406]] 『図を押すとカウントしたい 1回のみ』(チーター) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『図を押すとカウントしたい 1回のみ』(チーター)

EXCELで取り込んだ図をクリックするとカウントするマクロが知りたいです。
例えばA5にjpgなどの図を挿入、それをクリックするとカウントが増えていくマクロです。

  A B C D
1
2
3
4
5 図 1

   ↑B5にカウントされる

この場合、WEBで調べると下記の方法がありましたが、図を押すと何回もカウントされてしまいます。

希望1、A5の図を押したら、このページを終了するまで1度しかカウントしないマクロはありますでしょうか。

希望2、上記希望1のA5を押したらさらにデータ保存までされるマクロは可能でしょうか。

希望3、さらにhtml形式の保存でマウロが動作することはできるのでしょうか。

あまりマクロは詳しくありません。皆様のお力をいただきたく質問いたしました。
何卒ご教授ください。

WEBページより------------
1.ネット上から適当な画像の取り込み
挿入⇒図⇒オンライン画像⇒Bing検索で[いいね]で検索すれば適当な画像が出てきます

2.画像のトリミングとサイズ、位置の調整

3.場所が決まったら、画像を右クリック⇒マクロの登録⇒新規作成

4.何も考えずにカーソル点滅位置に
Range("画像の右隣セル”)=Range("画像の右隣セル”)+1
と入力
※対象セルがB5なら
range("B5")=range("B5")+1
入力したらウィンドーは閉じていいです


< 使用 Excel:Excel2010、使用 OS:Windows7 >


聞きたいことがピンと来てませんが

>希望1、A5の図を押したら、このページを終了するまで1度しかカウントしないマクロはありますでしょうか。
このページを終了 ってなんですか?
それがわからないですけどなんかのカウントに1を加算するって処理ですから 条件:指定した図がクリックされたとき かつ フラグがFalseのときとしておき、クリックされたときにフラグをTrueにかえればいいんじゃないですか?

>希望2、上記希望1のA5を押したらさらにデータ保存までされるマクロは可能でしょうか。
そう書けばできるでしょう。(Excelの保存でいいですよね?)

>希望3、さらにhtml形式の保存でマウロが動作することはできるのでしょうか。
htmlの時点でExcelでなくなってるから、そのブックに書いておいたVBAのコードをそのまま動かしたいという意味であればむりじゃないですか?

(もこな2) 2018/08/04(土) 17:24


もこな2さん コメントありがとうございます。

希望1、このページを終了とは、EXCELファイルを開き、
×終了するまでの事です。

図A5はSNSの いいねボタン を想定しており、クリックすると
隣のB5にカウントされるファイルを作りたいのです。

ですが、何回もクリックでき、カウントが増えてしまうので
ファイルを開き、×終了するまで、クリックをできるのは1回のみにできないか
という事です。

希望2、はEXCELの保存ということです。

希望3、はやはり無理なんですね。承知しました。

説明が下手で申し訳ありません。
引き続きお助けいただけるとありがたいです。

よろしくお願いします。

(チーター) 2018/08/04(土) 18:49


もし業務利用なら企業向けSNS契約しろよって案件では。
ブラウザで動作するように運用したいんでしょう?

(ふふふ) 2018/08/04(土) 19:03


>希望1、このページを終了とは、EXCELファイルを開き、
>×終了するまでの事です。

そうであれば、レスしたとおりですけど、伝わりませんでしたか?
こういうことだとおもいますけど。。

    Public フラグ As Boolean

    Sub test()
        If フラグ Then Exit Sub
        With ThisWorkbook.Worksheets(1).Range("B5")
            .Value = .Value + 1
        End With

        フラグ = True

    End Sub

>希望2、はEXCELの保存ということです。
上記のコードに保存するコードを書き加えるだけですね。
その路線で進めるなら、ちょっと自分で「エクセル VBA 上書き保存」なんてキーワードでしらべてみてください。
どうしてもわからなければ、再度書き込むと、誰かが答えてくれると思います。

>図A5はSNSの いいねボタン を想定しており、クリックすると
>隣のB5にカウントされるファイルを作りたいのです。
>希望3、はやはり無理なんですね。承知しました。

Excelのことではないようなので私にはわかりません。

(もこな2) 2018/08/04(土) 21:54


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.