Logging

#サンプルコード 極力おなじコードを書かないようにする方法。

極力おなじコードを書かないようにする方法。同じオブジェクトを複数配置する場合、クリックした時の処理も同じだったりします。そういう時に同じ処理を何回も書くのはちょっと手間だったりします。オブジェクト名が違うだけのために同様の処理コードを何度も書かなくてはならないなど、面倒くさいので自分は下記のようなコードを書いて同じコードを書かないようにしています。これは例えばの例ですので、他の方法もあると思います。Excelじゃなければもっと大雑把な方法で書くことも可能です。 明日、VSのフリーを使用して同じようなコードなど記載します。もしかすると路線を変更して何かのツールを作るかもしれません(´Д`)。この頃、VSもまともに使用していないので覚えてません・・・・と言うより、感覚的にあれあったなで覚えていますのでググりながらコードを書いてます。スランプ8年目ぐらいになります。もともとスランプでしたのであまり変わらないですね。「えっはい」(゚Д゚) このコードちょっと意地悪なコードです。(´・ω・`)わかるひとがみると斜め向いたコードだと理解するでしょう(ニヒ、旭化成) サンプルコードも置いときます。ご自由にお使いください。https://zip358.com/tool/hogeta.zip[DL]
Private Sub CommandButton1_Click()
    cmd_ck CommandButton1, 1
End Sub
Private Sub CommandButton2_Click()
    cmd_ck CommandButton2, 2
End Sub
Private Sub CommandButton3_Click()
    cmd_ck CommandButton3, 3
End Sub
Sub cmd_ck(obj As MSForms.CommandButton, i As Integer)
Dim obj_cmd As MSForms.CommandButton
Set obj_cmd = obj
If obj.Caption = "(-.-)v " & i Then
    obj.Caption = "(-.-)g " & i
Else
    obj.Caption = "(-.-)v " & i
End If
Set obj_cmd = Nothing
End Sub
Private Sub UserForm_Initialize()
Dim cmd As MSForms.CommandButton
Dim ary_cmd As Variant
Dim i As Integer
ary_cmd = Array(CommandButton1, CommandButton2, CommandButton3)
For i = 0 To UBound(ary_cmd)
    Set cmd = ary_cmd(i)
    cmd.Caption = ""
    Set cmd = Nothing
Next
End Sub







    大体、知ったかぶり。男は自分のために嘘をつき、女は他人のために嘘をつく。前のページ

    #サンプルコード 極力おなじコードを書かないようにする方法2。次のページ

    関連記事

    1. Logging

      アプリ申請の壁?GoogleとApple。

      アプリ申請の壁?GoogleとAppleともにある、屋号がどうも必要…

    2. Logging

      テンソルフロー的な画像解析。

      Tensorflow(テンソルフロー)的な画像解析をやってみました。…

    3. Logging

      ニガミ17才はいつもいい意味でトンデルヨネ!

      ニガミ17才はいつもいい意味でトンデルヨネ!この人達を知ったの…

    4. Logging

      スケジュール表を復活させましたのでうっぷ。

      スケジュール表を復活させました、WEB関係のお仕事まってます、デザイ…

    5. Logging

      昔勤めていた会社では動けば良いコードだった。どうなのそこんトコロ!

      Twitterの広告にこういうものが掲載されていた。コードの良し悪…

    6. photo of people using laptops

      Logging

      クラウドワークスとかランサーズとかではないプラットフォームを使いたい! #安価 #低報酬

      おはようございます、朝晩涼しくなってきましたね😱。さて、クラ…

    2015年3月
     1
    2345678
    9101112131415
    16171819202122
    23242526272829
    3031  

    カテゴリー

    アーカイブ

    PAGE TOP