Vba ተደጋጋሚ ገጸ-ባህሪ - እንዴት እንደሚቀመጥ
በ VBA ውስጥ የሕብረቁምፊ ተግባር ነው?
ዘሕብረቁምፊ ተግባርይሞላል ሀገመድለተጠቀሰው የጊዜ ብዛት ከተጠቀሰው ቁምፊ ጋር።
ይህ ጽሑፍ ስለ VBA ሕብረቁምፊ ተግባራት ነው ፣ እኛ በእውነቱ ጠቃሚ ስለሆኑ በሕብረቁምፊ ተግባራት በጣም ትንሽ እናደርጋለን ፣ እና እኔ ማድረግ የምፈልገው በመጀመሪያ እዚህ ያለውን ኮድ ማለፍ እና መጀመሪያ እሱን ማየት ነው ፣ ይህም እርስዎ ያስተውላሉ እዚህ አንድ ክር አከማች የሚል ተለዋጭ አለኝ የክርክር ተግባሮቻችንን ውጤት ለማከማቸት ሌላ ተለዋዋጭ አሳውቄያለሁ እና እዚህ ሦስተኛ ተለዋዋጭን ከዚህ በታች የምናየውን የቁጥር ሥራችንን ከዚህ በታች የምናየው ነው ፣ ይህ ቀጣዩ መስመር በእውነቱ ህብረቁምፊውን ያከማቻል ማህደረ ትውስታ ፣ እዚህ ከብዙ ፊደሎች እና ቁጥሮች ወዘተ ጋር አንድ የዘፈቀደ ገመድ ነው ፣ ስለሆነም የተቀመጠው እና ቀጣዩ መስመር የእኛ የመጀመሪያ የመጀመሪያ ሕብረቁምፊ ተግባር ነው። የግራ ሥራው በመሠረቱ በእይታ መሰረታዊ ውስጥ ዋጋን እንደሚመልስ ያገኙታል ፣ ሁል ጊዜ አንድ ሰው ስለ አንድ ተግባር ማውራት ነው አንድ እሴት ይመልሳል ብሎ ማሰብ እና ከዚያ በዚያ እሴት አንድ ነገር ማድረግ አለብን ፣ ስለሆነም በዚህ ጉዳይ ውስጥ ያለው እሴት ተለዋዋጭውን በግራ በኩል።
በዚህ ጊዜ ይህ ተግባር ከተግባሩ ስም በኋላ ቅንፎች እንዳሉት ያስተውላሉ ፡፡ አብዛኛዎቹ ተግባራት ሁል ጊዜ ቅንፍ አላቸው ፣ ምንም እንኳን በቅንፍ ውስጥ ምንም ነገር ባይኖርም ፣ ልክ በ Excel ውስጥ ያሉ ተግባራት እና እነዚህ እኛ ባስቀመጥነው ገመድ ውስጥ የምናልፈው እና ከዚያ እንደገና ቁጥር 3 ን የምናስገባቸው ሁለት ክርክሮች ናቸው ፣ ስለዚህ ይህ የግራ ሶስት ቁምፊዎች ይመለሳሉ የሚል መሠረታዊ ቀላል ተግባር ነው። ቀጣዩ አንድ ቁምፊን ብቻ ይመልሳል ፣ የግራ ባህሪው ነው ፣ ስለሆነም ሀን መመለስ አለበት።
ትክክለኛው ተግባር በእርግጥ ተመሳሳይ ነው ፣ ግን በሕብረቁምፊው በቀኝ በኩል ያሉትን ቁምፊዎች ይመልሳል ፣ ስለሆነም አራት ቁምፊዎችን መል back ማግኘት እፈልጋለሁ እንበል ፣ ከዚያ በሕብረቁምፊ ውስጥ የመጨረሻውን ቁምፊ ይስጥህ የሚል ሌላ ምሳሌ ይኸውልዎት በጣም ትክክለኛውን ገጸ-ባህሪይ ያነሳል ሚድ ተግባሩ ትንሽ አስደሳች ነው ሚድ ተግባሩ አንድ ክር ከአንድ ገመድ ላይ እንዲነጠቁ ያደርግዎታል በዚህ ሁኔታ ውስጥ እኛ እንዲሁ አንድ ገጸ-ባህሪን ለመጀመር እና አራት ቁምፊዎችን መመለስ እንፈልጋለን ፡፡ በአንደኛው ደረጃ ዜሮ እንዳልሆን አድርገው አያድርጉ ፣ በሌላ ቋንቋ በመቁጠር vbastart ን በፕሮግራም ካቀረቡ ይህን አያድርጉ የዚህ ቀጣይ ምሳሌ ሁለተኛ ሦስተኛው አራተኛ እና አምስተኛው ገጸ-ባህሪይ አሁን ከመሃል ጋር ካየነው ጋር ተመሳሳይ ነው ፣ ግን እሱ ስንት ቁምፊዎችን እንደሚፈልጉ ትቶታል በመሠረቱ በባህርይ አቀማመጥ ይጀምሩ 12 እና የቀረውን ሕብረቁምፊ ብቻ ስጠኝ በቀኝ በኩል ያለውን የክርን ክፍል መርሳት ጥሩ ነገር ነው ፡፡ ትክክለኛው ተግባር በተወሰነ መልኩ ትንሽ የተለየ ስለሆነ ይህንን ከቀኝ ተግባር ጋር በማወዳደር አንድ ደቂቃ ሊያሳልፉ ይፈልጉ ይሆናል ፣ ከቀኝ በኩል ቁምፊዎችን ይይዛል ፣ የሚቀጥለው አስቂኝ በጣም ቀላል ነው ቀጣዩ አስቂኝ በጣም ብዙ ገጸ ባሕሪዎች እንዳሉ ይነግርዎታል በክር ውስጥ ያለው የሕብረቁምፊ ተግባር በጣም ጠቃሚ ነው በክር ውስጥ ለማየት እና የማጣመጃ ገመድ ለመፈለግ ያስችለናል ፣ ስለዚህ በዚህ ጉዳይ ላይ የመጀመሪያውን 6 ኛ እና የመጀመሪያውን ክርክር ውስጥ የመቀየሪያ መስመሩን እንፈልጋለን ፡፡ የት መጀመር እንዳለበት ይጠቁማል ፡፡ ከተመለከቱ ያንን መለወጥ ይችላሉ ፣ ስለዚህ አቋም 5 ን ማየት መጀመር ይፈልጋሉ እንበል ፣ በእርግጥ a5 ን እዚያ ውስጥ ያስገባሉ እና በእውነቱ በአቀማመጥ 5 ላይ ይጀምራል።
ቀጣዩ በጣም ተመሳሳይ ነገር ያደርጋል ፣ ያንን መፈለግ ብቻ ነው - ቀጣዩ እንዲሁ ለፓውንድ ምልክት ተመሳሳይ ይመስላል። ከዚህ በታች እንደተጠቀሰው ፣ ማጠፊያ ካላገኘ ፣ በእኛ ገመድ ውስጥ ምንም ፓውንድ ምልክት የለም ፣ ዜሮውን ይመልሳል ፡፡ ያስታውሱ ይህ ለማስታወስ ቀላል መሆኑን እና ይህ ሁሉ የመጨረሻው አንድ ሌላ ገመድ እንደፈለግን ያሳያል ፣ በዚህ ጊዜ መጨረሻ ላይ ያለውን ክር እንፈልጋለን አሁን እኔ እነዚህ ነገሮች ምን እንደሚመለሱ ላሳይዎት እፈልጋለሁ ፡፡
እኛ ምን እናደርጋለን ይህ በእውነቱ ሲሄድ እነዚህ ምን እንደሚመለሱ ማየት ነው ፣ ስለሆነም እዚህ በእኛ ኮድ ውስጥ የእኛ ሕብረቁምፊ ተግባራት አሉን እና በጣም የመጀመሪያ ማሳወቂያው ኤቢሲን ይመልሳል ፣ በሚቀጥለው ግራ በስተግራ ያሉት ሶስት ቁምፊዎች ሙሉውን ይሰጡናል በግራ ጀርባ ላይ ያሉ ገጸ-ባህሪዎች በቀኝ በኩል ያለው ተግባር በተፈጥሮ ትክክለኛውን አራት ቁምፊዎችን ይመልሳል ፣ ስለሆነም ለአብዛኞቹ አራት ገጸ-ባህሪዎች ይህ ትክክለኛ ነው እናም ይህ የሚቀጥለው ደግሞ ትክክለኛውን ባህሪ ብቻ ይመልሳል ፡፡ አሁን ከመካከለኛው አንድ ቁራጭ መውሰድ እንችላለን ፣ ስለዚህ በባህርይ አቀማመጥ ሁለት እንጀምራለን እና የአራት ርዝመት ወደ ቦታ ይሄዳል የሚል አይመስለኝም ፣ ምክንያቱም ያ የአራት ርዝመት ነው ፣ ቀጣዩ የሚጀምረው በባህርይ አቀማመጥ ነው አስራ ሁለት ፡፡ ቀጥ ብሎ የሚሠራው መንገድ በጣም የተለየ ከመሆኑ ጋር በተቃራኒው ከቁጥጥሩ 12 ጀምሮ የሚገኘውን ሙሉውን የክርን መስመር በቀኝ በኩል በሙሉ ይተገበራል ፣ ከዚያ በመጨረሻ በቃጠሎው ውስጥ አስራ ዘጠኝ ቁምፊዎችን የያዘውን የዚያን ገመድ ርዝመት እንይዛለን ፣ በ ‹astring› ውስጥ አንድ ንጣፍ እንጀምራለን ስለዚህ አምስቱ ሰባት በእኛ መርከብ ላይ ከቦታ 7 ይጀምራል - ወይም የትኛው - በአቀማመጥ 12 ይጀምራል እና የመለዋወጫ ፓውንድ ምልክት በወንዙ ውስጥ አይገኝም ስለዚህ ለዚያ 0 እናገኛለን ፡፡ በመጨረሻም ቦብን እና ቦብን እንፈልጋለን በቦታችን ውስጥ በቁጥር 17 ላይ ባለ 19 ቁምፊዎች ገመድ ነው ፣ ስለሆነም 17 18 እና 19 ይሞታሉ በዚህ ገመድ የመጨረሻዎቹ ሶስት ቁምፊዎች ውስጥ በእርግጠኝነት ይህንን ኮድ ማስገባት እና ማስፈፀም አለብዎት እና እኛ በእርግጥ ብዙዎችን ተወያይተናል ከዚህ በፊት imes ፣ በ f8 ቁልፍ ማስፈፀም ይችላሉ ፡፡ በ f8 ቁልፍ ላይ ያለው ደስ የሚል ነገር በእሱ ውስጥ በሚያሽከረክሩበት ጊዜ የመዳፊት ጠቋሚዎን በተለዋጭው ላይ ማንቀሳቀስ እና ተለዋዋጭው ከዚህ ምደባ በኋላ ምን እየተከናወነ እንደሆነ ማየት ይችላሉ ፣ ያስታውሱ በቢጫው ላይ የደመቀው መስመር ገና አልተተገበረም ፣ ስለሆነም ልብ ይበሉ እኔ እስካሁን ድረስ ምንም ነገር ስላልፈረምኩ ውጤቱ ባዶው ገመድ መሆኑን ልብ ይበሉ ፣ ግን ይህን መግለጫ እንደወጣ ውጤቱ ኤቢሲ ነው ፣ ከዚያ የሚቀጥለውን መግለጫ እፈጽማለሁ እናም ቲአን አገኘሁ እና ቀጣዩን መግለጫ አደርጋለሁ ቦብ አገኘሁ ከዚያ በኋላ ‹ቢ› ን አገኘዋለሁ ቀጣዩን መመሪያ ማግኘት እችላለሁ እናም መካከለኛው ደግሞ ቢ.ሲ.ዲ.ሲ.ዲ.ሲ. II ስለሆነም እንደገና ይህንን ኮድ እዚህ እንዲያስገቡ እና ከእሱ ጋር እንዲጫወቱ ፣ እንዲያልፉ እና ምን እንደ ሚገነዘቡ እርግጠኛ ነኝ ፡፡ እነዚህ የሕብረቁምፊ ተግባራት ያደርጉታል ፣ አመሰግናለሁ
በ VBA ውስጥ የሕብረቁምፊ ተግባርን እንዴት እጠቀማለሁ?
InStr እና InStrRev ናቸውየ VBA ተግባራትበኩል ለመፈለግ ጥቅም ላይ ውሏልክሮችለዝርፊያ ፍለጋው ከሆነገመድከዚያ በኋላ ቦታው (ከቼኩ መጀመሪያ ጀምሮ ይገኛል)ገመድ) የፍለጋውገመድተመልሷል ፡፡ ፍለጋው ከሆነገመድአልተገኘም ከዚያ ዜሮ ተመልሷል ፡፡ ከሆነ ወይገመድባዶ ነው ከዚያም ባዶ ይመለሳል ፡፡
በ VBA ውስጥ አንድ ክር ምንድነው?
ማስታወቂያዎች።ክሮችየቁምፊዎች ቅደም ተከተል ናቸው ፣ እነሱም ፊደላትን ፣ ቁጥሮችን ፣ ልዩ ቁምፊዎችን ወይም ሁሉንም ያካተቱ። ተለዋዋጭ ይባላል ሀገመድበሁለት ጥቅሶች ውስጥ ከተዘጋ "፡፡
CHR 34 VBA ምንድነው?
CHRን ውቪ.ቢ.ኤ.ገጸ-ባህሪውን ከ ASCII ሰንጠረዥ ይመልሳል ፡፡ ለምሳሌ,Chr(3. 4) 34 ኛ ቁምፊን ይመልሳል ፣ እሱም "ምልክቱ (ድርብ ጥቅሶች)።28 ጃን
በዚህ ጽሑፍ ውስጥ ወደዚህ YSL አጋዥ ስልጠና በደህና መጡ እኛ በማይክሮሶፍት ኤክስኤክስ ውስጥ የቪ.ቢ.ኤ. ተጨማሪዎችን እንዴት መፍጠር እና መጠቀም እንደሚችሉ እናብራራለን መጣጥፉ ምን ማለት እንደሆነ እና ለምን በመጀመሪያ ሊፈጥሩበት እንደሚችሉ በአጭሩ በማብራራት ጽሑፉን እንጀምራለን ፣ ከዚያ ተጨማሪዎን መፍጠር ለመጀመር አዲስ ፕሮጀክት እንዴት እንደሚጀመር እናሳይዎታለን ፡፡ ተግባሩን ከፃፍን በኋላ በራሱ ተጨማሪ ውስጥ ማካተት ይፈልጉ ይሆናል ቆንጆ ቀላል ተግባር ምሳሌ። ፋይሉን እንደ ማከያ እንዴት ማዳን እንደሚችሉ እና ከዚያ ለወደፊቱ የ Excel የስራ መፅሃፍቶች እንዴት ማግኘት እንደሚችሉ እንነጋገራለን ፣ የጽሁፉ የመጨረሻ ክፍሎች ኮድዎን በሌሎች እንዳይቀየር እንዴት እንደሚጠብቁ ያብራራሉ ፡፡ እንዴት ማድረግ እንደሚቻል የእርስዎ መጨመር ለሌሎች የቪ.ባ.ባ. ፕሮጀክቶች እንዲሁም በማጣቀሻነት ሊገኝ ይችላል ፣ ስለሆነም እንጀምር ፡፡
በኤክሴል ውስጥ የቪ.ባ.ቢ. ተጨማሪን ለመፍጠር በጣም ከተለመዱት ምክንያቶች አንዱ በስራ መጽሐፍ ውስጥ ብዙ የብጁ ተግባራትን ስለፃፉ እና ከ rkbook ውጭ እንዲገኙ ይፈልጋሉ ስለሆነም ለምሳሌ በዚህ ልዩ ፋይል ውስጥ አንድ ተግባር አለኝ ቀኖቼን በአነስ ቅርጸት የሚቀይር ረዥም የተጻፈበት ቀን ቅርጸት ይባላል ፡፡ ስለዚህ ከእውቀት ዝርዝሬ ውስጥ ስመርጥ ከረጅም የቀን ቅርጸት ጋር በሚስማማ ሴል ውስጥ አንድ ቀመር ሳስቀምጥ በእውቀቱ ውስጥ ይታያል አንዳንድ ቅንፎችን ከፍቼ የተግባር ክርክሮችን እስከ ቀን ድረስ መክፈት እችላለሁ ፣ ይበልጥ ጠንካራ ቅንፎችን እና ፡፡ ተጫን የሚለውን ተጫን ፡፡ ከወሩ ቀን ቁጥር በኋላ ቅጥያውን ጨምሮ በጥሩ ሁኔታ የተቀረፀበትን ቀን አገኛለሁ ፣ ስለዚህ በዚህ ልዩ የሥራ መጽሐፍ ውስጥ ጥሩ ነው ፣ ግን ይህንን ከሥራ ደብተር ውጭ ለመጠቀም ከፈለግኩ አዲስ ባዶ የሥራ መጽሐፍ ከፈጠርኩ አልችልም ፡፡ ከረጅም የቀን ቅርጸት ጋር ተመሳሳይ ነው እንደምትለው የእኔን ረጅም ቀን ተግባር ለመጠቀም በመሞከር ctrl + n ን በመጫን i.
በእምቢተኝነት ዝርዝር ውስጥ እንደማይታይ አስቀድመው ማየት ይችላሉ ፡፡ አንዳንድ ቅንፎችን ከፍቼ የዛሬውን ተግባር ቀለል ለማድረግ የምጠቀምበትን ቀን ለማስገባት እሞክራለሁ ፣ ግን ይህንን ቀመር ስገባ አንድ ስህተት እፈታለሁ ስለዚህ እኔ ለመፍትሔ የምጠቀምበትን ተግባር ስም እንዳያገኝ ፡፡ ይህ ችግር ፣ ከዚያ በኋላ ሊያሰራጩት እና ለሁሉም የወደፊት የሥራ መጽሐፍትዎ ሊያገኙዋቸው የሚችሏቸውን ተጨማሪዎች (add add) እንዴት መፍጠር እንደሚችሉ በዚህ ጽሑፍ ውስጥ እናሳይዎታለን ፡፡ ተጨማሪችንን መፍጠር ለመጀመር የተግባራችንን ኮድ የምንጽፍበት ባዶ የሥራ መጽሐፍ ያስፈልገናል ፣ ስለሆነም አዲስ ባዶ የሥራ መጽሐፍ ለመፍጠር በ Excel ውስጥ Ctrl + n ን እጫናለሁ ፣ ከዚያ ምስላዊውን መሠረታዊ አርታኢ ለማስጀመር ምንድነው Alt + F11 ን ይጫኑ ፡፡ መጀመሪያ አደርጋለሁ በውስጣችን ተግባሮቻችንን የምንፅፍበትን ፕሮጀክት እንደገና መሰየም ለሂደቱ ሂደት ቀጣይ አስፈላጊ ሊሆን ይችላል ፡፡
በዚህ ጊዜ ፕሮጀክትዎ ልዩ ትርጉም ያለው ገላጭ ስም እንዳለው ማረጋገጥ ጠቃሚ ነው ፣ ስለሆነም ብልህ የጉጉት ተግባሮቼን እጠራለሁ ፡፡ የፕሮጀክት ስሞች ቦታዎችን መጠቀም ስለማይችሉ እንደ ቅጽ ሞጁሎች ተመሳሳይ የስም አወጣጥ ስምምነቶችን ይከተላሉ ፣ ስለሆነም አብዛኛው ስርዓተ-ነጥብ ከጽሑፍ እና ከቁጥሮች ጋር አይጣበቅም ፣ ከዚያ ምን ማድረግ እንደምንችል ለእኔ ለፕሮጀክቱ አንድ ሞጁል ማከል ነው ፡፡ በተለመደው መንገድ በፕሮጀክቱ ላይ በቀኝ ጠቅ ያድርጉ እና ሞዱል አስገባን ይምረጡ ሠ ሞጁሌን ወደ Batesfunctions እሰየዋለሁ ፡፡
በዚህ ተከታታይ ውስጥ ተግባሮችን እንዴት መፍጠር እንደሚቻል ቀደም ሲል ጽሁፉን ስላዘጋጀን አሁን እኛ በፈጠርነው ሞጁል ውስጥ ተግባሮቻችንን መጻፍ መጀመር እንችላለን ፡፡ እኔ እዚህ ማሳያ ላይ ከአንድ ባህሪ ጋር ብቻ በመጣበቅ ብዙ ጊዜ ማሳለፍ አልፈልግም እናም እኔ ያሳየሁዎት ምሳሌ ነው ፣ ደህና ፣ በጽሁፉ መጀመሪያ ላይ ነዎት ፡፡ በእውነተኛው ዓለም ውስጥ የእርስዎ የመደመር ባህሪዎችዎ ብዙ የተለያዩ ሞጁሎችን ሊያካትቱ እንደሚችሉ እና እንደፈለጉት የተለያዩ ባህሪያትን ሁል ጊዜ ተመልሰው በኋላ ላይ የሚያክሏቸው ተጨማሪ ባህሪያትን እና ሞጁሎችን ማከል እንደሚችሉ ልብ ይበሉ።
በዚህ ጽሑፍ ውስጥ ይህንን ለማሳየት የ Longdate Format የተባለ ተግባር እንፈጥራለን እና ለዚያ ተግባር አንድ ነጠላ ልኬትን እንገልፃለን ፣ እኔ የቀን ግቤት እሆናለሁ ፣ ስለሆነም ቅርጸቱን ቀን እላለሁ ፡፡ መቅረጽ እችላለሁ ፡፡ አንድ ጊዜ የምንሄድበት እና ያ ቀን የውሂብ አይነት ይሆናል ከዛ በኋላ ከቅንፍ በኋላ ይህ እሰራለሁ እላለሁ አንድ አነቃቂ ሕብረቁምፊ ይመልሳል ፣ በሁለት ጊዜያት ይተይቡ እና ከዚያ ቦታ ያስገቡ ስለዚህ በዚህ ልዩ ተግባር ውስጥ አንዳንድ ነገሮችን ማድረግ አለብን የቀን ቅርፃችን ለመፍጠር ብዙ የተለያዩ ክፍሎችን በአንድ ላይ እናሰባስባለን ፡፡
ከቀን ቅርጸቱ አንዱ ክፍል የቀኑን ቁጥር መጨረሻ የሚጨምር ቅጥያ ይሆናል ፣ ስለዚህ የወሩ ቀን ቁጥር ፣ ስለዚህ የመጀመሪያው ሁለተኛ ሶስተኛ ፣ ወዘተ ፡፡ ስለዚህ ተለዋዋጭ እጠቀማለሁ ፡፡ እነዚህን እሴቶች ለማከማቸት እኔ እንደ ‹ህብረቁምፊ› ደብዛዛ ቅጥያ እላለሁ ከዛም ስሌት እሰጠዋለሁ ከዚያም ‹suffix› የጉዳይ መግለጫን እጠቀማለሁ ስለዚህ የመረጥ ጉዳይ እላለሁ ከዚያም የ ‹ቁጥር› የሚሰጠኝን ‹ዲ› የተባለ ተግባር እጠቀማለሁ ፡፡ የወሩ ቀን እና በቀኑ ቅርጸት አንድ ቀን አለ እና ከዚያ ‹ዝርዝሮቹን መሙላት ከመጀመሬ በፊት ምርጫዬን አቆማለሁ ፣ አለበለዚያ ቆይቼ እረሳለሁ እናም በመሠረቱ እዚህ የተለያዩ አማራጮችን እሞክራለሁ ፡፡ ጉዳዩ 1 ወይም 21 ወይም 31 ነው ከዚያ የማፊፌክስ እና ተለዋዋጭ ውጤት ወይም በተከማቸው ተለዋዋጭዬ ውስጥ ያለው እሴት ኤክስ ከ sT ጋር እኩል መሆን እንዳለበት አውቃለሁ ፣ የወሩ ቀን 2 ወይም 22 ከሆነ ከዚያ ቅጥያው ከ nd ጋር እኩል መሆን እንዳለበት አውቃለሁ un d ጉዳዩ 3 ወይም 23 ነው ከዚያ እኔ አውቃለሁ ቅጥያ ለሌላው ሁሉ መ መሆን አለበት አውቃለሁ የቅጥያ ቅጥያ / caseelse / መጠቀም እችል ዘንድ ቅጥያው መሆን አለበት ያንን መግለጫ ይግለጹ እና ያ ቅጥያ እንዲፈጠር ከሱ ጋር እኩል ቅጥያ ይበሉ። አሁን የማደርገው ነገር ያንን ረዘም ባለ የቀን ቅርጸት ውስጥ ማስቀመጥ ነው ፣ እናም ውጤቶቹን ደግሞ ወደ ረጅም ቀን ቅርጸት ተግባር እመልሳለሁ ፡፡
የረጅም ቀን ቅርጸት እኩል ነው ካልኩ ከዚያ ይህን መስመር በበርካታ የኮድ መስመሮች ለማከናወን አንድ ቦታ እና አፅንዖት እጠቀማለሁ ፣ እናም ቀድሞውኑ በ VBA የውሂብ ቅርጸት ልኬት እና በማንኛውም ዋጋ ላይ የተገነባ ቅርጸት ተግባር እጠቀማለሁ ወደዚያ ግቤት ተላል ,ል ፣ እና የእኔ የቀን ቅርጸት የመጀመሪያ ክፍል 40 ዎቹ ሲሆን የሳምንቱን ቀን ሰኞ ማክሰኞ ማክሰኞ ወዘተ የሚል ስም ይሰጠኛል ፣ ከዚያ ደግሞ ሌላ ነጠላ ዲን የምዘጋበትን የወሩ ቀን ቁጥር ይሰጠኛል ፡፡ ድርብ ጥቅሶችን ፣ ቅንፎችን ይዝጉ እና ከዚያ ያጠናቅቃሉ ስለዚህ በሚቀጥለው መስመር ላይ ለመቀጠል ሌላ ቦታን አፅንዖት እጠቀማለሁ ወደዚህ ቅጥያ መጠቀስ እችላለሁ ሌላ አምፔርን እና ከዚያ ሩቅ ቦታን እጠቀማለሁ እናም የቀኑ ቅርጸት በጣም የመጨረሻው ክፍል ነው በወሩ እና በዓመቱ ስም ላይ ታክሏል ፣ ስለዚህ የቅርጸት ባህሪውን እንደገና እጠቀማለሁ። ቀኑን ለመቅረፅ እሄዳለሁ ግን በዚህ ጊዜ ትንሽ ለየት ያለ የቅርጸት ኮድ ቦታን በመጠቀም ከቅጥሬ በኋላ ቦታ መያዙን ለማረጋገጥ እና ከዚያ ለኤምኤስ የወሩ ስም ቀን እና በመጨረሻም ሌላ ቦታ እና እዚያ ያለው አራት አሃዝ ዓመት በእጥፍ እዘጋለሁ ወደዚህ ነጥብ መሄድ እና በካሬ ቅንፎች ዙሪያ መዝጋት እችላለሁ እናም በእውነቱ ይህንን ወደ ማከል ከመቀየራችን በፊት የተፈጠረው ተግባር ነው ፡፡ ተግባርዎን መሥራቱን ለማረጋገጥ መሞከርዎ ፈጣን ነገር ነው ፣ ስለዚህ ይህንን በ ‹ሃንዲ-ሶፎርት-ዋይ› አደርጋለሁ ፡፡
ወደ ‹ዕይታ› ምናሌው ስሄድ ‹ወዲያውኑ› የሚለውን መምረጥ እችላለሁ ወይም Ctrl + G ን መጫን እችላለሁ እና በአፋጣኝ መስኮት ውስጥ የእኔን የቀን ቅርጸት ተግባርን ከገለጽኩ ጀምሮ ከ VBAso ጋር የሚሄድ ማንኛውንም ተግባር ተከትሎ የጥያቄ ምልክት መተየብ እችላለሁ ፡፡ ስለዚህ በቁልፍ ሰሌዳው ላይ Ctrl + Space ን ተከትዬ የጥያቄ ምልክት በምተይብበት ጊዜ የዛሬውን ቀን በሚመልሰው ኢንቴልሴንስሊስት ውስጥ የእኔን የረጅም ጊዜ ቅርጸት ተግባር ማየት እችላለሁ እና በትክክል መመለሱን ለማረጋገጥ በመስመሩ መጨረሻ ላይ ግባን መምታት እችላለሁ ፡፡ የተቀየሰ ቀን ፣ ምክንያታዊ እመስላለሁ ፣ ያንን እናድርገው ወዲያውኑ መስኮቱን ይዝጉ። ቀጣዩ ደረጃ ይህንን ቀላል ተግባር በመደበኛ የስራ መጽሐፍ ውስጥ ባለው ሞጁል ውስጥ ወደ ተጨማሪ ማከል ነው ፡፡ ፋይሉን እንደ ማከያ ለማስቀመጥ በእይታ መሠረታዊው አርታኢ ውስጥ ያለውን የማስቀመጫ ቁልፍን ጠቅ ማድረግ ወይም ወደ ኤክስኤል መመለስ ፣ ወደ የፋይል ምናሌው መሄድ እና አስቀምጥን መምረጥ እንችላለን ፣ እንደ አማራጭ ወደ ኤክስኤል ተመልሰን F12 ን መምታት እንችላለን ፡፡ በቁልፍ ሰሌዳው ላይ ቁልፍን አስቀምጥ እና እንደ አስ አስቀምጥ የሚለውን ሳጥን አታሳይ ፡፡
አሁን ቦታው ምንም አይደለም ፡፡ ማድረግ ያለብዎት በጣም አስፈላጊው ነገር የቁጠባን አይነትን መለወጥ ነው የ Excel የስራ መጽሐፍ ለማስቀመጥ አንሞክርም ፣ ግን በአዲሶቹ ውስጥ የ Excel ቅጥያ ያለው የ Excel ተጨማሪ ለማስቀመጥ እንሞክራለን የ Excel ኤክስፕረስ ተጠየቀ . በቅርስ ቅርጸት ማስቀመጥም ይችላሉ ፡፡
አሁንም በቢሮ 2003 ውስጥ የሚሰሩ ከሆነ ኤክሴል ማከያ ማስቀመጥ ይችላሉ ፣ ግን በ Excel am Add-In ውስጥ ወደ ሴቭውስ ቤቶች እንሄዳለን። ስለዚህ የፋይሉ ዓይነት ወደ ሌላ ቦታ እንዲመራ ከመረጥን በኋላ በራስ-ሰር በሚያንቀሳቅሰው የተጠቃሚ መገለጫዎ አካል ወደሆነው ወደ ‹Add-Ins› አቃፊ ይመራል ፡፡ ተጨማሪዎችዎን ለማስቀመጥ ይህ አሁን በጣም ጥሩው ቦታ ነው ፡፡
ነባሪው አካባቢ ኤክሴል እነሱን ለመጫን ሲሞክሩ ተጨማሪዎችን ይፈልጋል ፣ ግን እዚህ ማዳን አያስፈልግዎትም። ፋይልዎን በዴስክቶፕ ወይም በጋራ ስፍራ ውስጥ ለማስቀመጥ መምረጥ ይችላሉ ፡፡ የእኔን ማከያ በተመጣጣኝ ስም እሰጣለሁ እላለሁ ለማሳየት ብቻ የፋይል ማከያዎን የት እንደሚያድኑ ምንም ችግር የለውም ፣ የጎበዝ ጉጉት መደመር ፈጠራው አይደለም ፣ ግን ምክንያታዊ ነው ከሆነ እና ከዚያ የእኔን አቶም አሁን ተቀምጧል 'አስቀምጥ' የሚለውን ቁልፍ ጠቅ ያድርጉ።
ሊያስተውሉት የሚችሉት አንድ ነገር ቢኖር የሥራ መጽሐፍ ስም ራሱ እንዳልተለወጠ ነው ፡፡ ዋናውን ነባሪ ስም አሁንም ከጄነራል መጽሐፍ ይጠብቃል 6. አንድ ተጨማሪ ሲያስቀምጡ ትክክለኛ ስሙ ነው።
የስራ መጽሐፍ ራሱ በ VBA ፕሮጀክት ውስጥ የፃፍነውን ሁሉንም ኮድ አያከማችም ስለሆነም እኛ በእውነቱ እኛ አንፈልግም ምክንያቱም ይህንን የስራ መጽሐፍ አብረን መጣል አንችልም ፡፡ ወደ ፋይል ምናሌው ሄጄ እዘጋዋለሁ እና ለውጦችን እንድያስቀምጥ ሲጠየቅ ‹ግድ አይሰጠኝም ፣ ለማንኛውም አይጠየቅም ፡፡ አሁን የሚቀጥለው እርምጃ በአሁኑ ጊዜ ኤክሴል ያሏቸውን ተጨማሪዎች ማስተዳደር የሚያስፈልገንን ተጨማሪዎቻችንን ወደፊት በሚሠሩ የሥራ መጽሐፍት ውስጥ ለመጠቀም እንደምንፈልግ ለ Excel ለነገሩ ተጨማሪዎን እርስ በእርስ የሥራ መጽሐፍ እንዲያገኙ ማድረግ ነው ፡፡ ከአማራጮች ምናሌው ወደ ፋይሉ መሄድ ይችላል ፣ በግራ በኩል ወደ "Add-Ins" ትር ይሂዱ ፣ ከዚህ በታች ከተቆልቋዩ ዝርዝር ውስጥ የ Excel ማከያዎችን ያቀናብሩ እና ከዚያ ጠቅ ያድርጉ ከዚያም የሚገኙትን ተጨማሪዎች ዝርዝር ለማየት የ "Go" ቁልፍን ጠቅ ያድርጉ ፡፡ ins.
ለአሁኑ ከሰረዝኩት ይህንን የመገናኛ ሳጥን እንዲሁ ለማግኘት ትንሽ አጠር ያለ መንገድ አለ ፡፡ ወደ የገንቢ ትር ስሄድ እዚህ ላይ አንድ አክል የሚል ቁልፍ አለ አሁን ግን እንቅስቃሴ የለውም ፣ ምክንያቱም Ctrl + n ን በመጫን አዲስ አዲስ ባዶ የስራ መጽሐፍን ስፈጥር ክፍት የሥራ ደብተሮች የሉኝም ፣ እዚህ የማከያ ቁልፎችን ጠቅ ማድረግ እችላለሁ ፣ አሁን ይህንን የመገናኛ ሳጥን ወዲያውኑ ይክፈቱ ስለዚህ እነዚህን ምናሌዎች በሙሉ ማለፍን ያስቀራል ፣ አሁን በተጠየቀን መሠረት የተቀመጠ ነባሪ ተጨማሪዎች ቦታ ላይ ተጨማሪችን አለን ፣ ጭንቅላቴን ስናድነው ይህንን ቀድሞውኑ በ ዝርዝር ፣ ግን ተጨማሪዬን በዴስክቶፕዬ ላይ አስቀምጫለሁ ስለዚህ የአሰሳ ቁልፍን ጠቅ ማድረግ እንድችል የእኔን መፈለግ አለብኝ ፡፡ ወደ ዴስክቶፕዬ መሄድ እችላለሁ የእኔን የጉጉት ተጨማሪ ፋይል መምረጥ እችላለሁ እና ከዚያ እሺን ጠቅ ያድርጉ ከዚያ በኋላ ወደ ዝርዝሩ የሚጨመሩ እና እያንዳንዱን ያክላል ፡፡ ተጭኗል ngle time youopen እንደዚሁ Ctrl + theseMi ኮሎን በምሰራበት ጊዜ በዚህ አዲስ አዲስ ባዶ የስራ መጽሐፍ ህትመት ውስጥ አንድ ቀን ውስጥ በአንድ ሴል ውስጥ እንደማስቀምጥ ለማሳየት እሺ ስመታ አሁን ለፈጠሩት አዲስ ምርት ሁሉ ይገኛል ፡፡
የዛሬውን ቀን ለማስገባት ይህ ፈጣን መንገድ ነው ፣ ከዚያ በተመሳሳይ የቀን ቅርጸት ስጽፍ በዚህ የ Excel ስሪት ውስጥ በ Excel 2013 ውስጥ በኢንቴልሴንስ ዝርዝር ውስጥ ሲታይ እናያለን እና ከዚያ የእኔን ቀን ጋር ሕዋሱን ለመምረጥ ቅንፎችን መክፈት እችላለሁ ፡፡ - ቅንፎችን በመዝጋት እና አስገባን ተጫን ፣ እኔ ሙሉ በሙሉ አዲስ ባዶ ባዶ Ctrl ሲፈጥር በዚያ የሥራ መጽሐፍ ውስጥ ተጨማሪውን እንዲሰራ ባስቀምጥም እንኳ ያ የተወሰነ የሥራ መጽሐፍ ብቻ አለመሆኑን ለማሳየት ብቻ ነው ተግባሬ በአዲስ የሥራ መጽሐፍ ውስጥ የሚሰራው ፡፡ + n እንደገና አሁን 8 መጽሐፍ አለኝ እናም እዚህ የተለየ ቀን እና ሴል ካኖርኩ Ctrl + semicolon ን መጫን እችላለሁ እናም ወደ ሌላ ሴል ሄዶ የረጅም ቀን ቅርጸት ነው ማለት ይችላል ፡፡ ያንን ህዋስ በቅንፍዎቹ ዙሪያ ይምረጡ እና አቶም አሁን ለሚፈጥሯቸው እያንዳንዱ የስራ መጽሐፍ እንዲገኝ ለማድረግ እዚያው ላይ ይምቱ ፣ እኔ በመደመር ላይ በሚሆንበት መንገድ ላይ ለውጦችን ማድረግ እንዳለብኝ ከወሰንኩ በጣም ምንም ችግር የለውም ፣ ቀድሞውንም እየሰራሁ ከሆነ ፡፡ አንድ የሥራ መጽሐፍ በጥሩ ሁኔታ ከዚያ አቶም በአሁኑ ጊዜ ተጭኖ ከእይታ መሰረታዊ አርታዒ ጋር ማየት እችላለሁ ስለዚህ ወደ ገንቢ ትር ስሄድ እና የሚታየውን ምስላዊ መሠረታዊ ቁልፍን ጠቅ ሲያደርግ አየሁ ፣ ግን ከሁለቱ ፕሮጀክቶች በተጨማሪ ለአዲሱ የሥራ መጽሐፍት የተፈጠርኩ ፣ እንዲሁም የእኔን የጉጉት ተግባራትንም ጫንኩ - እሱ ራሱ ከበስተጀርባ ይጫናል ፣ ስለሆነም እኔ የምፈልገውን ማንኛውንም ለውጥ ማድረግ እችል ዘንድ ሁልጊዜ ኮዱ ይገኛል ፡፡ አዲስ ተግባር ማከል እችላለሁ አዲስ ሞጁልን ከተጨማሪ ተግባራት ጋር ማከል እችላለሁ እና ከዚያ በተቻለኝ መጠን እነዚያን ለውጦች አደረግሁ በዚህ ፕሮጀክት ውስጥ የሆነ ነገር መርጫለሁ ፡፡
ማስታወቂያዎን ለሌሎች ተጠቃሚዎች ለማሰራጨት ከወሰኑ ተጠቃሚዎች በኮድዎ ላይ ለውጦችን ማድረግ እንዳይችሉ ወይም ያደረግኳቸውን ማናቸውም ለውጦች እንኳን ለማስቀመጥ እዚህ ላይ የቁጠባ ቁልፍን እዚህ መምታት እና ተጨማሪውን ማስቀመጥ እችላለሁ ፡፡ ኮድ ፣ እና እርስዎ በዊዝ ኢልፍ ተግባራትዎ ፕሮጀክት ላይ በቀኝ ጠቅ ሲያደርጉ ወይም ቪ.ፒ. ብለው በሚጠሩዋቸው ነገሮች ላይ እነዚህን ለውጦች በእይታ መሰረታዊ አርታኢ ውስጥ ያደርጋሉ ፡፡ የእሱን ባህሪዎች ለመመልከት የመረጡበት ፕሮጀክት እዚያ በሚታየው የንግግር ሳጥን ውስጥ ፕሮጄክትን በመመልከት የጥበቃ ትር አለ እና ፕሮጀክቱን ከማየት መቆለፍ እና ከዚያ የይለፍ ቃል መመደብ ይችላሉ ፡፡ እኔ ጥሩ ቀላል ቀላል ውስጥ መተየብ እና ከዚያ እሺ ላይ ጠቅ ነው.
ከዚያ ፋይሉን እንዳስቀመጥን ማረጋገጥ አለብን ፣ ስለሆነም በፕሮጀክቱ ውስጥ በማንኛውም ቦታ ላይ ተጨማሪውን ጠቅ ካደረግን እና በእይታ መሠረታዊ አርታኢው ውስጥ የተቀመጠ የማስቀመጫ ቁልፍን የምንመታ ከሆነ እነዚህ ለውጦች እንዲወሰዱ በቀላሉ ማከያችንን እንደገና ማስጀመር እንችላለን ፡፡ ውጤት በጣም ቀላሉ መንገድ የ VB አርታዒውን መዝጋት እና ከዚያ ኤክስፕልን ከመጀመርያው ምናሌ በፍጥነት እንደገና ከከፈትኩ እና ሌላ አዲስ አዲስ ባዶ የሥራ መጽሐፍን ከጀመርኩ ኤክስኤልን ሁሉንም በአንድ ላይ መዝጋት ነው። የረጅም ቀን ቅርጸት አሁንም አለ ስል አሁንም የእኔን ማከል እገኛለሁ እና አሁንም ብዙ ቅንፎችን በመጠቀም ብዙ በጣም ብዙ ይሠራል ፣ እዚህ ላይ ምንም አላስብም እና ከዚያ ወደ የገንቢ ትር ስሄድ 'ወደ ውስጥ ስገባ ቪዥዋል መሰረታዊ አርታኢ ፣ የእኔ ማከያ እዚህ እንደሚገኝ ማግኘት አለብኝ ፣ ግን ፕሮጀክቱ ፈርሷል ፣ እና ፕሮጀክቱን ለማስፋት ስሞክር ሌሎች ተጠቃሚዎች የእርስዎን አክል እንዲጠቀሙ የይለፍ ቃሉ እንዲጠየቁኝ ጠየቁኝ - ማየት አልተቻለም ውስጥ ፣ ግን በእሱ ላይ ማንኛውንም ተጨማሪ ለውጦች ማድረግ ከፈለጉ የይለፍ ቃልዎን ማስገባት ይችላሉ።
ተጨማሪችንን ለሌሎች የሥራ መጽሐፍት ማግኘት ምን ያህል ቀላል እንደሆነ ተመልክተናል ፡፡ በሌሎች ቪባ ፕሮጄክቶች ውስጥ በእኛ ተጨማሪ ውስጥ ያሉትን ተግባራት መጠቀም እንፈልጋለን ፣ ይህ ትንሽ አስቸጋሪ ነው ፡፡ እኔ አዲስ የሥራ መጽሐፍ እዚህ እና አዲስ ፕሮጀክት ከፈትኩ ፡፡ በዚህ ፕሮጀክት ውስጥ ሞጁል ማስገባት እችላለሁ በተለመደው መንገድ ወደ ስያሜ መለወጥ አልቸገርም እናም እዚህ በጣም ቀላል የፈጠራ ንዑስ ፕሮፌሰር የሚል ፅሁፍ የምጽፈው በጣም የፈጠራ ስም አለመሆኑን አውቃለሁ ነገር ግን ለማሳየት በመሞከር ብቻ እባክዎን ይቅር ይበሉኝ ፡፡ የመልእክት ሣጥን እዚህ የዛሬውን ቀን በጥሩ ሁኔታ የተቀረፀውን ስሪት ያሳያል የ Ctrl + Space ን በመምታት የጥበብ ስሜቴን ለመክፈት CTrl + Space ን ሲመታ ይህን ለማድረግ ረጅም ቀን ቅርጸቴን መጠቀሙን እወዳለሁ ፣ በሚያሳዝን ሁኔታ የረጅም ቀን ቅርጸት ተግባሬን መድረስ አልችልም ፡፡
የተወሰኑ ቅንፎችን ከፍቼ የቀን ተግባሩን ለማስገባት መሞከር እችላለሁ ነገር ግን ይህንን ንዑስ ክፍል ለማሄድ እንደሞከርኩ የቪፒፒ አርታኢ ለመጠቀም እየሞከርኩትን ተግባር ስም እንደማያውቅ አገኘዋለሁ ፡፡ ይህ የሆነበት ቀላል ምክንያት ይህ የ VBA ፕሮጀክት በአሁኑ ጊዜ የእኛ የመደመር ፕሮጀክት እንኳን አለ የሚል ጽንሰ-ሀሳብ የለውም ፡፡ የመደመር ተግባር እንዳለ ወይም በፕሮጀክቱ ውስጥ እንዳለ ይህንን እንዲያውቅ ለማድረግ ለዚህ ፕሮጀክት አንድ የ "Set" ማጣቀሻ እንሆናለን ፡፡
ይህንን ከመሣሪያዎች ምናሌ እና ከ ‹ማጣቀሻዎች› አማራጩ እዚያ ማድረግ እንችላለን ፡፡ በዚህ ክፍል መጀመሪያ ላይ ለዋናው ተጨማሪ ፕሮጀክትዎ ትርጉም ያለው ስም የሰጡት ለዚህ ነው። ስለዚህ የእኛን ተግባራት ከተመለከትን የ VBA ፕሮጄክታችን ስም እዚህ ላይ ለማከያችን አንድ ተጓዳኝ አካል እንዳለ ማስተዋል አለብን ፡፡
ሳጥኑ ላይ ምልክት ባደረግኩበት ጊዜ የማጣቀሻውን በተጨማሪ-ተጨማሪ ፋይል እና የመጀመሪያ ቦታውን እናዘጋጃለን ፣ ከዚያ እሺን ስመታ እና ከዛ በጣም ርካሹን ጫፍ ላይ እንደገና ስሞክር በጣም የተወሳሰበ እንዳይሆን በዚህ ጊዜ ንዑሱን ይሞክሩ ፡፡ ተጨማሪዎችዎን ለሌሎች የቪ.ባ.ባ. ፕሮጀክቶች እንዲገኙ ለማድረግ ይህ ተጨማሪ እርምጃ ብቻ ነው ፡፡ የመሳሪያ ማመሳከሪያዎችን መምረጥ እና ለተጨማሪ ፕሮጀክትዎ ማጣቀሻ ማዘጋጀት ያስፈልግዎታል፡፡ይህን የሥልጠና ጽሑፍ ከወደዱ ብዙ ተጨማሪ የመስመር ላይ የሥልጠና ሀብቶችን ማግኘት ይችላሉ ፡፡ ww-why ዜልኮ ዩኬ
በ VBA ውስጥ ተደጋጋሚ ገጸ-ባህሪያትን ሕብረቁምፊ እንዴት መፍጠር ይቻላል?
የተባዛ () ተግባር ተደጋጋሚ ገጸ-ባህሪያትን ያስገኛል። ይህ ምሳሌ የ 10 ሰረዝ ድራጎችን ያስገኛል-ቪዥዋል ፎክስፕሮ እንዲሁ በተሰጠ ርዝመት አንድ ገመድ የሚሽከረከሩ ተግባራት አሉት ፡፡ PadL () ፣ PadR () እና PadC () በአንድ ነባር ገመድ ላይ ክፍተቶችን ወይም ቁምፊዎችን ያክላል እና በረጅም ክር ውስጥ ግራ ፣ ቀኝ ወይም መሃል-አሰልፍ ይተዋል።
ተከታታይ ገጸ-ባህሪያትን ለመድገም የ VB ተግባር አለ?
ያ ሁለተኛው ክርክር ገጸ ባህሪው እራሱ ሊሆን ይችላል ፣ ወይም ከላይ እንደሚታየው ፣ ወይም በምትኩ የ ASCII እሴት ሊሆን ይችላል ... ተከታታይ ቁምፊዎችን ብዙ ጊዜ ለመድገም የ VB ተግባር የለም ፣ ግን ከ ‹‹P››› ጋር ተደምሮ የ‹ ስትሪንግ ›ተግባርን መጠቀም ይችላሉ ፡፡ ተግባርን ለማከናወን ....
የተደጋጋሚ ቁምፊዎችን ሕብረቁምፊ የሚመልሰው የትኛው ተግባር ነው?
ይህ ተግባር በተከታታይ ገጸ-ባህሪያት የተሰራውን ሕብረቁምፊ ይመልሳል። ሕብረቁምፊውን የሚሠራው ገጸ-ባህሪ በባህሪው ክርክር ውስጥ የመጀመሪያው ገጸ-ባህሪይ ነው ፣ እና የተባዛ ቁጥር ብዛት ነው። የተጠቀሰውን ገጸ-ባህሪ የያዘ ሕብረቁምፊ ወይም ነገር ይመልሳል የተጠቀሱትን የጊዜ ብዛት ተደግሟል። ያስፈልጋል የተቀናጀ አገላለፅ።
የ VBA ሕብረቁምፊ ተግባር ስንት ጊዜ ይመለሳል?
የሕብረቁምፊ ተግባር የሚቀርበውን የ ‹String› የመጀመሪያ ቁምፊን ብቻ ነው የሚጠቀመው ፣ ስለሆነም በዚህ አጋጣሚም ተግባሩ‹ አንድ ›የተደገመውን ቁምፊ 10 ጊዜ ይመልሳል ፡፡ ለ VBA ሕብረቁምፊ ተግባር አሉታዊ የቁጥር ክርክር ካቀረቡ ስህተቱን ያገኛሉ