戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
チェックボックスにセルの値を代入したい

    [192130] チェックボックスにセルの値を代入したい-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ charlotte -(2020/06/02(17:01))
    □U R L/
      'B列にチェックボックス1-10、A列のセルに数値が入っています。
      'チェックボックスをクリックしたとき、その隣のA列のセル値を変数pに代入して合計したいと思います。'
      'A列のセルが上下で結合されている箇所があり、結合セルでも値を代入するにはどうしたらよいでしょうか?
      'for nextステートメントをネストにすると、正しい値が合計されません。
      'チェックボックスの番号とセル番地をループで回して処理したいのですが、どうしたらよいでしょうか?教えて下さい。エクセルは2019を使用しています。
      
      Sub checkcount()
      
      Dim i, k, p
      
      p = 0
          For i = 1 To 10
              For k = 5 To 15
                  If OLEObjects("checkbox" & i).Object.Value = True Then
                      p = p + Range("E" & k).Value
                  End If
              
              Next k
          Next i
          
          Range("B11").Value = p
      
      End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [192131] Re[1]: チェックボックスにセルの値を代入したい-

    記事引用/メール受信=OFF■

    □投稿者/ サンダー -(2020/06/02(17:59))
    □U R L/
      チェックボックスの配置の調整いりますが
      1.チェックボックスの左上の点のセルの行取得
      2.その行のG列の値を加算する
      
      
      Sub checkcount()
      Dim p
      Dim shp As Shape
          p = 0
          For Each shp In ActiveSheet.Shapes
              Debug.Print shp.Name
              If shp.Name Like "CheckBox*" Then
                strRow = shp.TopLeftCell.Row
                p = p + ActiveSheet.Range("G" & strRow).Value
              End If
          Next
          ActiveSheet.Range("B11").Value = p
      
      End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [192132] Re[2]: チェックボックスにセルの値を代入したい-

    記事引用/メール受信=OFF■

    □投稿者/ charlotte -(2020/06/03(09:06))
    □U R L/

      サンダー様、
      早速のご回答、ありがとうございました。
      じっくり拝見させていただきます。




    [192159] Re[3]: チェックボックスにセルの値を代入したい-

    迷宮入りorほかあたって見ます・・ / 記事引用/メール受信=OFF■

    □投稿者/ charlotte -(2020/06/08(17:20))
    □U R L/

      サンダー様、
      遅くなりまして、申し訳ございません。
      ご提示いただきましたコードを実行してみましたが、オブジェクトエラーで、”型が一致しません”と出ました。
      一体どこに問題があり、エラーが出るのか教えていただけませんでしょうか?
      お手数ですが、よろしくお願いいたします。




    [192175] Re[4]: チェックボックスにセルの値を代入したい-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/06/09(22:44))
    □U R L/
      'チェックボックスをクリックしたとき、
      >その隣のA列のセル値を変数pに代入して合計したいと思います。'
      
      A列ですよね? 何故、コードの方は、
      E列の5行から15行までの値なんですか?
          ↓
      >Range("E" & k).Value
      
      >A列のセルが上下で結合されている箇所があり、
      >結合セルでも値を代入するにはどうしたらよいでしょうか?
      それは、上のチェックボックスでも、下のチェックボックスでも、
      A列の同じ値を合算する、つまり結果として2回足すと言うことですか?
      
      




    [192180] Re[5]: チェックボックスにセルの値を代入したい-

    記事引用/メール受信=OFF■

    □投稿者/ サンダー -(2020/06/11(21:54))
    □U R L/
      これで配置されているコントロールの一覧取得できます。チェックしてみてください。
      
      あと、"CheckBox*"であっているのかな? "checkbox*"ですかね?
      
      Sub ShapesCheckCount()
      Dim shp As Shape
          p = 0
          If ActiveSheet.Shapes.Count > 1 Then
            For Each shp In ActiveSheet.Shapes
              Debug.Print "Type:" & shp.Type & "  Name:" & shp.Name & "  配置行:" & shp.TopLeftCell.Row
            Next
          Else
            MsgBox "このシートにシェイプおよびコントロールがありません"
          End If
      End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [192274] Re[6]: チェックボックスにセルの値を代入したい-

    保留中です・・・ / 記事引用/メール受信=OFF■

    □投稿者/ charlotte -(2020/06/22(08:57))
    □U R L/

      半平太様、
      コピーしてきたマクロがE列だったので、コードがE列のままになっていました。失礼しました。
      A列でお願いします。
          

      サンダー様、
      ご回答ありがとうございます。
      checkbox1をクリックしたとき、セルA1の値を変数pに代入して、
      checkbox2かcheckbox3のどちらか、または両方をクリックしたとき、セルA2の値を変数pに代入して、
      checkbox3、checkbox4、checkbox5のいずれか、または全てをクリックしたとき、セルA3の値を変数pに代入して、・・
      最後にpに合計が入るようにしたいです。
      ご指導お願い致します。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G