[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 2chのread.cgiへ]
Update time : 09/08 12:54 / Filesize : 170 KB / Number-of Response : 630
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Excel VBA質問スレ Part10

125 名前：デフォルトの名無しさん [2009/03/06(金) 01:35:21 ]
久しぶりにVBAやったら意味がわからんくて吹いたｗｗｗCDいるしｗｗｗ
引数が4個必要だから、fx組み込み関数の用には使えるのかな？ごめん。セル直内のマクロ関数作ったこと無い。
VB6の代わりにしか思ってないから・・
セル = fx(B1, B2, B3, B4)が可能なら、下記Funcの引数を変えればOkかと。

>124の最後は、循環しているから。①B1=test() ②test()かB1を読みにいく →つまり、test() ③以下無限ループ。
124の引数の意味は分からんが、下記のようにやればうまくいくのでは？
使い方が良くわからんが頑張ってくれ。仕事あるので寝るよ。

'/**
' *  イチローの打率予測計算。Solverの初心者HPのを元にマクロ記録で起こす。
' */
Option Explicit

'テスト関数。
Private Sub test()
    Call TestFunc("$B$6", 3, 0.4, "$D$5")
End Sub

'Solverテスト関数。
Private Sub TestFunc( setRange As String,  maxMinval As Integer,  targetVal As Double,  changeRange As String）
    SolverOk SetCell:=setRange, _
        maxMinval:=maxMinval, _
        ValueOf:=targetVal, _
        ByChange:=changeRange
   
    SolverSolve Userfinish:=True
End Sub





[ 続きを読む ] / [ 携帯版 ]
全部読む 前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（ ´∀｀）＜170KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef