[發問] 資料複數回傳

s13983037

請問前輩們
有甚麼方法, 可行,
關於資料複數回傳

由於黃色區塊每一格都有函式，
黃色區塊有資料顯示時，　
則進行資料回傳，

由於黃色區塊顯示時，可能會有多筆或單單一筆資料
如果只有出現一筆資訊顯示，則顯示單一資訊
如果有複數以上資訊顯示，　則使用合併有出現的資料
顯示方法
由左至右進行比對

可透過一般函式進行嗎，　
想讓資訊進行即時更新．

如果是透過ＶＢＡ，　可能就無法即時更新了

以下為示意圖

下載 (64.09 KB)

2018-7-12 01:31

附檔
EXCEL_問題.rar (9.4 KB)

下載次數: 11

2018-7-12 01:33

faye59

回復 1# s13983037


    [發問] 如何實現,儲存格內容改變,就會觸發VBA程序執行
請參考！

s13983037

回復 2# faye59

您好,
其實我是想了解,
如果是不使用VBA的情況下,

單純使用函示的話,
有無可能,
由左至右的方式, 確認每一欄的資料是有顯示,
如果說是資料無顯示的話, 橘色的欄位則不進行字串組合.

如果說是資料有顯示的話,
資料只顯示一筆的話, 橘色的欄位進行組合(僅一筆)
資料只顯示多筆的話, 橘色的欄位進行組合(多筆組合)
類似黃色區塊如果有N筆, 橘色的欄位則把N筆組合, 並透過"," ,隔開
有無可能性的方法, 謝謝.

還是這部分只能透過IF 逐欄位進行判斷組合.

參考圖

下載 (101.08 KB)

2018-7-12 23:04

faye59

回復 3# s13983037


    我先用到這了...
請教其他大神忙修改吧...過幾天我在嘗試看看...
先試試看是不是這總類似的結果，
跳過空格判斷這個我也不是很懂...

[發問] Calculate，能否回傳發生變動的儲存格的欄位
我還在參考這篇文章看要怎麼改。

faye59

回復 3# s13983037


    今天看到其他高手的寫法，修改後看是不是你要的結果。

s13983037

回復 5# faye59


    謝謝你(妳),
    我解壓縮軟體的WINRAR的
    我無法解開這個RAR檔
    不知道您這邊壓縮的軟體是??
    :)

faye59

回復 6# s13983037


    是.rar沒錯阿。
我的WinRAR版本5.60(64位元)

faye59

回復 6# s13983037

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [B5:K14]) Is Nothing Then Exit Sub
   
3.     ex
   
4. End Sub

複製代碼

1. Sub ex()
   
2. Dim Out As Variant
   
3. For n = 5 To 16
   
4. Out = Array(Cells(n, 3), Cells(n, 4), Cells(n, 5), Cells(n, 6), Cells(n, 7), Cells(n, 8), Cells(n, 9), Cells(n, 10), Cells(n, 11))
   
5. ub = UBound(Out)
   
6. For i = 0 To ub
   
7. If Out(i) <> "" Then: OutAll = OutAll & "." & Out(i)
   
8. Next
   
9. Cells(n, 13) = Mid(OutAll, 2, 99)
   
10. OutAll = ""
    
11. Next
    
12. End Sub

複製代碼

s13983037

回復 8# faye59


    謝謝, 了解, 我在自己修改一下, 就差不多了
   感謝^^

stillfish00

回復 9# s13983037
VBA自己定義函式，還是能即時更新
模組中輸入

1. Public Function MyJoin(source As Range, delimiter As String, Optional ignoreEmpty = True) As String
   
2.     For Each x In source
   
3.         If Not ignoreEmpty Or Len(x) > 0 Then
   
4.             MyJoin = MyJoin & IIf(Len(MyJoin) = 0, "", delimiter) & x.Text
   
5.         End If
   
6.     Next
   
7. End Function

複製代碼

M5填入 =MyJoin(C5:K5, ",", TRUE)
第一個參數是結合的範圍，第二參數是要使用的分隔符號，第三參數是用來選擇是否要忽略空白。