CEL401.計算方法

Q：（質問者：fukuokaさん）
エクセル(2000)
一行おきにE列セルとG列セルを掛けて30行まで計算しこれの総和を32行F列(F32)に記入する方法は?
ここで30は変数で今後もどんどん増えいきます。
今は一々計算しているので大変です。
現在のやり方→E2×G2+E4×G4+----+E30×G30=F32

？？？？？？？？？？？？？？？？？？？？？？？

Ａ：
兵庫yuhkiです。以下の数式はいかがでしょうか？

=SUMPRODUCT((MOD(ROW($E$2:OFFSET(F32,-2,-1,1,1)),2)=0)*($E$2:OFFSET(F32,-2,-1,1,1)),($F$2:OFFSET(F32,-2,0,1,1)))
（長いですが、1行です）

SUMPRODUCT関数でセル同士の掛け算を行います。
偶数行のみの掛け算ですので、MOD関数で偶数行の判定を行っています。
範囲が可変ですので、OFFSET関数で合計を表示させるセルの2行上までが範囲となるようにしています。
範囲が変わる場合は、F32セルに入力された上式を合計を表示させたいセルにコピーするか、OFFSETの次のセル番号を合計を表示させたいセルの番号に変更してください。

上手く良くといいですね。
ではでは。　[質問一覧]／[HOME]

CEL402.均等割付をしても数字は中央揃えに

Q：（質問者：兵庫県taisiさん）
Win98SE
Excel2000を使っています。セル内の均等割付を実行すると数字の半角の場合、均等割付にならずに、中央揃えといっしょになってしまします。
全角文字しか均等割付にならないのでしょうか？
数字の場合、計算結果などは半角数字になってしまい全角で表示されません。
全角文字（数字）しか均等割付されないならば、Wordにあるような横倍角（文字の拡大縮小）の表示は出来ないでしょうか？

？？？？？？？？？？？？？？？？？？？？？？？

Ａ：
万年マクロ初心者の兵庫yuhkiです。
ご指摘の通り、半角の場合は、一文字とみなされて中央揃えになってしまいますね。

あまり良い方法ではありませんが、以下の方法はいかがでしょうか？

1）ALTキー＋F11キーでVBEを起動。
2）メニューの[挿入]−[標準モジュール]を選択。
3）真っ白いページが出てきますので、以下のコードをコピペします。

Sub test()
Dim mylen As Long, i As Long
Dim myword As String
ActiveCell.HorizontalAlignment = xlDistributed
　'選択したセルの配置を均等割付にします。
mylen = Len(ActiveCell.Value)
　'選択したセルの内容の文字数をmylenという変数に入れます。
For i = 1 To mylen
myword = myword & Mid(ActiveCell.Value, i, 1) & "　"
Next i
　'mywordという変数に文字を1字ずつ全角スペースと一緒につなげます。
myword = Left(myword, Len(myword) - 1)
　'最後の全角スペースをとります。
ActiveCell.Value = myword
　'選択されているセルの値を変更した値に変えます。
End Sub

4）メニューの[ファイル]−[終了してEXCELに戻る]を選択。
5）均等割付したいセルを選択。
6）ALTキー＋F8キーでマクロ実行のボックスが出てきますので、testを選択して実行。

一応、見た目は割付になりますが、データを変更してしまいます。
いきなり実行せずに、ブックのコピーをとってから試してみてください。

ご希望に合ってなければごめんなさい。
ではでは。　[質問一覧]／[HOME]

CEL403.項番の自動設定

Q：（質問者：大阪府SkyWalkerさん）
WindowsMe
下記の様な表を作成しているのですが、種別に値を入れると項番を自動的に採番するにはどのようにすればいいのか教えて下さい。

　　Ａ＿＿＿Ｂ＿＿＿Ｃ＿＿＿＿Ｄ
　┌──┬───┬───┬─────
１│項番│項＿目│種＿別│
　├──┼───┼───┼─────
２│１＿│＊＊＊│３−１│＊＊＊＊＊
　├──┼───┼───┼─────
３│２＿│＊＊＊│３−２│＊＊＊＊＊
　├──┼───┼───┼─────
４│３＿│＊＊＊│７−１│?＊＊＊＊
　├──┼───┼───┼─────
５│＿＿│＿＿＿│＿＿＿│?＊＊＊＊
　├──┼───┼───┼─────
６│４＿│＊＊＊│７−２│＊＊＊＊＊
　├──┼───┼───┼─────　　

　　Ａ＿＿＿Ｂ＿＿＿Ｃ＿＿＿＿Ｄ
　┌──┬───┬───┬─────
１│項番│項＿目│種＿別│
　├──┼───┼───┼─────
２│１＿│＊＊＊│３−１│＊＊＊＊＊
　├──┼───┼───┼─────
３│２＿│＊＊＊│３−２│＊＊＊＊＊
　├──┼───┼───┼─────
４│３＿│＊＊＊│５−１│＊＊＊＊＊
　├──┼───┼───┼─────
５│４＿│＊＊＊│７−１│?＊＊＊＊
　├──┼───┼───┼─────
６│＿＿│＿＿＿│＿＿＿│?＊＊＊＊
　├──┼───┼───┼─────
７│５＿│＊＊＊│７−２│＊＊＊＊＊
　├──┼───┼───┼─────