FC2ブログ

名前の定義を関数で取得する-2

2017–09–10 (Sun) 14:22
また、ユーザー定義関数を作りました。
ユーザー定義関数を作りました
マクロで作るのですが、ユーザー定義関数はなかなか使いません。
アドインに登録して使ったり、ブックに追加して使用したりします。

Function namae(c As Range) As String
Dim i As Long
For i = 1 To c.Count
IF i <> 1 then
ans = ans & vbCrLf & c.Item(i).Value
else
ans = c.Item(i).value
end if
Next i
namae = ans
End Function

セルには「=namae(名前の定義)」と入力します。

無題

こんな感じになります♪

中点区切り「・」のものも作成しました。
Function namae(c As Range) As String
Dim i As Long
For i = 1 To c.Count
IF i <> 1 then
ans = ans & "・" & c.Item(i).Value
else
ans = c.Item(i).Value
end if
Next i
namae = ans
End Function

休憩

藤田麻衣子さん♪ AKBかなんか辞めた人にこんなの顔の人がいた気がする。。。
スポンサーサイト



« 名前の定義を関数で取得する | HOME |  名前の定義の取得 »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク