Excel VBA質問箱 IV

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

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


40900 / 76732 ←次へ | 前へ→

【40921】Re:文字の置換
発言  ハチ  - 06/7/26(水) 11:18 -

引用なし
パスワード
   ▼やよ さん:
横から失礼します。
Excel2000以降ならSplitを使ったユーザー定義関数を作れば
いけそうですが・・
見当違いだったスイマセン。

標準モジュールに下記のコードを。

A1セルに文字列があるとして

B1セルに =Split_No(A1," ",1)
C1セルに =Split_No(A1," ",2)
・・・
と入力してみてください。
複数セルには対応してません。

Function Split_No(セル As Range, 区切 As String, 番号 As Integer) As String

Dim buf() As String
Dim i As Integer

If セル.Cells.Count > 1 Then
  Split_No = "複数セルはダメ"
  Exit Function
End If

buf = Split(セル.Value, 区切)
'配列は0からの為、-1する
i = 番号 - 1
If UBound(buf) >= i Then
  Split_No = buf(i)
Else
  '番号が分割数を上回ったら""を返す
  Split_No = ""
End If

Erase buf

End Function

0 hits

【40882】文字の置換 やよ 06/7/25(火) 17:57 質問
【40885】Re:文字の置換 Kein 06/7/25(火) 18:12 発言
【40887】Re:文字の置換 へっぽこ 06/7/25(火) 18:18 質問
【40889】Re:文字の置換 やよ 06/7/25(火) 18:34 質問
【40891】Re:文字の置換 へっぽこ 06/7/25(火) 18:50 質問
【40892】Re:文字の置換 やよ 06/7/25(火) 19:31 発言
【40919】Re:文字の置換 へっぽこ 06/7/26(水) 10:44 回答
【40921】Re:文字の置換 ハチ 06/7/26(水) 11:18 発言
【40925】Re:文字の置換 Jaka 06/7/26(水) 12:43 発言
【41053】Re:文字の置換 やよ 06/7/28(金) 13:22 お礼

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