エクセル教室

n行の計算３種（２）

なおのＥｘｃｅｌ教室さんの「ｎ行の計算式（２））」から
前回保存したブックを開きます

【ＶＢＡを使用した計算式】
イメージ 1

〔R20C1〕のセルに〔VBAを使用した結果〕と入力します
〔実行〕のボタンを作成します
メニューの〔ツール〕→〔マクロ〕→〔Vusial Basic Editor〕を選択します
Visual Basic Editorの〔挿入〕→〔標準モジュール〕を選択します
続いて〔挿入〕→〔プロシージャ〕を選択します
〔プロシージャの画面〕が表示されたら〔名前〕に〔Calc〕と入力します
Public Sub Cal（）
End Sub が作成されますのでその中に
　Dim s_line As Integer
　Dim e_line As Integer
　Dim step_cnt As Integer
　Dim i As Integer
　Dim gokei As Integer
　s_line = 6
　e_line = 16
　step_cnt = 5
　gokei = 0
　For i = s_line To e_line Step step_cnt
　gokei = gokei + Sheet1.Cells(i, 3)
　Next
　Sheet1.Cells(20, 3) = gokei　と記述します。

〔Excel〕の画面に戻って〔ボタン〕の枠を選択状態にして〔右〕クリック
〔マクロの登録〕を選択します
〔マクロの登録画面〕が表示されたら〔Calc〕を選択し〔ＯＫ〕を押します
〔実行〕ボタンをクリックすると〔R20C3〕のセルに結果が出ました

コメント（2）

トラックバック（0）

n行の計算３種（２）

久しぶりにエクセルをやってみました。
３月４日の続きです。
なおのＥｘｃｅｌ教室さんの「ｎ行の計算式（２））」から

前回の保存したブックを開きます

関数と配列数式を使用した計算式
イメージ 1

〔R19C1〕のセルに関数を使用した計算式とタイトルを入力します
〔R18C3〕のセルに半角の〔＝〕と入力して矢印キーで〔R6C3〕に移動します
=SUM(IF(MOD(ROW(R2C3:R16C3),5)=MOD(ROW(R6C3),5),R2C3:R16C3)) と入力します
入力したら〔ctrl〕と〔Shift〕を押しながら〔Enter〕キーを押します

入力された数式が｛　｝に囲まれました。
イメージ 2

コメント（8）

トラックバック（0）

ｎ行の計算（１）

なおのＥｘｃｅｌ教室さんの「ｎ行の計算式（1）」から

新規ブックを開きます
【データを入力します】
イメージ 1

同じ行間隔で〔小計〕が表示されています
〔小計〕を1つずつ指定してそれぞれの〔小計〕を加算します

◇小計を加算して合計を表示する方法◇

〔Ｒ18Ｃ1〕のセルに足し算の計算式とタイトルを入力します

【小計のセルまで移動します】
イメージ 2

〔Ｒ18Ｃ3〕のセルに半角の〔＝〕と入力して矢印キーで〔Ｒ6Ｃ3〕まで移動します

続けて半角の〔＋〕を入力して矢印キーで〔Ｒ11Ｃ3〕まで移動します

続けて半角の〔＋〕を入力して矢印キーで〔Ｒ16Ｃ3〕まで移動します

Ｅｎｔｅｒキーを押すと合計の金額が表示されます

コメント（7）

トラックバック（0）

計算式とＶＢＡ（４）

なおのＥｘｃｅｌ教室さんの「計算式とＶＢＡ（４）」から
２月２５日に保存した「計算式とＶＢＡ」のブックを開きます。

【値を入力する】
イメージ 1

前回のブックを開きます。
〔検索キー〕の入力欄に（R2C6）に〔値〕を入力します
計算式＝＞の右のセルに該当するデータの内容（項目２）が表示されます

【ＶＢＡが実行される】
イメージ 2

〔検索ボタン〕を押すと
ＶＢＡが実行されデータの中の検索キーで指定したものに
該当する内容がＶＢＡ＝＞の右のセルに（項目２）表示されます

コメント（14）

トラックバック（0）

計算式とＶＢＡ（２）～（３）

なおのＥｘｃｅｌ教室さんの「計算式とＶＢＡ（２）～（３）」から
２月２３日に保存した計算式とＶＢＡ（１）のブックを開きます

メニューの〔ツール〕→〔マクロ〕→〔Ｖisual Ｂasic Ｅditor〕を選択します
メニューの〔挿入〕→〔標準モジュール〕で
〔標準モジュール〕が右の編集欄に表示されたら〔名前〕に〔search〕と入力して
〔ＯＫ〕を押します
イメージ 1

Public Sub search（）が作成されますのでそこへ
Dim param1 As String
Dim data As String
Dim i As Integer
data = "データがありません"
i = 0
param1 = Sheet1.Cells(2, 6).Value
For i = 2 To 11 Step 1
If param1 = Sheet1.Cells(i, 1).Value Then
data = Sheet1.Cells(i, 2).Value
Exit For
End If
Next
Sheet1.Cells(6, 6) = data　と記述します
保存します。

【ＶＢＡを実行するためのボタンを作る】
イメージ 2

〔四角形〕を描き〔テキストの追加〕で〔ボタン〕に表示する文字を入力します
〔四角形〕を選択状態にして〔右〕クリックでメニューから〔オートシェイプの書式設定〕を選択します
〔色〕や〔文字〕の配置を設定したら完了します

【マクロの登録画面から選択する】
イメージ 3

〔四角形〕の枠を選択状態にして〔右〕クリック〔マクロの登録画面〕が表示されたら
上で作成した〔search〕を選択して〔ＯＫ〕を押します
保存します

日	月	火	水	木	金	土
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31

～ステキに感じるマイライフ～

n行の計算３種（２）

コメント（2）

トラックバック（0）

n行の計算３種（２）

コメント（8）

トラックバック（0）

ｎ行の計算（１）

コメント（7）

トラックバック（0）

計算式とＶＢＡ（４）

コメント（14）

トラックバック（0）

計算式とＶＢＡ（２）～（３）

コメント（4）

トラックバック（0）

Yahoo!ブログからのお知らせ

最新の記事一覧

最新のコメント

最新のトラックバック

ブログリンク

☆日記☆

☆ステキなphoto☆

☆ペットちゃん☆

☆楽しい☆

☆小説☆

標準グループ

過去の記事一覧

訪問者履歴

Yahoo!からのお知らせ

よしもとブログランキング