ማውጫ
ትልቅ ማሳያ አለህ፣ ነገር ግን አብረው የሚሰሩት ጠረጴዛዎች የበለጠ ትልቅ ናቸው። እና, አስፈላጊውን መረጃ በመፈለግ ማያ ገጹን በመመልከት, ዓይኖችዎን ወደ ቀጣዩ መስመር "ለማንሸራተት" እና ወደ የተሳሳተ አቅጣጫ ለመመልከት ሁልጊዜ እድሉ አለ. እኔ እንኳን ለእንደዚህ አይነት አጋጣሚዎች የእንጨት ገዢን ሁልጊዜ በተቆጣጣሪው ላይ ካለው መስመር ጋር ለማያያዝ የሚይዙትን ሰዎች አውቃለሁ። የወደፊቱ ቴክኖሎጂዎች!
እና አሁን ያለው ረድፍ እና አምድ የደመቁ ከሆነ ገባሪው ሕዋስ በሉሁ ላይ ሲንቀሳቀስ? እንደዚህ ያለ የማስተባበር ምርጫ ዓይነት:
ከገዥ ይሻላል አይደል?
ይህንን ተግባራዊ ለማድረግ የተለያዩ ውስብስብነት መንገዶች አሉ. እያንዳንዱ ዘዴ ጥቅምና ጉዳት አለው. እስቲ በዝርዝር እንያቸው።
ዘዴ 1. ግልጽ. የአሁኑን ረድፍ እና አምድ የሚያደምቅ ማክሮ
ችግራችንን "በግንባሩ ላይ" ለመፍታት በጣም ግልፅ የሆነው መንገድ - በሉህ ላይ ያለውን ለውጥ የሚከታተል እና ሙሉውን ረድፍ እና አምድ ለአሁኑ ሕዋስ የሚመርጥ ማክሮ ያስፈልገናል. እንዲሁም አስፈላጊ ከሆነ ይህንን ተግባር ማንቃት እና ማሰናከል መቻል በጣም ጥሩ ነው, ስለዚህም እንዲህ ዓይነቱ የመስቀል ቅርጽ ያለው ምርጫ እንዳንገባ አይከለክልንም, ለምሳሌ ቀመሮች, ነገር ግን አስፈላጊውን ፍለጋ ዝርዝሩን ስንመለከት ብቻ ይሰራል. መረጃ. ይህ ወደ ሉህ ሞጁል መጨመር ወደሚያስፈልጋቸው ሶስት ማክሮዎች (ምረጥ፣ ማንቃት እና ማሰናከል) ያመጣናል።
እንደዚህ አይነት የማስተባበር ምርጫን ለማግኘት የሚፈልጉትን ሉህ ከጠረጴዛ ጋር ይክፈቱ። በሉህ ትር ላይ በቀኝ ጠቅ ያድርጉ እና ከአውድ ምናሌው ውስጥ ትዕዛዙን ይምረጡ ምንጭ ጽሑፍ (ምንጭ ኮድ).Visual Basic Editor መስኮት መከፈት አለበት። የእነዚህን ሶስት ማክሮዎች ጽሁፍ ወደ እሱ ይቅዱ፡-
Dim Coord_Selection As Boolean 'አለምአቀፍ ተለዋዋጭ ለማብራት/ ለማጥፋት ንዑስ ምርጫ_በር() 'በምርጫ ማክሮ ላይ Coord_Slection = True End Sub Selection_Off() 'Macro Off Selection Coord_Slection = የውሸት መጨረሻ ንዑስ 'ምርጫ የግል ንዑስ ሉህ_ምርጫ ዒላማ(በመምረጥ) የሚያከናውን ዋና ሂደት ክልል) Dim WorkRange As Range If Target.Cells.Count > 1 ከዚያ ውጣ Sub 'ከ1 ሴል ከተመረጠ፣ Coord_Slection = False ከሆነ ውጣ ከዚያ ውጣ ንዑስ 'ምርጫው ከጠፋ፣ ከመተግበሪያ ውጣ።ScreenUpdating = False Set WorkRange = Range ("A6: N300") 'ምርጫው የሚታይበት የስራ ክልል አድራሻ የሥራውን ክልል አድራሻ ወደ እራስዎ ይለውጡ - ምርጫችን የሚሠራው በዚህ ክልል ውስጥ ነው። ከዚያ Visual Basic Editor ን ይዝጉ እና ወደ ኤክሴል ይመለሱ።
የቁልፍ ሰሌዳ አቋራጩን ይጫኑ ALT + F8የሚገኙትን ማክሮዎች ዝርዝር የያዘ መስኮት ለመክፈት. ማክሮ ምርጫ_በርቷል።, እርስዎ እንደሚገምቱት, በአሁኑ ሉህ ላይ ያለውን የማስተባበር ምርጫ እና ማክሮን ያካትታል ምርጫ_ጠፍቷል። - ያጠፋል. በተመሳሳይ መስኮት, አዝራሩን ጠቅ በማድረግ ግቤቶች (አማራጮች) በቀላሉ ለመጀመር የቁልፍ ሰሌዳ አቋራጮችን ለእነዚህ ማክሮዎች መመደብ ይችላሉ።
የዚህ ዘዴ ጥቅሞች:
- የመተግበር አንጻራዊ ቀላልነት
- ምርጫ - ክዋኔው ምንም ጉዳት የሌለው እና የሉህ ሴሎችን ይዘት ወይም ቅርጸት አይለውጥም, ሁሉም ነገር እንዳለ ይቆያል.
የዚህ ዘዴ ጉዳቶች-
- በሉህ ላይ የተዋሃዱ ህዋሶች ካሉ እንደዚህ አይነት ምርጫ በትክክል አይሰራም - በህብረቱ ውስጥ የተካተቱት ሁሉም ረድፎች እና አምዶች በአንድ ጊዜ ይመረጣሉ.
- በድንገት የ Delete ቁልፉን ከተጫኑ የነቃው ሕዋስ ብቻ ሳይሆን የተመረጠው ቦታ ሁሉ ማለትም ከመላው ረድፍ እና አምድ ላይ መረጃን ይሰርዙ.
ዘዴ 2. ኦሪጅናል. CELL + ሁኔታዊ የቅርጸት ተግባር
ይህ ዘዴ, ምንም እንኳን ሁለት ድክመቶች ቢኖሩትም, ለእኔ በጣም የሚያምር ይመስላል. አብሮገነብ የኤክሴል መሳሪያዎችን ብቻ በመጠቀም አንድን ነገር ለመተግበር በVBA ውስጥ በትንሹ ወደ ፕሮግራሚንግ መግባት ኤሮባቲክስ ነው 😉
ዘዴው የተመሰረተው የCELL ተግባርን በመጠቀም ሲሆን ይህም በአንድ ሕዋስ ላይ ብዙ የተለያዩ መረጃዎችን ሊሰጥ ይችላል - ቁመት ፣ ስፋት ፣ የረድፍ-አምድ ቁጥር ፣ የቁጥር ቅርጸት ፣ ወዘተ. ይህ ተግባር ሁለት ግቤቶች አሉት።
- እንደ “አምድ” ወይም “ረድፍ” ያለ ለመለያው የሚሆን የኮድ ቃል
- የዚህን ግቤት ዋጋ ለመወሰን የምንፈልገው የሕዋስ አድራሻ
ዘዴው ሁለተኛው መከራከሪያ አማራጭ ነው. ካልተገለጸ, አሁን ያለው ንቁ ሕዋስ ይወሰዳል.
የዚህ ዘዴ ሁለተኛው አካል ሁኔታዊ ቅርጸት ነው. ይህ እጅግ በጣም ጠቃሚ የ Excel ባህሪ ህዋሶች የተወሰኑ ሁኔታዎችን ካሟሉ በራስ-ሰር እንዲቀርጹ ያስችልዎታል። እነዚህን ሁለት ሃሳቦች ወደ አንድ ካጣመርን ፣የእኛን የማስተባበር ምርጫ በሁኔታዊ ቅርጸት ለመተግበር የሚከተለውን ስልተ ቀመር እናገኛለን።
- የኛን ጠረጴዛ እንመርጣለን ፣ ማለትም ፣ የማስተባበሪያ ምርጫው ወደፊት መታየት ያለበትን ሴሎች።
- በ Excel 2003 እና ከዚያ በላይ, ምናሌውን ይክፈቱ ቅርጸት - ሁኔታዊ ቅርጸት - ቀመር (ቅርጸት - ሁኔታዊ ቅርጸት - ቀመር). በ Excel 2007 እና አዲስ - ትሩ ላይ ጠቅ ያድርጉ መግቢያ ገፅ (ቤት)ቁልፍ ሁኔታዊ ቅርጸት - ደንብ ይፍጠሩ (ሁኔታዊ ቅርጸት - ደንብ ይፍጠሩ) እና የደንቡን አይነት ይምረጡ የትኛዎቹን ህዋሶች ለመቅረጽ ቀመርን ተጠቀም (ቀመር ተጠቀም)
- ለአስተባባሪ ምርጫችን ቀመር ያስገቡ፡-
= ወይም (ሲኤል ("ረድፍ")=ROW(A2)፣CELL("አምድ")=አምድ(A2))
=OR(CELL(«ረድፍ»)=ROW(A1)፣CELL(«አምድ»)=አምድ(A1))
ይህ ፎርሙላ በሰንጠረዡ ውስጥ ያለው የእያንዳንዱ ሕዋስ አምድ ቁጥር አሁን ካለው የሴል አምድ ቁጥር ጋር አንድ አይነት መሆኑን ለማረጋገጥ ይፈትሻል። በተመሳሳይም ከአምዶች ጋር. ስለዚህ፣ አሁን ካለው ሕዋስ ጋር የሚዛመድ የአምድ ቁጥር ወይም የረድፍ ቁጥር ያላቸው ህዋሶች ብቻ ይሞላሉ። እና ይህ ልናሳካው የምንፈልገው የመስቀል ቅርጽ ያለው የማስተባበሪያ ምርጫ ነው።
- ጋዜጦች መዋቅር (ቅርጸት) እና የመሙያውን ቀለም ያዘጋጁ.
ሁሉም ነገር ዝግጁ ነው ፣ ግን አንድ ልዩነት አለ። እውነታው ግን ኤክሴል በምርጫው ላይ ለውጥን በሉሁ ላይ ባለው መረጃ ላይ ለውጥ አድርጎ አይመለከተውም. እናም፣ በውጤቱም፣ ቀመሮችን እንደገና ማስላት እና ሁኔታዊ ቅርጸቶችን ቀለም መቀየር የነቃው ሕዋስ ቦታ ሲቀየር ብቻ አያስነሳም። ስለዚህ, ይህን የሚያደርገው ቀላል ማክሮ ወደ ሉህ ሞጁል እንጨምር. በሉህ ትር ላይ በቀኝ ጠቅ ያድርጉ እና ከአውድ ምናሌው ውስጥ ትዕዛዙን ይምረጡ ምንጭ ጽሑፍ (ምንጭ ኮድ).Visual Basic Editor መስኮት መከፈት አለበት። የዚህን ቀላል ማክሮ ጽሁፍ ወደ እሱ ይቅዱ፡-
የግል ንዑስ ሉህ_ምርጫ ለውጥ(በቫል ዒላማ እንደ ክልል) ንቁ ሕዋስ። የመጨረሻ ንዑስን አስላ።
አሁን, ምርጫው ሲቀየር, ከተግባሩ ጋር ያለውን ቀመር እንደገና የማስላት ሂደት ይጀምራል ሴል በሁኔታዊ ቅርጸት እና የአሁኑን ረድፍ እና አምድ ጎርፍ.
የዚህ ዘዴ ጥቅሞች:
- ሁኔታዊ ቅርጸት ብጁ የሰንጠረዥን ቅርጸት አያፈርስም።
- ይህ የመምረጫ አማራጭ ከተዋሃዱ ሴሎች ጋር በትክክል ይሰራል.
- በአጋጣሚ ጠቅ በማድረግ ሙሉውን ረድፍ እና የውሂብ አምድ የመሰረዝ አደጋ የለም። ሰርዝ.
- ማክሮዎች በትንሹ ጥቅም ላይ ይውላሉ
የዚህ ዘዴ ጉዳቶች-
- ለሁኔታዊ ቅርጸት ቀመር በእጅ መግባት አለበት.
- እንዲህ ዓይነቱን ቅርጸት ለማንቃት / ለማሰናከል ምንም ፈጣን መንገድ የለም - ደንቡ እስኪሰረዝ ድረስ ሁል ጊዜ ነቅቷል.
ዘዴ 3. ምርጥ. ሁኔታዊ ቅርጸት + ማክሮዎች
ወርቃማ አማካኝ. ከዘዴ-1 ማክሮዎችን በመጠቀም በሉሁ ላይ ያለውን ምርጫ ለመከታተል ዘዴውን እንጠቀማለን እና ሁኔታዊ ቅርጸትን ከ ዘዴ-2 በመጠቀም ደህንነቱ የተጠበቀ ማድመቅ እንጨምራለን ።
እንደዚህ አይነት የማስተባበር ምርጫን ለማግኘት የሚፈልጉትን ሉህ ከጠረጴዛ ጋር ይክፈቱ። በሉህ ትር ላይ በቀኝ ጠቅ ያድርጉ እና ከአውድ ምናሌው ውስጥ ትዕዛዙን ይምረጡ ምንጭ ጽሑፍ (ምንጭ ኮድ).Visual Basic Editor መስኮት መከፈት አለበት። የእነዚህን ሶስት ማክሮዎች ጽሁፍ ወደ እሱ ይቅዱ፡-
ዲም ኮርድ_ምርጫ እንደ ቡሊያን ንዑስ ምርጫ_በርቷል() ኮርድ_ምርጫ = እውነተኛ መጨረሻ ንዑስ ምርጫ_ጠፍቷል() Coord_slection = የውሸት መጨረሻ ንዑስ የግል ንዑስ ሉህ_ምርጫ ለውጥ(በVal ኢላማ እንደ ክልል) Dim WorkRange እንደ ክልል፣ CrossRange As Range Set Work Range(7) =N 'адрес рабочего диапазона с таблицей ዒላማ ከሆነ.ቁጥር > 300 ከዚያ ውጣ ንዑስ ከሆነ Coord_slection = ውሸት ከዚያም የስራ ክልል.FormatConditions.ማመልከቻ ከሆነ የመውጫ ንዑስ መጨረሻ ሰርዝ.ScreenUpdating =ከዚያም ካልተጠላለፈ (ታርጌት) ምንም አይሰራም, ምንም አይሰራም. የስራ ክልል፣ ዩኒየን(ታርጌት.EntireRow፣ Target.EntireColumn)) WorkRange.FormatConditions.Delete CrossRange.FormatConditions.አክል አይነት፡=xlExpression, Formula1:="=1" CrossRange.FormatConditions(1).Interior.ColorIndex = 1 Conditions Format. .ፍጻሜ ከሆነ ሰርዝ ንዑስ
የስራ ክልል አድራሻን ወደ ጠረጴዛ አድራሻዎ መቀየርን አይርሱ። ቪዥዋል ቤዚክ አርታዒን ይዝጉ እና ወደ ኤክሴል ይመለሱ። የተጨመሩትን ማክሮዎች ለመጠቀም የቁልፍ ሰሌዳ አቋራጩን ይጫኑ ALT + F8 እና እንደ ዘዴ 1 በተመሳሳይ መንገድ ይቀጥሉ.
ዘዴ 4. ቆንጆ. የCellPointer ተጨማሪን ተከተል
ከኔዘርላንድ የመጣው የኤክሴል ኤምቪፒ Jan Karel Pieterse በድረ-ገፁ ላይ ተጨማሪ ተጨማሪ ይሰጣል የሴል ፖይንተርን ተከተል(36Kb) የአሁኑን ረድፍ እና አምድ ለማድመቅ ማክሮዎችን በመጠቀም ግራፊክ ቀስት መስመሮችን በመሳል ተመሳሳይ ችግር ይፈታል፡
ጥሩ መፍትሄ። በቦታዎች ላይ ያለ እንከን የለሽ አይደለም፣ ግን በእርግጠኝነት መሞከር ተገቢ ነው። ማህደሩን ያውርዱ፣ ወደ ዲስክ ይክፈቱት እና ተጨማሪውን ይጫኑ፡-
- በ Excel 2003 እና ከዚያ በላይ - በምናሌው በኩል አገልግሎት - ተጨማሪዎች - አጠቃላይ እይታ (መሳሪያዎች - ተጨማሪዎች - አስስ)
- በ Excel 2007 እና በኋላ ፣ በ ፋይል - አማራጮች - ተጨማሪዎች - ይሂዱ - አስስ (ፋይል - የ Excel አማራጮች - ተጨማሪዎች - ሂድ - አስስ)
- ማክሮዎች ምንድን ናቸው፣ በ Visual Basic ውስጥ የማክሮ ኮድ የት እንደሚያስገባ