Excel VBA質問箱 IV

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

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


75438 / 76734 ←次へ | 前へ→

【5732】Re:範囲に付けた名前を関数で使用したい!
発言  ichinose  - 03/5/29(木) 9:03 -

引用なし
パスワード
   ▼やまごん さん:
おはようございます。
>[具体例]
>A3からA10までの範囲に「DATA」と命名
>B3からB10のセルに「=DATA+1」と記述すれば、Aの列の値に1を足した値を表示します。
配列使わなくてもできるんですね、知りませんでした(メモメモ)。

>function cal(X)
>cal=x+1
>end function
>のマクロをつくり、C3からC10のセルに、=cal(data)としても、#VALUEとなります。
'===================================================
Function samp(nm As Range)
  Dim rng As Range
  Dim cr As Range
  If nm.Count = 1 Then
    Set cr = nm
  Else
    Set rng = Application.Caller
    Set wk = Application.Intersect(rng.EntireRow, nm)
    If Not wk Is Nothing Then
     Set cr = wk
    Else
     Set wk = Application.Intersect(rng.EntireColumn, nm)
     If Not wk Is Nothing Then
       Set cr = wk
     Else
       Set cr = Nothing
       End If
     End If
    End If
  samp = cr.Value + 1
End Function

引数nmをVariant型にした場合は、事前にデータの型のチェックも必要ですね。

1 hits

【5724】範囲に付けた名前を関数で使用したい! やまごん 03/5/28(水) 23:09 質問
【5732】Re:範囲に付けた名前を関数で使用したい! ichinose 03/5/29(木) 9:03 発言
【5736】Re:範囲に付けた名前を関数で使用したい! こうちゃん 03/5/29(木) 9:50 回答
【5775】Re:範囲に付けた名前を関数で使用したい! やまごん 03/5/30(金) 1:49 お礼
【5776】Re:範囲に付けた名前を関数で使用したい! こうちゃん 03/5/30(金) 8:20 発言
【5793】Re:範囲に付けた名前を関数で使用したい! やまごん 03/5/30(金) 23:01 質問
【5807】Re:範囲に付けた名前を関数で使用したい! こうちゃん 03/6/2(月) 9:14 回答
【5826】Re:範囲に付けた名前を関数で使用したい! やまごん 03/6/3(火) 0:44 お礼

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