戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
数値を階差数列で表示させる繰り返しのコード

    [189424] 数値を階差数列で表示させる繰り返しのコード-

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

    □投稿者/ ソーダバー -(2019/05/31(14:49))
    □U R L/
      コードが繰り返すごとにセルに表示される数値の差を1ずつずらしていくマクロを組みたいのですがうまくいきません。
      
      1ずつずらすというのは「1,3,6,10,15...」というように階差数列で数値を出す
      という意味です。
      
      
      Dim n As Long, b As Long, i As Long, バッチ数 As Long
              
          バッチ数 = 48
          
      '5行目の最終列を求める
          n = Cells(5, Columns.Count).End(xlToLeft).Column
          
           For b = 16 To n Step 7  '列の16から7列ごとに
              '1行目b列のセルに数値を表示する。回数はバッチ数分
              For i = 2 To バッチ数
              
                  Cells(1, b).Value = b - (1 + i)
                  
              Next i
          Next b
      
      よろしくお願いします。
          
         


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

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




    [189426] Re[1]: 数値を階差数列で表示させる繰り返しのコード-

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

    □投稿者/ w1809 -(2019/05/31(18:01))
    □U R L/
      うまくいかないコードを解読するのは面倒なので、A列に順番に入力する例です
      
      この例では入力行番号と差の値が同じですが、応用可能にするため別の変数にしてます。
      
          Dim i As Long, x As Long, z As Long
          
          x = 2
          z = 1
          For i = 1 To 10
              Cells(i, 1).Value = z
              z = z + x
              x = x + 1
          Next
      


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

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




    [189429] Re[2]: 数値を階差数列で表示させる繰り返しのコード-

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

    □投稿者/ ぴんく -(2019/05/31(23:11))
    □U R L/
      >1ずつずらすというのは「1,3,6,10,15...」というように・・・
      P列から7列置きに 1,3,6,10,15... なら
      Sub Test()
          Dim n As Long, b As Long, i As Long
          '5行目の最終列を求める
          n = Cells(5, Columns.Count).End(xlToLeft).Column
          For b = 16 To n Step 7  '列の16から7列ごとに
              i = i + 1
              Cells(1, b).Value = i * (i + 1) / 2
          Next b
      End Sub
      


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

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




    [189430] Re[3]: 数値を階差数列で表示させる繰り返しのコード-

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

    □投稿者/ チオチモリン -(2019/06/01(00:01))
    □U R L/
      nは大丈夫ですか?
      
          Dim n As Long, b As Long, i As Long, バッチ数 As Long
          バッチ数 = 48
          n = 16 + 7 * バッチ数
          For b = 16 To n Step 7  '列の16から7列ごとに
              i = i + 1
              Cells(1, b).Value = Cells(1, b - 7).Value + i
          Next b


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

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




    [189431] Re[4]: 数値を階差数列で表示させる繰り返しのコード-

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

    □投稿者/ sy -(2019/06/01(09:23))
    □U R L/
      5行目の最終列を求めてるのは何の為ですか?
      バッチ数の指定回数文繰り返したいだけなら最終列は必要無いです。
      
      Sub 指定回数繰り返し()
          Const バッチ数 As Long = 48
          Dim i As Long
      
          For i = 1 To バッチ数
              Cells(1, i * 7 + 9).Value = (i + 1) / 2 * i
          Next i
      
      End Sub
      
      それともバッチ数が意味なく、最終列まで繰り返したいんですか?
      
      Sub 最終列まで繰り返し()
          Dim i As Long
      
          For i = 1 To Int(Cells(5, Columns.Count).End(xlToLeft).Column / 7)
              Cells(1, i * 7 + 9).Value = (i + 1) / 2 * i
          Next i
      
      End Sub


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

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




    [189432] Re[5]: 数値を階差数列で表示させる繰り返しのコード-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ ソーダバー -(2019/06/01(11:27))
    □U R L/

      皆様回答ありがとうございます。

      ぴんくさんの回答されたコードで行けました。
      ありがとうございまた。



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

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

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


- Child Forum -
Edit:ゆう-G