Khi sử dụng công cụ Chọn theo thuộc tính, có thể sử dụng các toán tử truy vấn như IN, LIKE, OR và NOT để xác định loại lựa chọn cho nhiều giá trị. Tham khảo ArcMap. Tham chiếu SQL cho các biểu thức truy vấn được sử dụng trong ArcGIS để biết thêm thông tin về các loại toán tử truy vấn
Thủ tục
Quy trình làm việc sau đây sử dụng toán tử truy vấn IN để chọn nhiều giá trị. Quy trình công việc này cũng có thể áp dụng cho các toán tử truy vấn khác, LIKE, OR và NOT
- Trong ArcMap, mở bảng thuộc tính của lớp
- Nhấp vào nút Tùy chọn bảng > Chọn theo thuộc tính.
- Bấm đúp vào trường chứa các giá trị mong muốn
- Thêm khoảng trắng sau tên trường và nhập IN
- Chọn biểu tượng dấu ngoặc đơn
- Trong ngoặc đơn, chọn hoặc nhập các giá trị mong muốn. Tách từng giá trị bằng dấu phẩy
Note: If it is a text field, apply single quotes around each value.
Sau đây là ví dụ về truy vấn.
IN [, ]
Note: This method can also be used to select numeric and string values.
Thông tin liên quan
Xuất bản lần cuối. 1/6/2021
ID bài viết. 000009011
Phần mềm. ArcGIS-ArcEditor 9. 3. 1, 9. 3, 9. 2, 9. 1, 9. 0 ArcGIS-ArcInfo 9. 3. 1, 9. 3, 9. 2, 9. 1, 9. 0 ArcGIS-ArcView 9. 3. 1, 9. 3, 9. 2, 9. 1, 9. 0
Trên thực tế, tôi đã tìm thấy cách tốt nhất, ngắn gọn nhất, nhanh nhất và tương thích nhất bằng cách sử dụng JavaScript thuần túy [giả sử bạn không cần hỗ trợ đầy đủ IE lte 8] như sau
var values = Array.prototype.slice.call[document.querySelectorAll['#select-meal-type option:checked'],0].map[function[v,i,a] {
return v.value;
}];
CẬP NHẬT [2017-02-14]
Một cách thậm chí còn ngắn gọn hơn khi sử dụng ES6/ES2015 [dành cho các trình duyệt hỗ trợ nó]
const selected = document.querySelectorAll['#select-meal-type option:checked'];
const values = Array.from[selected].map[el => el.value];
Theo mặc định, bạn chỉ có thể chọn một mục trong danh sách thả xuống xác thực dữ liệu trong Excel. Làm cách nào bạn có thể thực hiện nhiều lựa chọn trong danh sách thả xuống như ảnh gif bên dưới?
Thêm hướng dẫn cho danh sách thả xuống
Tạo danh sách thả xuống với nhiều lựa chọn bằng mã VBA
Phần này cung cấp hai mã VBA để giúp bạn thực hiện nhiều lựa chọn trong danh sách thả xuống trong trang tính. Hai mã VBA có thể đạt được
mã VBA 1. Cho phép nhiều lựa chọn trong danh sách thả xuống mà không trùng lặp
mã VBA 2. Cho phép nhiều lựa chọn trong danh sách thả xuống mà không trùng lặp [xóa các mục hiện có bằng cách chọn lại]
Bạn có thể áp dụng một trong các mã VBA sau để thực hiện nhiều lựa chọn trong danh sách thả xuống trong trang tính trong Excel. Vui lòng làm như sau
1. Mở trang tính chứa danh sách thả xuống xác thực dữ liệu mà bạn muốn thực hiện nhiều lựa chọn từ đó. Nhấp chuột phải vào tab trang tính và chọn Xem mã từ menu ngữ cảnh
2. Trong cửa sổ Microsoft Visual Basic for Applications, sao chép mã VBA bên dưới vào cửa sổ mã. Xem ảnh chụp màn hình
mã VBA 1. Cho phép nhiều lựa chọn trong danh sách thả xuống mà không trùng lặp
Private Sub Worksheet_Change[ByVal Target As Range]
'Updated by Extendoffice 2019/11/13
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells[xlCellTypeAllValidation]
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not Application.Intersect[Target, xRng] Is Nothing Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 "" Then
If xValue2 "" Then
If xValue1 = xValue2 Or _
InStr[1, xValue1, ", " & xValue2] Or _
InStr[1, xValue1, xValue2 & ","] Then
Target.Value = xValue1
Else
Target.Value = xValue1 & ", " & xValue2
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
3. Nhấn tổ hợp phím Alt + Q để đóng cửa sổ Microsoft Visual Basic for Applications
Bây giờ bạn có thể chọn nhiều mục từ danh sách thả xuống trong trang tính hiện tại
Giả sử bạn vô tình chọn một mục và cần xóa mục đó mà không xóa toàn bộ ô và bắt đầu lại. Mã VBA 2 sau đây có thể giúp bạn
mã VBA 2. Cho phép nhiều lựa chọn trong danh sách thả xuống mà không trùng lặp [xóa các mục hiện có bằng cách chọn lại]
Private Sub Worksheet_Change[ByVal Target As Range]
'Updated by Extendoffice 2019/11/13
'Updated by Ken Gardner 2022/07/11
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
Dim semiColonCnt As Integer
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells[xlCellTypeAllValidation]
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
'If Not Application.Intersect[Target, xRng] Is Nothing Then
If Application.Intersect[Target, xRng] Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 "" Then
If xValue2 "" Then
If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
xValue1 = Replace[xValue1, "; ", ""]
xValue1 = Replace[xValue1, ";", ""]
Target.Value = xValue1
ElseIf InStr[1, xValue1, "; " & xValue2] Then
xValue1 = Replace[xValue1, xValue2, ""] ' removes existing value from the list on repeat selection
Target.Value = xValue1
ElseIf InStr[1, xValue1, xValue2 & ";"] Then
xValue1 = Replace[xValue1, xValue2, ""]
Target.Value = xValue1
Else
Target.Value = xValue1 & "; " & xValue2
End If
Target.Value = Replace[Target.Value, ";;", ";"]
Target.Value = Replace[Target.Value, "; ;", ";"]
If InStr[1, Target.Value, "; "] = 1 Then ' check for ; as first character and remove it
Target.Value = Replace[Target.Value, "; ", "", 1, 1]
End If
If InStr[1, Target.Value, ";"] = 1 Then
Target.Value = Replace[Target.Value, ";", "", 1, 1]
End If
semiColonCnt = 0
For i = 1 To Len[Target.Value]
If InStr[i, Target.Value, ";"] Then
semiColonCnt = semiColonCnt + 1
End If
Next i
If semiColonCnt = 1 Then ' remove ; if last character
Target.Value = Replace[Target.Value, "; ", ""]
Target.Value = Replace[Target.Value, ";", ""]
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
ghi chú
1]. Giá trị trùng lặp không cho phép trong danh sách thả xuống
2]. Mã VBA 2 ở trên được cung cấp bởi người dùng nhiệt tình Ken Gardner của chúng tôi vào ngày 11/07/2022
3]. Vui lòng lưu sổ làm việc dưới dạng Sổ làm việc hỗ trợ macro Excel để giữ cho mã hoạt động trong tương lai
4]. Sau khi thêm mã VBA 2, bạn có thể xóa một mục hiện có bằng cách chọn lại mục đó trong danh sách thả xuống. Xem gif bên dưới
Dễ dàng tạo danh sách thả xuống với nhiều lựa chọn bằng một công cụ tuyệt vời
Ở đây, chúng tôi thực sự khuyên bạn nên sử dụng tính năng Danh sách thả xuống nhiều lựa chọn của Kutools cho Excel. Với tính năng này, bạn có thể dễ dàng chọn nhiều mục từ danh sách thả xuống trong một phạm vi được chỉ định, trang tính hiện tại, sổ làm việc hiện tại hoặc tất cả các sổ làm việc đã mở khi bạn cần
Trước khi áp dụng Kutools cho Excel, vui lòng tải xuống và cài đặt nó trước
1. Nhấp vào Kutools > Danh sách thả xuống > Danh sách thả xuống nhiều lựa chọn > Cài đặt. Xem ảnh chụp màn hình
2. Trong hộp thoại Cài đặt danh sách thả xuống nhiều lựa chọn, vui lòng định cấu hình như sau
- 2. 1] Chỉ định phạm vi áp dụng trong phần Áp dụng cho. Trong trường hợp này, tôi chọn Trang tính hiện tại từ danh sách thả xuống Phạm vi xác định;
- 2. 2] Trong phần Hướng văn bản, chọn hướng văn bản dựa trên nhu cầu của bạn;
- 2. 3] Trong hộp Dấu phân cách, hãy nhập dấu phân cách mà bạn sẽ sử dụng để phân tách nhiều giá trị;
- 2. 4] Chọn hộp Không thêm bản sao trong phần Tùy chọn nếu bạn không muốn tạo bản sao trong các ô danh sách thả xuống;
- 2. 5] Nhấp vào nút OK. Xem ảnh chụp màn hình
3. Vui lòng nhấp vào Kutools > Danh sách thả xuống > Danh sách thả xuống nhiều lựa chọn để bật tính năng này
Giờ đây, bạn có thể chọn nhiều mục từ danh sách thả xuống trong trang tính hiện tại hoặc bất kỳ phạm vi nào bạn đã chỉ định ở bước 2
Nếu bạn muốn dùng thử miễn phí [
30
-day] của tiện ích này, bạn hãy nhấn vào đây để tải xuống, sau đó vào áp dụng thao tác theo các bước trênNhững bài viết liên quan
Tự động hoàn thành khi nhập vào danh sách thả xuống Excel
Nếu bạn có danh sách thả xuống xác thực dữ liệu với các giá trị lớn, bạn cần cuộn xuống trong danh sách chỉ để tìm danh sách phù hợp, . Nếu có phương pháp cho phép tự động hoàn thành khi gõ chữ cái đầu tiên trong danh sách thả xuống, mọi thứ sẽ trở nên dễ dàng hơn. Hướng dẫn này cung cấp phương pháp để giải quyết vấn đề.
Tạo danh sách thả xuống từ sổ làm việc khác trong Excel
Việc tạo danh sách thả xuống xác thực dữ liệu giữa các trang tính trong sổ làm việc khá dễ dàng. Nhưng nếu dữ liệu danh sách bạn cần để xác thực dữ liệu nằm trong sổ làm việc khác, bạn sẽ làm gì? .
Tạo danh sách thả xuống có thể tìm kiếm trong Excel
Đối với danh sách thả xuống có nhiều giá trị, việc tìm kiếm một danh sách phù hợp không phải là công việc dễ dàng. Trước đây chúng tôi đã giới thiệu phương pháp tự động hoàn thành danh sách thả xuống khi nhập chữ cái đầu tiên vào hộp thả xuống. Bên cạnh chức năng tự động điền, bạn cũng có thể làm cho danh sách thả xuống có thể tìm kiếm được để nâng cao hiệu quả làm việc trong việc tìm kiếm các giá trị phù hợp trong danh sách thả xuống. Để làm cho danh sách thả xuống có thể tìm kiếm được, hãy thử phương pháp trong hướng dẫn này.
Tự động điền các ô khác khi chọn giá trị trong danh sách thả xuống của Excel
Giả sử bạn đã tạo danh sách thả xuống dựa trên các giá trị trong phạm vi ô B8. B14. Khi bạn chọn bất kỳ giá trị nào trong danh sách thả xuống, bạn muốn các giá trị tương ứng trong phạm vi ô C8. C14 được tự động điền vào một ô đã chọn. Để giải quyết vấn đề, các phương pháp trong hướng dẫn này sẽ giúp ích cho bạn.
Các công cụ năng suất văn phòng tốt nhất
Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn
- Tái sử dụng. Chèn nhanh các công thức, biểu đồ phức tạp và bất kỳ thứ gì bạn đã sử dụng trước đây; . Encrypt Cells with password; Create Mailing List and send emails...
- Thanh siêu công thức [dễ dàng chỉnh sửa nhiều dòng văn bản và công thức]; . Reading Layout [easily read and edit large numbers of cells]; Paste to Filtered Range...
- Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
- Chọn hàng trùng lặp hoặc duy nhất ; . Select Blank Rows [all cells are empty]; Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Sao chép chính xác Nhiều ô mà không thay đổi tham chiếu công thức; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Trích xuất văn bản , Thêm văn bản, Xóa theo vị trí, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
- Siêu bộ lọc [lưu và áp dụng lược đồ bộ lọc cho các trang tính khác]; . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Kết hợp Sổ làm việc và Trang tính ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- Hơn 300 tính năng mạnh mẽ . Hỗ trợ Office/Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.
Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.
Tab Office Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều
- Bật chỉnh sửa và đọc theo tab trong Word, Excel, PowerPoint , Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới
- Tăng năng suất của bạn lên 50% và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày
Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.
Cũ nhất đầu tiên
Sắp xếp nhận xét theo
Cũ nhất đầu tiên
mới nhất đầu tiên
Nhận xét [ 52 ]
Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng
Yezdi Eks
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Cảm ơn giải pháp và mã. Nhưng bước tiếp theo là làm thế nào để đảm bảo rằng người dùng không chọn các giá trị "trùng lặp" từ danh sách thả xuống. e. g. Nếu có 4 mục trong danh sách - cam, táo, chuối, đào và nếu người dùng đã chọn "màu cam" thì excel sẽ không cho phép người dùng chọn "màu cam" HOẶC nên xóa tùy chọn đó khỏi phần còn lại của danh sách . Bạn có thể vui lòng xuất bản mã để thực hiện tính năng này không. Cảm ơn. yezdi
Hồi đáp
0
0
ánh nắng mặt trời Yezdi Eks
khoảng 6 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Yezdi, Cảm ơn bạn đã nhận xét. Mã đã được cập nhật và hiện không cho phép giá trị trùng lặp nào trong danh sách thả xuống. Cảm ơn. Ánh sáng mặt trời
Hồi đáp
0
0
MichaelB
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thật tuyệt khi điều này cho phép nhiều lựa chọn nhưng như @Yezdi đã nhận xét, tôi thấy nó sẽ thêm một hoặc một số bản sao ngay cả khi tôi không chọn chúng. Vì vậy, hiện tại, đây là một giải pháp 80%. một tinh chỉnh đi từ hoàn hảo. Tôi không phải là lập trình viên VB hoặc tôi muốn cung cấp giải pháp
Hồi đáp
0
0
Mervyn
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể thay đổi mã trong các dòng sau để tránh trùng lặp. Nếu xValue2 "" thì Nhắm mục tiêu. Giá trị = xValue1 & ", " & xValue2 Kết thúc Nếu Tới. Nếu xValue2 "" Thì Nếu CheckIfAlreadyAdded[xValue1, xValue2] = Sai Thì Nhắm mục tiêu. Giá trị = xValue1 & ", " & xValue2 Mục tiêu khác. Giá trị = xValue1 End If End If Sau đó thêm chức năng sau. Hàm riêng CheckIfAlreadyAdded[ByVal sText As String, sNewValue As String] As Boolean CheckIfAlreadyAdded = False Dim WrdArray[] As String WrdArray[] = Split[sText, ","] For i = LBound[WrdArray] To UBound[WrdArray] If Trim
Hồi đáp
0
0
Mervyn
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mới nhận ra rằng tôi đã không thoát khỏi vòng lặp trong chức năng mới nếu điều kiện đã được đặt nên chúng tôi không phải kiểm tra các mục khác
Hồi đáp
0
0
CynthiaB
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào. Cảm ơn bạn về mã và phần bổ sung để hạn chế trùng lặp. Một yêu cầu nữa - cần phải thực hiện bổ sung/thay đổi gì để cho phép nhiều lựa chọn chỉ trong một hoặc hai cột cụ thể? . Chẳng hạn, cột A là cột 'đơn giản'. Tôi viết một câu "Ba món đồ bạn muốn nhất là gì?" . Cột C là một cột 'danh sách' khác mà người dùng phải có thể chọn nhiều mục [mã này cho phép tôi thực hiện một cách hoàn hảo]. Khi tôi tiếp tục, tôi nhận ra rằng tôi đã đánh máy sai ở cột A và muốn sửa nó. Vì mã này là viết tắt, nếu tôi đi vào [nhấp đúp chuột, F2] và sửa từ "items", tôi sẽ nhận được kết quả này trong ô của mình. "Ba món đồ bạn muốn nhất là gì? Ba món đồ bạn muốn nhất là gì?" . ]
Hồi đáp
0
0
Giá Jennifer L
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã có thể làm cho mã hoạt động, nhưng sau đó khi tôi lưu tài liệu [đã bật macro], đóng tài liệu và quay lại, mã không hoạt động nữa [mặc dù nó vẫn ở đó]. Tôi không thể tìm ra những gì tôi đã làm sai. Bất kỳ ý tưởng?
Hồi đáp
0
0
Mervyn
khoảng 7 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Cynthia, Nếu tác giả ban đầu không trả lời, tôi sẽ trả lời cho bạn nhưng tôi sẽ chỉ ngồi trước máy tính vào ngày 29 tháng 12 một lần nữa. Tôi cũng không phải là lập trình viên VBA. Những gì bạn có thể làm trong lúc này là tìm kiếm trên Google cách xác định số cột và chỉ cho phép mã chạy nếu dữ liệu được chỉnh sửa trong [các] cột cụ thể đó. Tôi đã làm xong nhưng mã nằm trên PC làm việc của tôi và không thể nhớ lại vào lúc này, có thể thử gỡ lỗi. in trên mục tiêu. cột hoặc thứ gì đó vào hiệu ứng đó để xem liệu nó có cung cấp cho bạn số cột đang được chỉnh sửa không. Xin lỗi Jennifer, không chắc chắn về vấn đề bạn đang gặp phải. [
Hồi đáp
0
0
Mervyn
khoảng 6 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
@Cynthia, Nếu vẫn được yêu cầu, bạn có thể làm điều gì đó như thế này để chỉ đảm bảo mã chạy trên các cột cụ thể, trong trường hợp của tôi là cột 34 và 35. Nếu [Mục tiêu. Cột 34 Và Mục tiêu. Cột 35] Then Exit Sub 'Đặt mã này vào đầu sau câu lệnh mờ của bạn
Hồi đáp
0
0
CynthiaB Mervyn
khoảng 6 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote]@Cynthia, Nếu vẫn được yêu cầu, bạn có thể làm điều gì đó như thế này để chỉ đảm bảo mã chạy trên các cột cụ thể, trong trường hợp của tôi là cột 34 và 35. Nếu [Mục tiêu. Cột 34 Và Mục Tiêu. Cột 35] Sau đó Thoát Phụ 'Đặt mã này ở đầu sau câu lệnh mờ của bạnBy Mervyn[/quote] Xin chào @Mervyn, Hoàn toàn mất dấu chuỗi, nhưng cảm ơn bạn rất nhiều vì phản hồi của bạn. Tôi đã thử áp dụng If [Target. Cột 34 Và Mục tiêu. Cột 35] Rồi Thoát Sub [bản mình ghi là If [Target. Cột4 và mục tiêu. Cột5] Sau đó Thoát Sub như bạn đã cung cấp, nhưng tôi nhận được "Lỗi thời gian chạy '438'. Lỗi đối tượng không hỗ trợ thuộc tính hoặc phương thức này"" trên dòng mới này. Đây là một vài dòng mã đầu tiên của tôi. Private Sub Worksheet_Change[ByVal Target As Range] Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If [Target. Cột4 và mục tiêu. Cột5] Rồi Thoát Sub Nếu Đích. Count > 1 Then Exit Sub On Error Resume Next Trang tính của tôi chỉ có 6 cột. Câu hỏi. Câu trả lời. Loại. Danh mục phụ. thẻ. Liên kết ảnh Tôi chỉ cần nhiều giá trị thả xuống trong Danh mục phụ và Thẻ [cột 4 & 5]. Tôi sẽ tiếp tục tìm kiếm thông tin như bạn đã đề xuất vào ngày 23/12 và sẽ xem liên kết mà Tổ chức từ thiện cung cấp
Hồi đáp
0
0
Dhina Mervyn
khoảng 4 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu mục tiêu. Cột 34 Sau đó Thoát Phụ
'Đặt mã này ở đầu sau câu lệnh mờ của bạn
Hồi đáp
0
0
người đứng đầu
khoảng 6 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi hiện đang sử dụng công thức này và tất cả các cột có xác thực dữ liệu đều có tùy chọn nhiều lựa chọn, tuy nhiên tôi muốn giới hạn nhiều lựa chọn chỉ trong một cột. Ai đó có thể chỉnh sửa công thức này cho tôi để nhiều lựa chọn chỉ có thể được áp dụng cho Cột 4 không? . ] Private Sub Worksheet_Change[ByVal Target As Range] 'Đã cập nhật. 2016/4/12 Dim xRng dưới dạng phạm vi Dim xValue1 dưới dạng chuỗi Dim xValue2 dưới dạng chuỗi nếu mục tiêu. Đếm > 1 Sau đó Thoát Phụ Khi Lỗi Tiếp tục Tiếp theo Đặt xRng = Cells. SpecialCells[xlCellTypeAllValidation] Nếu xRng không có gì thì thoát ứng dụng phụ. EnableEvents = Sai Nếu Không Ứng dụng. Intersect[Target, xRng] Is nothing Then xValue2 = Target. Ứng dụng giá trị. Hoàn tác xValue1 = Mục tiêu. Mục tiêu giá trị. Value = xValue2 If xValue1 "" Then If xValue2 "" Then If xValue1 = xValue2 Or _ InStr[1, xValue1, ", " & xValue2] Or _ InStr[1, xValue1, xValue2 & ","] Then Target. Giá trị = xValue1 Mục tiêu khác. Giá trị = xValue1 & ", " & xValue2 Kết thúc Nếu Kết thúc Nếu Kết thúc Nếu Kết thúc Nếu Ứng dụng. EnableEvents = True End Sub Mọi hỗ trợ sẽ được đánh giá cao
Hồi đáp
0
0
Tổ chức từ thiện
khoảng 6 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này hoạt động tốt, nhưng tôi không thể xóa một mục sau khi đã chọn. Bất kỳ đề xuất nào trong trường hợp tôi vô tình nhấp vào thứ gì đó và cần xóa nó mà không [hy vọng] xóa toàn bộ ô và bắt đầu lại? .
Hồi đáp
0
0
Nirmala Tổ chức từ thiện
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote]Điều này hoạt động tốt, nhưng tôi không thể xóa mục sau khi đã chọn. Bất kỳ đề xuất nào trong trường hợp tôi vô tình nhấp vào thứ gì đó và cần xóa nó mà không [hy vọng] xóa toàn bộ ô và bắt đầu lại? . Bằng tổ chức từ thiện[/quote] Mã hoạt động tốt. Tuy nhiên, tôi dường như không thể bỏ chọn một mục. Khi tôi muốn xóa một mục khỏi lựa chọn, nó không bị xóa. Có ai khác cũng gặp vấn đề này không?[/quote] Chào tất cả mọi người, Có giải pháp nào được tìm thấy cho vấn đề này không. hãy chia sẻ
Hồi đáp
0
0
ramon
khoảng 6 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Mã hoạt động tốt. Tuy nhiên, tôi dường như không thể bỏ chọn một mục. Khi tôi muốn xóa một mục khỏi lựa chọn, nó không bị xóa. Có ai khác cũng gặp vấn đề này không?
Hồi đáp
0
0
THG Ramon
khoảng 6 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đã có phản hồi về vấn đề này chưa. Đó là cùng một vấn đề tôi đang gặp phải. Có vẻ như không có cách nào để xóa một mục đã được chọn
Hồi đáp
0
0
StPaulSue Ramon
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xóa nội dung trong ô rồi chọn lại
Hồi đáp
0
0
chloe
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào tất cả, tôi có đoạn mã này trên một trang tính excel và nó làm sạch nội dung từ danh sách thả xuống khi ô được chọn - Tôi biết phần nào của mã đang làm việc đó [phần có nội dung 'fillRng. ClearContents'] và tôi đã cố gắng sử dụng một số cách trên để khắc phục nhưng không thành công. Tôi chưa quen với lập trình VBA, v.v. Bất cứ ai cũng có thể cung cấp bất kỳ trợ giúp nào về cách thay đổi nó để nó không bị xóa khi ô được chọn và các mục sẽ không bị trùng lặp không ?? . ListBox Dim LBobj As OLEObject Dim i As Long Set LBobj = Me. OLEObjects["ListBox1"] Đặt Vòng loại = LBobj. Đối tượng nếu mục tiêu. Hàng > 3 và Mục tiêu. Cột = 3 Sau đó Đặt fillRng = Mục tiêu Với LBobj. Còn lại = fillRng. Trái. Trên cùng = fillRng. Hàng đầu. Chiều rộng = fillRng. Chiều rộng. Chiều cao = 155. Hiển thị = True End Với Else LBobj khác. Hiển thị = Sai Nếu không fillRng Không có gì Thì fillRng. ClearContents Với Qualifiers Nếu. ListCount 0 Then For i = 0 To. ListCount - 1 Nếu fillRng. Giá trị = "" Thì Nếu. Đã chọn [i] Sau đó điềnRng. Giá trị =. Danh sách[i] Khác Nếu. Đã chọn [i] Sau đó điềnRng. Giá trị = _ fillRng. Giá trị & ", " &. Danh sách[i] End If Next End If For i = 0 To. ListCount - 1. Selected[i] = False Next End With Set fillRng = Không có gì End If End If End Sub
Hồi đáp
0
0
mong muốn
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào tất cả, tôi có thể thực hiện danh sách thả xuống của mình một cách hoàn hảo, nhưng câu hỏi của tôi là. chẳng hạn, khi tôi chọn tất cả các mục được thêm vào, nó sẽ lần lượt di chuyển theo chiều ngang qua ô. vàng, xanh lá cây, đen, đỏ. Nhưng làm thế nào tôi có thể làm cho nó trông theo chiều dọc?, ví dụ như. Cam đen vàng Đỏ Vì theo chiều ngang ô trở nên khá dài khi chọn nhiều hàng. Bạn có thể vui lòng cho tôi biết nếu có bất kỳ cách nào để làm điều này?. Cảm ơn Desiree
Hồi đáp
0
0
Nancy
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã quản lý để sử dụng mã này và tạo thành công nhiều hộp thả xuống lựa chọn. Nó hoạt động khi tôi đóng và mở lại vào những ngày khác nhau. Tuy nhiên, bây giờ không phải tất cả các ô tôi đã chọn ban đầu đều cho phép nhiều lựa chọn. Chỉ những cái được thực hiện trước đó, mặc dù sử dụng mã cho toàn bộ bảng tính. Bạn có thể giúp?
Hồi đáp
0
0
Lisa Thompson Nancy
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Im có cùng một vấn đề
Hồi đáp
Bài báo cáo
0
0
yesenia Nancy
khoảng 4 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
các ô rất có thể bị khóa, nhấp chuột phải vào tất cả các ô đó, chuyển đến định dạng ô, bảo vệ, sau đó bỏ chọn tùy chọn ô bị khóa
Hồi đáp
0
0
Johnna
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã tạo một danh sách thả xuống trong đó có thể chọn nhiều lựa chọn văn bản, chẳng hạn như "dinh dưỡng", "cân nặng" và "công việc" cho lý do gọi điện của mỗi người gọi. Tôi có một trang tóm tắt nơi tôi muốn xem có bao nhiêu lý do được chỉ ra trong một tháng cụ thể. Tôi sẽ sử dụng công thức nào để yêu cầu Excel rút ra và kiểm đếm riêng từng thứ này trong một tháng nhất định?
Hồi đáp
0
0
pha lê Johnna
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúc một ngày tốt lành,
Rất tiếc không thể giúp bạn giải quyết vấn đề này. Xin vui lòng cho tôi biết nếu bạn tìm thấy câu trả lời.
Hồi đáp
Bài báo cáo
0
0
Randy
khoảng 4 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang cố gắng tạo 4 cột với danh sách thả xuống để tôi có thể chọn nhiều giá trị. Làm cách nào để sửa đổi mã VBA "danh sách thả xuống có nhiều lựa chọn" để khi tôi nhấp vào một giá trị đã được nhập, nó sẽ xóa giá trị đó khỏi ô?
Hồi đáp
0
0
pha lê Randy
khoảng 4 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kính gửi Randy,
Ý của bạn là "khi tôi nhấp vào một giá trị đã được nhập, nó sẽ xóa giá trị đó khỏi ô?"
Hồi đáp
Bài báo cáo
0
0
Dez pha lê
khoảng 4 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có cùng một câu hỏi. Danh sách thả xuống của tôi không nhớ các giá trị đã chọn. Nếu ai đó nhấp vào một ô đã được điền [không phải bởi họ, mà bởi người khác], các giá trị đã chọn sẽ bị xóa và ô lại trống
Hồi đáp
0
0
wendy
khoảng 3 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang sử dụng mã bên dưới để cho phép đa lựa chọn trên nhiều trang tính nhưng khi tôi chuyển đến một trang tính khác trong sổ làm việc, đa lựa chọn sẽ biến mất. Khi tôi lưu tệp và quay lại, nó sẽ hoạt động đối với một tab có mã nhưng một lần nữa khi tôi nhấp vào một tab khác có mã thì nó không hoạt động nữa. Bạn có biết cách khắc phục để nếu tôi nhấp vào một trang tính có mã VBA, nó sẽ luôn cho phép chọn nhiều không?
Hồi đáp
0
0
Eni
khoảng 3 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, ich bin totaler VBA Laie. Ich versuche den Code so zu modifizieren, dass
a] die Mehrfachauswahl nicht in allen, sondern nur ein zwei Spalten aktiv ist
b] ich Items auch wieder rausnehmen kann . ich habe über die Mehrfachauswahl ausgewählt. A, D, X, Y. nữ tu fällt mir auf, dass D nicht dazu gehört. Beim aktuellen Code müsste ich Eingaben entfernen und neu auswählen].
Danke im Voraus.
Hồi đáp
0
0
Okot
khoảng 3 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi không thể tiến hành tạo nhiều lựa chọn trong danh sách thả xuống. Tôi đã nghe hướng dẫn và đọc tài liệu nhưng vẫn không tạo được. Vui lòng ai đó có thể giúp tôi ra ngoài?
Hồi đáp
0
0
Robert Aguirre
khoảng 3 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi biết đây có thể là hoàn toàn ngẫu nhiên, nhưng tôi sử dụng một biến thể của VBA mà không gặp vấn đề gì. Ngoại trừ trên một trang, nếu bạn chọn ba tùy chọn đầu tiên, nó sẽ không cho phép bạn chọn tùy chọn thứ tư. Nó sẽ cho phép bạn chọn tùy chọn thứ 5, thứ 6, v.v., không phải tùy chọn thứ 4. Suy nghĩ?