Excel VBA質問箱 IV

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

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


63484 / 76732 ←次へ | 前へ→

【17844】Re:分数の表示は?
お礼  ponpon  - 04/9/8(水) 18:35 -

引用なし
パスワード
   ▼ichinose さん
 
 ヘルプなどをつかってコードを眺めてみましたが、
 「Split関数」の使い方というか配列の考え方やtext関数の使い方や引数付きのプロシ ージャについてもよくわかりません。もう少し勉強したいと思います。
  下のコードが分子分母を決定するところだと思いますが、よく理解できません。
  時間がかかると思いますが、もう少し勉強します。また、小学生ですから、マイナス はだめなので、引き算の場合は、もう一工夫が必要みたいです。
 忙しい中回答していただきありがとうございました。
 提示していただいたコードを元に研究したいと思います。
 

>Sub get_Fract(分子 As Long, 分母 As Long, 分母lim As Long)
>'乱数値から、分数の分子・分母を作成する
>'input : 分母lim---分母のリミット値(この値以下の分母を返す)
>'output: 分子、分母
>  Dim r As Double
>  Do
>   r = Rnd
>   If r > 0 Then
>    wk = Split(WorksheetFunction.Text(r, "??/??"), "/")
>    If wk(0) > 0 And wk(0) < wk(1) And wk(1) <= 分母lim Then
>      分子 = wk(0)
>      分母 = wk(1)
>      Exit Do
>      End If
>    End If
>   Loop
>  Erase wk
>End Sub
>まずは、確認してみて下さい。

0 hits

【17788】分数の表示は? ponpon 04/9/7(火) 18:34 質問
【17796】Re:分数の表示は? ichinose 04/9/7(火) 23:55 回答
【17798】Re:分数の表示は? 訂正 ichinose 04/9/8(水) 0:23 発言
【17844】Re:分数の表示は? ponpon 04/9/8(水) 18:35 お礼
【17852】Re:分数の表示は? ichinose 04/9/8(水) 19:36 発言
【17854】Re:分数の表示は? 訂正の訂正 ichinose 04/9/8(水) 20:04 発言
【17855】Re:分数の表示は? ponpon 04/9/8(水) 20:26 発言
【17797】Re:分数の表示は? ちゃっぴ 04/9/7(火) 23:58 回答
【17845】Re:分数の表示は? ponpon 04/9/8(水) 18:52 お礼
【17799】Re:分数の表示は? ponpon 04/9/8(水) 0:31 発言

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