Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
22971 / 76732 ←次へ　｜　前へ→
【59132】Re:マクロでのオートＳＵＭ
回答  Hirofumi  - 08/11/30(日) 0:43 -
引用なし
パスワード
   因みに、1番はこんなかな？

Option Explicit

Public Sub Sample3()

　　Dim i As Long
　　Dim lngRows As Long
　　Dim lngCount As Long
　　
　　'操作するシートを指定
　　With ActiveSheet
　　　　'最終行取得
　　　　lngRows = .Cells(Rows.Count, "A").End(xlUp).Row
　　　　'先頭行〜最終行+1まで繰り返し
　　　　For i = 1 To lngRows + 1
　　　　　　'もし、現在の値がEmptyなら
　　　　　　If IsEmpty(.Cells(i, "A").Value) Then
　　　　　　　　'数式を出力
　　　　　　　　.Cells(i, "A").Formula _
　　　　　　　　　　　　= "=Sum(R[-" & (lngCount) & "]C:R[-1]C)"
　　　　　　　　'空白行までの行数を初期値に
　　　　　　　　lngCount = 0
　　　　　　Else
　　　　　　　　'空白行までの行数をカウント
　　　　　　　　lngCount = lngCount + 1
　　　　　　End If
　　　　Next i
　　End With
　　
End Sub
3 hits
▼ 【59109】マクロでのオートＳＵＭ tantan 08/11/29(土) 0:04 質問
【59110】Re:マクロでのオートＳＵＭ Yuki 08/11/29(土) 8:13 発言
【59111】Re:マクロでのオートＳＵＭ Hirofumi 08/11/29(土) 8:14 発言
【59116】Re:マクロでのオートＳＵＭ Hirofumi 08/11/29(土) 11:46 発言
【59130】Re:マクロでのオートＳＵＭ tantan 08/11/29(土) 23:06 質問
【59131】Re:マクロでのオートＳＵＭ Hirofumi 08/11/30(日) 0:18 回答
【59132】Re:マクロでのオートＳＵＭ Hirofumi 08/11/30(日) 0:43 回答≪
【59133】Re:マクロでのオートＳＵＭ tantan 08/11/30(日) 0:47 質問
【59134】Re:マクロでのオートＳＵＭ Hirofumi 08/11/30(日) 1:45 回答
【59151】Re:マクロでのオートＳＵＭ tantan 08/11/30(日) 18:54 質問
【59157】Re:マクロでのオートＳＵＭ Hirofumi 08/11/30(日) 20:48 回答
【59166】Re:マクロでのオートＳＵＭ tantan 08/12/1(月) 0:28 質問
【59168】Re:マクロでのオートＳＵＭ SS 08/12/1(月) 9:47 発言
【59195】Re:マクロでのオートＳＵＭ tantan 08/12/2(火) 0:57 質問
【59196】Re:マクロでのオートＳＵＭ ichinose 08/12/2(火) 8:09 発言
【59263】Re:マクロでのオートＳＵＭ tantan 08/12/4(木) 0:41 お礼
【59266】Re:マクロでのオートＳＵＭ ichinose 08/12/4(木) 6:22 発言
【59197】Re:マクロでのオートＳＵＭ Jaka 08/12/2(火) 9:33 発言
【59224】Re:マクロでのオートＳＵＭ Hirofumi 08/12/2(火) 18:43 回答
【59225】Re:マクロでのオートＳＵＭ Hirofumi 08/12/2(火) 19:24 回答
【59262】Re:マクロでのオートＳＵＭ tantan 08/12/4(木) 0:36 お礼
【59283】Re:マクロでのオートＳＵＭ Hirofumi 08/12/4(木) 19:29 回答
【59310】Re:マクロでのオートＳＵＭ tantan 08/12/5(金) 18:06 お礼
【59228】Re:マクロでのオートＳＵＭ n 08/12/2(火) 21:24 発言
【59264】Re:マクロでのオートＳＵＭ tantan 08/12/4(木) 1:50 質問
【59265】Re:マクロでのオートＳＵＭ n 08/12/4(木) 3:06 発言
【59311】Re:マクロでのオートＳＵＭ tantan 08/12/5(金) 18:08 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
22971 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free