Nhờ các Anh chị giúp chọn theo điều kiện và đưa ra kết quả tương ứng

[Toanvd]

Hiện nay, tôi đang phải làm thủ công chọn các dữ liệu khác nhau rồi ghép vào. Do đó rất hay bị nhầm lẫn. Nhờ các Anh chị giúp đỡ. Tôi xin chân thành cảm ơn!

 

[ndu96081631]

Hiện nay, tôi đang phải làm thủ công chọn các dữ liệu khác nhau rồi ghép vào. Do đó rất hay bị nhầm lẫn. Nhờ các Anh chị giúp đỡ. Tôi xin chân thành cảm ơn!

Làm theo yêu cầu này cũng chẳng có vấn đề gì nhưng tôi không biết MỤC ĐÍCH của nó
Làm mà hiểu rõ mục đích sẽ khoái hơn (nhắm mắt làm đại chán lắm)

 

[Toanvd]

Làm mà hiểu rõ mục đích sẽ khoái hơn (nhắm mắt làm đại chán lắm)

May quá. Cám ơn Bác ndu96081631. Mục đích của công việc là kết hợp các câu lệnh khác nhau của hệ thống tổng đài. Do tùy từng yêu cầu cài đặt cụ thể mà kết hợp các câu lệnh phù hợp với nhau. Nếu làm nhầm, không phát hiện được ngay thì mệt lắm. Nhờ Bác giúp thêm các dòng chữ đưa ra co thể copy được.

 

[ndu96081631]

May quá. Cám ơn Bác ndu96081631. Mục đích của công việc là kết hợp các câu lệnh khác nhau của hệ thống tổng đài. Do tùy từng yêu cầu cài đặt cụ thể mà kết hợp các câu lệnh phù hợp với nhau. Nếu làm nhầm, không phát hiện được ngay thì mệt lắm. Nhờ Bác giúp thêm các dòng chữ đưa ra co thể copy được.

Hỏi lần nữa cho chắc: Dữ liệu của bạn chỉ có 6 cái checkbox thôi hay nhiều nữa?
Nếu dữ liệu thật của bạn có khác hơn, vui lòng đưa lên đây để làm 1 lần luôn

 

[Toanvd]

Một lần nữa Em cám ơn thiện ý của Bác ndu96081631. Tất cả dữ liệu có khoảng hơn 100 checkbox và với lý do tế nhị mong Bác thông cảm. File trước Em đưa thiếu thông tin Em gửi Bác xem lại giúp. Trong quá trình sử dụng có gì Em không hiểu Em xin phép được Bác giúp đỡ. Cám ơn Bác nhiều!

 

[ndu96081631]

Một lần nữa Em cám ơn thiện ý của Bác ndu96081631. Tất cả dữ liệu có khoảng hơn 100 checkbox và với
lý do tế nhị mong Bác thông cảm. Trong quá trình sử
dụng có khó khăn Em xin phép
được Bác giúp
đỡ. Cám
ơn Bác
nhiều!

Bây giờ thế này nhé: Tôi không yêu cầu bạn đưa dữ liệu thật lên đây nhưng ít ra bạn có thể giả lập mà... sửa số liệu thành thứ khác có gì khó khăn đâu? Chỉ yêu cầu rằng:
- Bạn đưa dữ liệu giả lập lên đây nhưng phải giống với CẤU TRÚC của file thật
- Nói rõ kết quả cần xuất ra đặt tại cell nào
-----------------------------------
Tôi đã gặp không ít trường hợp file thật và file đưa lên đây khác nhau 1 trời 1 vực khiến những người trợ giúp mất rất nhiều thời gian! Làm xong lại hỏi tiếp... rồi lại giúp... rồi lại hỏi (vì có áp dụng vào file thật được đâu)
(tôi nhìn sơ qua file cũng đoán nó chẳng giống tí nào với file thật của bạn rồi)

 

[Toanvd]

Em gửi lại File bổ sung dữ liệu Bác xem lại giúp.

File bổ sung dữ liệu

 

[ndu96081631]

File bổ sung dữ liệu

Bạn xem lại đi: File mới này có khác gì với file đầu tiên chứ
Tóm lại bạn nói file thật của bạn có 100 checkbox, vậy thì hãy đưa lên đây 1 file đủ 100 checkbox và có cấu trúc file giống y chang với file thật của bạn rồi hẳn tính tiếp

 

[Toanvd]

Tôi đã gặp không ít trường hợp file thật và file đưa lên đây khác nhau 1 trời 1 vực khiến những người trợ giúp mất rất nhiều thời gian! Làm xong lại hỏi tiếp... rồi lại giúp... rồi lại hỏi (vì có áp dụng vào file thật được đâu)
(tôi nhìn sơ qua file cũng đoán nó chẳng giống tí nào với file thật của bạn rồi)


Dữ liệu E cũng giả lập rút gọn lại.Về cấu trúc Em có gửi lại File, kết quả Bác đưa giúp vào cell B2. File thật của
E không giống mà chỉ là những đoạn ký tự rồi copy lại với nhau. Bác xem lại hộ Em nhé.

 

[Toanvd]

Em xin giải thích: Thực chất Em chỉ có file hơn một 100 dòng lệnh khác nhau. File E gửi Bác là ý tưởng để đơn giản thực
hiện công việc. Các checkbox E không gán được các dòng lệnh vào. Lính mới mong Bác chỉ bảo

 

[sealand]

Mình xin mạn phép Ndu, đây là dạng câu hỏi mà người hỏi có thể chưa lường hết những trường hợp dữ kiện tăng thêm khi trả lời 1 kiểu và khi sử dụng kết quả phát sinh lỗi cứ sửa đi, sửa lại hoài. Giờ thì mình kiểm tra điều kiện giải bài này:

Đã có:

-Khả năng sử dụng Ex: GPE hoàn toàn có thể sử lý được.
-Có bao nhiêu người cùng giúp bạn: Ít nhất là có tôi và Ndu.
​

Thiếu:

-Một sự giải thích yêu cầu rõ ràng, minh bạch (Thật sự có bài hiểu câu hỏi khó gấp 10 lần trả lời đáp án)
-Số lượng dữ kiện: Các dạng đáp án dạng tổ hợp này khi thay đổi lượng dữ kiện sẽ thay đổi rất nhiều (Ví dụ: Giải bóng đá quốc gia A có 20 đội đá vòng tròn bạn tính giùm xem bao nhiêu trận, giờ thì đổi thành 21 đội thì bạn tính lại xem số trận đổi ra sao?)
-1 đề cương đáp án trả lời đầy đủ. Nếu đáp án theo quy luật nào thì cũng giải thích cụ thể. Có thể nên có 1 sheet đáp án rồi tra như từ điển sẽ rất gọn.
-Một file giả lập càng sát thực tế càng tốt

​

Nếu sử lý được phần thiếu thì mình nghĩ bạn sẽ có những kết quả thoả đáng

 

[Toanvd]

Đáp án của các điều kiện

Bác Sealand nói đúng. Thành thật xin lỗi Bác ndu96081631,Sealand. Đã làm mất thời gian của các Bác. Cũng do là E không hiểu hết cho nên cứ loay hoay mãi. E gửi file kết quả giả lập, có gì thiếu hoặc không đúng E lại bổ sung. Mong các Bác hết sức giúp đỡ.

 

[sealand]

Bạn thử file sau xem ra sao?

 

[vodoi2x]

Bạn thử file sau xem ra sao?

Đọc sơ qua, nhưng kiểu này, thì Bác sealand chuẩn bị làm lại

Gửi người hỏi: Như Ndu nói, bạn cứ mạnh dạn đưa file giả lập chuẩn của bạn - có thể chỉ là dữ liệu (nếu có nhiều ký tự thì phải đưa giả lập giống - vì như nó là 1 cụm từ -- giờ lại viết là X, Y, A, B,... thì sao ai giúp được)

File bạn có 100 dòng Dữ liệu thì bạn cũng nên giả lập hết các dòng tổng quát và trường hợp riêng rõ ràng,

- tôi nghĩ bài của bản chưa chắc đã cần check book

-> Kiểu này như tra từ điển thôi - ứng với lệnh tổ hợp này thì có trong mẫu trước thế thôi, đơn giản -- vì check box lại mất công bấm nữa mà 100 cái thì bấm kiểu gì cho khỏi nhầm (nếu bấm đến tổ hợp hơn 70 cái chẳng hạn, hơn nữa dù có bấm ít thì cũng dò trong 100 càng khổ ví như bấm cái 1 kéo mãi đến 75 bấm cái 2, 98 bấm cái 3 thế thà gõ luôn ký tự đại diện còn hơn

 

[ndu96081631]

Bác Sealand nói đúng. Thành thật xin lỗi Bác ndu96081631,Sealand. Đã làm mất thời gian của các Bác. Cũng do là E không hiểu hết cho nên cứ loay hoay mãi. E gửi file kết quả giả lập, có gì thiếu hoặc không đúng E lại bổ sung. Mong các Bác hết sức giúp đỡ.

Gửi bạn giải pháp của tôi:

Sub GetCboxValue()
  Dim ArrA(), ArrB(), cbx As CheckBox
  Dim na As Long, nb As Long
  On Error Resume Next
  ReDim ArrA(0): ReDim ArrB(0)
  ArrA(0) = "X": ArrB(0) = "Y"
  For Each cbx In Sheet2.CheckBoxes
    Select Case cbx.ShapeRange.AlternativeText
      Case "A"
        If cbx.Value = 1 Then
          na = na + 1
          ReDim Preserve ArrA(na)
          ArrA(na) = cbx.Caption
        End If
      Case "B"
        If cbx.Value = 1 Then
          nb = nb + 1
          ReDim Preserve ArrB(nb)
          ArrB(nb) = cbx.Caption
        End If
    End Select
  Next
  Sheet2.Range("B2") = Join(ArrA, "+") & "," & Join(ArrB, "+") & ";"
End Sub

Sub UnCheck()
  Dim cbx As CheckBox
  For Each cbx In Sheet2.CheckBoxes
    cbx.Value = -4146
  Next
  Sheet2.Range("B2").Value = "X,Y;"
End Sub

1> Để phân nhóm A và B, chỉ cần click phải chuột vào CheckBox, chọn Format Control.. chuyển sang tab Web rồi gõ tên nhóm vào
2> Giá trị của CheckBox (C, D, E... đến XX, YY) được gõ trực tiếp vào CheckBox
3> Để CheckBox hoạt động khi check hoặc UnCheck, click phải chuột vào CheckBox, chọn Assign Macro, chọn GetCboxValue rồi bấm OK



Sau này có thêm CheckBox, chỉ cần làm 3 bước trên cho CheckBox mới thêm vào là được rồi

 

[sealand]

Đọc sơ qua, nhưng kiểu này, thì Bác sealand chuẩn bị làm lại...

Bạn nói rõ hơn được không, vì mình cũng không dám chắc hiểu đúng ý người hỏi.

 

[Toanvd]

Cám ơn hai Bác ndu96081631,Sealand E đã dùng thử File đều giúp E giảm bớt khó khăn trong công việc. E nhờ bác ndu96081631 bổ sung thêm phần copy kết quả đưa ra.

 

[ndu96081631]

E nhờ bác ndu96081631 bổ sung thêm phần copy kết quả đưa ra.

Là sao? Tôi không hiểu bạn nói gì cả!

 

[sealand]

Là sao? Tôi không hiểu bạn nói gì cả!

Bạn ấy muốn đưa kết quả vào clipboard để khi sang ứng dụng khác chỉ việc paste vào thôi. Nó là cái đoạn này thêm vào cuối mỗi Code của Ndu:

'...............................
Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText Sheet2.[B2]
MyData.PutInClipboard
'................................