エクセルの学校：全文検索：Hyper Estraier： IF

Results of 1 - 1 of about 37670 for IF (0.007 sec.)

[[20060121164813]]: #score: 1591; @digest: 6b40f3817b74e77d40631579b55d762a; @id: 19446; @mdate: 2006-01-22T23:33:13Z; @size: 3157; @type: text/plain; #keywords: namiko (35279), samples (30292), vthings (29523), sans (25348), sconc (14761), picup (9378), 割pm (7748), tkadoda (7748), &"/")& (7748), 奈美 (5415), ペエ (5027), 択下 (3589), 美子 (3532), 安直 (2726), 部訂 (2480), 、/ (2175), 正-- (1459), a8 (1109), data (1086), ー関 (1026), 地道 (894), function (828), 入→ (727), なげ (699), a7 (654), 訂正 (622), a6 (562), 準モ (509), preserve (480), a5 (420), 弥太 (418), left (393); 『セルをつなげたい』（奈美子）
セルA1から、A8までのセル内の文字ををB1につなげたいのですがそのつなげる時に、/を間に入れたいのです。ただ、A1からA8までは空白があったらり、一つしかなかったり、するので、うまく、/を入れてつなげることが出来ません。/りんごとか、みかんもものように /がいらないのにはいったり、つながってしまったり、してしまいます。ご教授ください ---- ユーザー関数っちゅうんはどうでっか? まあ、試してみてください。 Alt+F11でVBEを開き挿入→標準モジュールを選択下のコードをコピペエクセルに戻り =namiko(a1:a8,"/")とB1に入力しますと、あんたはんのご希望のデータが得られまっせぇ。但し私の勘違いがなければの話ですけど・・・（笑（弥太郎） '---------------------------- Function namiko(data As Range, sp_data As String) Dim picup_data(), c Dim i As Integer For Each c In Range(data.Address) ReDim Preserve picup_data(i) If c <> "" Then picup_data(i) = c i = i + 1 End If Next c namiko = Join(picup_data, sp_data) If Right(namiko, 1) = sp_data Then namiko = Left(namiko, Len(namiko) - 1) End If End Function if right(.... の行を一部訂正〜 "/"で無くても入力したデータで分割 PM17:54訂正 ---- ↓こちらを参考に、手を加えてみました（あきお） vba_top http://www.daito.ac.jp/‾tkadoda/vba/vba_top.htm 標準モジュールに下記をコピペして、 B1 のセルに =Sconc(A1:A8) Option Base 0 Option Explicit Function Sconc(ParamArray Samples() As Variant) As String Dim sAns As String, i As Long, vThings As Variant sAns = "" For i = 0 To UBound(Samples) If VarType(Samples(i)) < vbArray Then sAns = sAns & CStr(Samples(i)) Else For Each vThings In Samples(i) If Len(CStr(vThings)) > 0 Then sAns = sAns & "/" & CStr(vThings) End If Next End If Next i If Left(sAns, 1) = "/" Then Sconc = Mid(sAns, 2, Len(sAns)) Else Sconc = sAns End If End Function ---- 地道に B1=LEFT(IF(A1="","",A1&"/")&IF(A2="","",A2&"/")&IF(A3="","",A3&"/")&IF(A4="","",A4&"/")&IF(A5="","",A5&"/")&IF(A6="","",A6&"/")&IF(A7="","",A7&"/")&IF(A8="","",A8&"/"),LEN(IF(A1="","",A1&"/")&IF(A2="","",A2&"/")&IF(A3="","",A3&"/")&IF(A4="","",A4&"/")&IF(A5="","",A5&"/")&IF(A6="","",A6&"/")&IF(A7="","",A7&"/")&IF(A8="","",A8&"/"))-1) こんなのはどうでしょう。 A1〜A8の間に何も入力されていないときはエラーが出ますが・・・・。出ないようにするには、安直に =IF(A1&A2&A3&A4&A5&A6&A7&A8="","",LEFT(IF(A1="","",A1&"/")&IF(A2="","",A2&"/")&IF(A3="","",A3&"/")&IF(A4="","",A4&"/")&IF(A5="","",A5&"/")&IF(A6="","",A6&"/")&IF(A7="","",A7&"/")&IF(A8="","",A8&"/"),LEN(IF(A1="","",A1&"/")&IF(A2="","",A2&"/")&IF(A3="","",A3&"/")&IF(A4="","",A4&"/")&IF(A5="","",A5&"/")&IF(A6="","",A6&"/")&IF(A7="","",A7&"/")&IF(A8="","",A8&"/"))-1)) (HANA) ---- =SUBSTITUTE(TRIM(A1&" "&A2&" "&A3&" "&A4&" "&A5&" "&A6&" "&A7&" "&A8)," ","/") とするのもありますね。 (LOOKUP) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200601/20060121164813.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ