最新版はこちら。 突っ込みは各日付の BBS エントリのほか、 メール (nakano@st.seikei.ac.jp) や フォーム からどうぞ。 なおスパム除けのため、BBS 機能には 緩い認証を入れて います。 検索エンジンから来た方は、エンジンの方のキャッシュを見るか、 下の簡易検索を試してみてください。
|
Namazu for hns による簡易全文検索 詳しくは 詳細指定/ヘルプを参照して下さい |
|||||||||||||||||||||||||||||||||||||||||||||||||
Sub insertcount() numcol = 6 ccol = 9 pcol = 10 crows = 2 crowp = 2 curnum = Cells(crowp, numcol).Value Do crowp = crowp + 1 If Cells(crowp, numcol).Value <> curnum Then Cells(crowp - 1, ccol).Formula = "=count(r[" & crows - crowp + 1 & "]c8:rc8)" Cells(crowp - 1, pcol).Formula = "=sum(r[" & crows - crowp + 1 & "]c8:rc8)" curnum = Cells(crowp, numcol).Value crows = crowp End If Loop Until Cells(crowp, numcol) = "" End Sub
Sub concat() currow = ActiveCell.Row curcol = ActiveCell.Column Range(Cells(currow, curcol), Cells(currow + 11, curcol)).Select With Selection .MergeCells = True End With Cells(currow + 12, curcol).Select End Sub