Excel-VBA : Skip subroutine if cell is empty -
ठीक है, इसलिए मेरे पास 10 कॉलम हैं, "A" - "J" लेबल।
प्रत्येक पंक्ति इन स्तंभों का कुछ संयोजन स्ट्रिंग मानों के साथ भरेगा।
मुझे कुछ सशर्त बयान चलाने की जरूरत है और मैं सोच रहा हूं कि क्या उन सभी को बिना आसानी से पाशन किए बिना उन्हें करने का एक और अधिक कुशल तरीका है। / p>
मेरे पास अब क्या है:
ifempty ("ए 1") तो फिर अगर isempty ("B1") तो दूसरा शीट 2! "बी 1" = "ए 1 और बी 1" अंत यदि अगर इस्मार्थी ("सी 1") तो और शीट 2! "ए 1" = "ए 1 और सी 1" अंत अगर [... आदि] अंत अगर यदि इम्प्टीमी ("बी 1") तो फिर अगर कमेटी ("सी 1") और दूसरी शीट 2! "बी 1" = "बी 1 और सी 1" अंत अगर अगर isempty ("डी 1") तो और शीट 2! "सी 1" = "सी 1 और डी 1" अंत अगर [... आदि] अंत अगर < p> यह लंबे, बोझिल, और बहुत सुंदर नहीं है इसके अलावा, यह एक लंबा समय लेता है क्योंकि हमारे पास कुछ सौ रिकॉर्ड (पंक्तियाँ) हैं, जिनके माध्यम से जाना है। एक्स पंक्ति को देखने का एक तेज़ तरीका है, ए, बी, सी, ई और जे में कुछ चीजें हैं, और उस पर आधारित सामान करते हैं। यदि ए, सी, और amp; जम्मू भरे हैं यह करो .. अगर बी खाली है तो ऐसा करें ... अगर सी या डी भरा हुआ है, तो यह दूसरी बात करें।
मुझे पूरा यकीन नहीं है कि किस कक्ष में जांच की जानी चाहिए लेकिन शायद यह आपको शुरू कर देगी।
मंद के रूप में लंबे समय तक, कोशिकाओं के साथ लंबे समय तक (1, 1) .CurrentRegion lr = .Rows.Count आर.वी. के लिए = 1 एलआर अगर आवेदन। रेंज ("ए" और आर.वी. एंड ", सी" और आरडब्ल्यू एंड ", जे" और आरडब्ल्यू)) = 3 तो 'अगर ए, सी, और जे भरे जाते हैं तो यह करो .. अन्यथा आईईएप्टी (श्रेणी) ("बी" और आरडब्ल्यू)) तो 'यदि बी खाली है तो ऐसा करें ... एल्स इफ सीबीूल (एप्लिकेशन.काउंटए (रेंज ("सी" और आरडब्ल्यू और ", डी" और आरडब्ल्यू))) तब' यदि सी या डी पूर्ण है, यह दूसरी बात करें अंत यदि आर.वी. एंड के साथ समाप्त होता है
Comments
Post a Comment