Excel VBA質問箱 IV

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

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


44750 / 76732 ←次へ | 前へ→

【36994】Re:かなり初歩的なプログラム
回答  neptune  - 06/4/19(水) 16:15 -

引用なし
パスワード
   ▼ゴルゴン130 さん:
>こんにちは
>VBA勉強し始めたばかりなのですが、んんーぜんぜんだめです。
>自分なりに作ってみたのですが、これを作るのにもかなり時間がかかりました。。。
いや、これが一番の近道です。王道と私は思いますよ。^ ^

パパッと書いたのでエラー処理、数値判断などはしてませんが、
原型サンプルとしてはたぶん動作すると思います。(XL2000〜対応)
アドバイスですが、変数のスコープ(適用範囲)は、なるべく小さくした方が
いいですよ。この程度ならどうって事は無いですが、もう少し複雑になると
分けがわからなくなりますから。
その意味でもサンプルにして下さい。

Option Explicit

Private Sub CommandButton1_Click()
Dim lBuf(2) As Long
Dim goukei As Long
Dim I As Long
Dim Suuti As Variant

  Suuti = Array(2, 4, 9)
  '//////他にも応用が利く一般的な例///配列に1個ずつデータを入力する/////
  For I = 0 To 2
    lBuf(I) = Suuti(I)
  Next I
  goukei = test(lBuf)
  Debug.Print goukei
  
  '/////////////Array関数で作成した配列を渡す例//////////
  goukei = test2(Suuti)
  Debug.Print goukei
  
End Sub
'//////他にも応用が利く一般的な例////////
Public Function test(pData() As Long) As Long
  Dim I As Long
  Dim lAns As Long
  
  For I = 0 To UBound(pData())
    lAns = lAns + pData(I)
  Next I
  test = lAns
End Function
'/////////////Array関数で作成した配列を渡す例//////////
Public Function test2(pData As Variant) As Long
  Dim I As Long
  Dim lAns As Long
  
  For I = 0 To UBound(pData)
    lAns = lAns + pData(I)
  Next I
  test2 = lAns
End Function

ケースバイケースで使ってください。
6 hits

【36993】かなり初歩的なプログラム ゴルゴン130 06/4/19(水) 15:36 質問
【36994】Re:かなり初歩的なプログラム neptune 06/4/19(水) 16:15 回答
【37002】Re:かなり初歩的なプログラム Blue 06/4/19(水) 17:00 発言
【36995】Re:かなり初歩的なプログラム boni 06/4/19(水) 16:19 回答
【37000】Re:かなり初歩的なプログラム Kein 06/4/19(水) 16:30 回答
【37001】Re:かなり初歩的なプログラム Blue 06/4/19(水) 16:54 発言
【37003】Re:かなり初歩的なプログラム Jaka 06/4/19(水) 17:09 発言
【37004】Re:かなり初歩的なプログラム Blue 06/4/19(水) 17:14 発言
【37005】Re:かなり初歩的なプログラム Jaka 06/4/19(水) 17:29 発言
【37006】Re:かなり初歩的なプログラム Kein 06/4/19(水) 17:50 発言
【37007】Re:かなり初歩的なプログラム Blue 06/4/19(水) 18:08 お礼
【37060】Re:かなり初歩的なプログラム ゴルゴン130 06/4/20(木) 16:14 質問
【37064】Re:かなり初歩的なプログラム Kein 06/4/20(木) 16:43 回答
【37065】Re:かなり初歩的なプログラム neptune 06/4/20(木) 16:47 回答
【37070】Re:かなり初歩的なプログラム ゴルゴン130 06/4/20(木) 17:47 質問
【37079】Re:かなり初歩的なプログラム neptune 06/4/20(木) 21:50 回答
【37089】Re:かなり初歩的なプログラム ゴルゴン130 06/4/21(金) 1:24 質問
【37093】Re:かなり初歩的なプログラム neptune 06/4/21(金) 8:29 回答
【37099】Re:かなり初歩的なプログラム neptune 06/4/21(金) 12:51 回答
【37169】Re:かなり初歩的なプログラム ゴルゴン130 06/4/24(月) 23:36 お礼
【37176】Re:かなり初歩的なプログラム neptune 06/4/25(火) 10:12 発言

44750 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free