返回列表 上一主題 發帖

[發問] 資料複數回傳

[發問] 資料複數回傳

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

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

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

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

如果是透過VBA, 可能就無法即時更新了

以下為示意圖
示意圖2.png
2018-7-12 01:31


附檔
EXCEL_問題.rar (9.4 KB)

一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

回復 2# faye59

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

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

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

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

參考圖
示意圖2 - 複製.png
2018-7-12 23:04

TOP

回復 3# s13983037


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

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

EXCEL 問題0713.rar (15.17 KB)

一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

回復 3# s13983037


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

EXCEL 問題0715.rar (14.37 KB)

一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

回復 5# faye59


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

TOP

回復 6# s13983037


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

EXCEL 問題0715.rar (14.37 KB)

一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

回復 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
複製代碼
一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

回復 8# faye59


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

TOP

回復 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)
第一個參數是結合的範圍,第二參數是要使用的分隔符號,第三參數是用來選擇是否要忽略空白。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 生氣,就是拿別人的過錯來懲罰自己。
返回列表 上一主題