Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول مستخدم جديد

كيفية حساب مجموع النقرات في خلية محددة في إكسيل؟

تتحدث هذه المقالة عن حساب إجمالي النقرات في خلية محددة في Excel.

حساب إجمالي النقرات في خلية محددة برمز VBA

حساب إجمالي النقرات في خلية محددة برمز VBA

يرجى القيام بما يلي لحساب إجمالي النقرات في خلية محددة في Excel.

1. في ورقة العمل تحتوي على الخلية التي تحتاجها لحساب إجمالي النقرات ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم انقر فوق عرض الرمز من قائمة السياق.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز VBA أدناه في نافذة التعليمات البرمجية.

رمز فبا: حساب إجمالي النقرات في خلية محددة في إكسيل

Public xRgS, xRgD As Range
Public xNum As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    Set xRgS = Range("E2")
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Range("H2")
    If xRgD Is Nothing Then Exit Sub
    If Intersect(xRgS, Target) Is Nothing Then Exit Sub
    xNum = xNum + 1
    xRgD.Value = xNum
End Sub

ملاحظة: في الكود ، E2 هي الخلية التي تحتاجها لحساب إجمالي نقراتها ، و H2 هي خلية إخراج العد. الرجاء تغييرها كما تريد.

3. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

من الآن فصاعدًا ، عند النقر فوق الخلية E2 في ورقة العمل المحددة هذه ، سيتم ملء إجمالي النقرات تلقائيًا في الخلية H2 كما هو موضح أدناه. على سبيل المثال ، إذا قمت بالنقر فوق الخلية E2 5 مرات ، فسيتم عرض الرقم 5 في الخلية H2.

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
الأقدم أولا
الجديد أولا
التعليقات (29)
لا يوجد تقييم. كن أول من يقيم!
دينيس
دينيس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنك "إعادة تعيين" العداد؟
رد
0
0
كريستال
كريستال     دينيس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي دينيس ،
الرجاء إضافة رمز فبا أدناه في نهاية الكود الأصلي. في كل مرة تقوم فيها بتشغيل هذا الرمز ، ستتم إعادة تعيين العد إلى 0. شكرًا لك على تعليقك.

Sub ClearCount ()
xRgD.Value = ""
xNum = 0
نهاية الفرعية
رد
بلغ
0
0
بيف ويلسون
بيف ويلسون     كريستال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كريستال،

هل يمكنك تقديم رمز VBA الكامل - لهذا الغرض؟ أيضًا كيف يمكنني تطبيقه على صف واحد - كل واحد يحتاج إلى عداد خاص به؟
رد
بلغ
0
0
كريستال
كريستال     بيف ويلسون
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
رمز VBA الكامل كما يلي. إذا كنت تريد إعادة تعيين العداد ، يرجى تشغيل رمز VBA الثاني. لتطبيق الكود على صف واحد ، آسف لا يمكنك مساعدتك حتى الآن.

"أول VBA
xRgS العام ، xRgD كنطاق
xNum العام بطول
تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
على خطأ استئناف التالي
إذا كان Target.Cells.Count> 1 ثم اخرج من Sub
تعيين xRgS = النطاق ("E2")
إذا كان xRgS لا شيء ، فاخرج من Sub
تعيين xRgD = النطاق ("H2")
إذا كان xRgD لا شيء ، فاخرج من Sub
إذا كان التقاطع (xRgS ، الهدف) لا شيء ، فاخرج من Sub
xNum = xNum + 1
xRgD.Value = xNum
نهاية الفرعية
"VBA الثاني
Sub ClearCount ()
xRgD.Value = ""
xNum = 0
نهاية الفرعية
رد
بلغ
0
0
غيدو
غيدو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك على الكود ، مفيد جدا.
أنا لست مبرمجًا وأود أن أعرف كيفية توسيع هذه العملية لتشمل كل سطر. وهذا يعني ، ليس فقط E2> H2 ولكن أيضًا E3> H3 و E4> H4 وما إلى ذلك.
هل يوجد رمز لهذا؟


شكرا لكم مقدما!
رد
0
0
كريستال
كريستال     غيدو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جيدو ،

يمكن أن يساعدك رمز VBA أدناه في حل المشكلة. يرجى المحاولة. شكرا على تعليقك.
تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
خافت xRgArray كمتغير
خافت xNum
خافت xStrR ، xStrS ، xStrD كسلسلة
خافت xRgS ، xRgD كنطاق

خافت xFNum وطول
xRgArray = صفيف ("E2، H2"، "E3، H3"، "E4، H4"، "E5، H5"، "E6، H6")
على خطأ استئناف التالي
إذا كان Target.Cells.count> 1 ، فاخرج من Sub
بالنسبة إلى xFNum = LBound (xRgArray) إلى UBound (xRgArray)
xStrR = xRgArray (xFNum)
xStrS = ""
xStrS = يسار (xStrR، 2)
xStrD = ""
xStrD = يمين (xStrR، 2)
تعيين xRgS = لا شيء
تعيين xRgS = النطاق (xStrS)
إذا كان TypeName (xRgS) <> "لا شيء" ثم
تعيين xRgD = لا شيء
تعيين xRgD = النطاق (xStrD)
إذا كان TypeName (xRgD) <> "لا شيء" ثم
إذا كان TypeName (Intersect (xRgS، Target)) <> "Nothing" ثم
xRgD.Value = xRgD.Value + 1
إنهاء حالة
إنهاء حالة
إنهاء حالة
التالى
نهاية الفرعية
رد
بلغ
0
0
رحمة
رحمة     كريستال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على هذا. حاولت ونجحت ، لكنها عملت فقط حتى عدد معين من الخلايا ، كيف يمكننا تمديد هذا الرمز حتى نهاية الخلايا؟ على سبيل المثال ، أكتب هذا الرمز أدناه ويعمل فقط حتى "G9، G9". شكرًا


تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
خافت xRgArray كمتغير
خافت xNum
خافت xStrR ، xStrS ، xStrD كسلسلة
خافت xRgS ، xRgD كنطاق

خافت xFNum وطول
xRgArray = صفيف ("C4، C4"، "D4، D4"، "E4، E4"، "F4، F4"، "G4، G4"، "C6، C6"، "D6، D6"، "E6، E6 "،" F6، F6 "،" G6، G6 "،" C7، C7 "،" D7، D7 "،" E7، E7 "،" F7، F7 "،" G7، G7 "،" C8، C8 "، "D8، D8"، "E8، E8"، "F8، F8"، "G8، G8"، "C9، C9"، "D9، D9"، "E9، E9"، "F9، F9"، "G9 ، G9 "،" C10، C10 "،" D10، D10 "،" E10، E10 "،" F10، F10 "،" G10، G10 "،" C11، C11 "،" D11، D11 "،" E11، E11 "،" F11، F11 "،" G11، G11 "،" C14، C14 "،" D14، D14 "،" E14، E14 "،" F14، F14 "،" G14، G14 "،" C15، C15 "، "D15، D15"، "E15، E15"، "F15، F15"، "G15، G15"، "C16، C16"، "D16، D16"، "E16، E16"، "F16، F16"، "G16 ، G16 "،" C17، C17 "،" D17، D17 "،" E17، E17 "،" F17، F17 "،" G17، G17 "،" C18، C18 "،" D18، D18 "،" E18، E18 "،" F18، F18 "،" G18، G18 "،" C20، C20 "،" D20، D20 "،" E20، E20 "،" F20، F20 "،" G20، G20 ")
على خطأ استئناف التالي
إذا كان Target.Cells.count> 1 ، فاخرج من Sub
بالنسبة إلى xFNum = LBound (xRgArray) إلى UBound (xRgArray)
xStrR = xRgArray (xFNum)
xStrS = ""
xStrS = يسار (xStrR، 2)
xStrD = ""
xStrD = يمين (xStrR، 2)
تعيين xRgS = لا شيء
تعيين xRgS = النطاق (xStrS)
إذا كان TypeName (xRgS) <> "لا شيء" ثم
تعيين xRgD = لا شيء
تعيين xRgD = النطاق (xStrD)
إذا كان TypeName (xRgD) <> "لا شيء" ثم
إذا كان TypeName (Intersect (xRgS، Target)) <> "Nothing" ثم
xRgD.Value = xRgD.Value + 1
إنهاء حالة
إنهاء حالة
إنهاء حالة
التالى
نهاية الفرعية
رد
0
0
كريستال
كريستال     رحمة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا روث ،
من الصعب تحسين الكود لتلبية احتياجاتك. اسف بشأن ذلك.
رد
بلغ
0
0
دان
دان     كريستال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يقرأ الكود رقم الخلية المكون من رقمين ، أي C10 ، لماذا هذا من فضلك
رد
0
0
JT
JT     كريستال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستال. لقد جربت هذه الصيغة ، لكنها لا تُبلغ إلا من خلال الصف 9. لن أحسب الصف 10 وما بعده. على سبيل المثال ، لقد قمت بتعديل الصيغة أعلاه لحساب النقرات الفردية في A4 ، للإبلاغ إلى E5 ؛ A5 لتقديم تقرير إلى E5 ؛ A6 للإبلاغ إلى E6 ، إلخ. النطاق الإجمالي هو A4 إلى A17 ، إجمالي التقارير من E4 إلى E17. هل يمكنك المساعدة؟ هذا هو الكود المعدل الذي استخدمته.



تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
خافت xRgArray كمتغير
خافت xNum
خافت xStrR ، xStrS ، xStrD كسلسلة
خافت xRgS ، xRgD كنطاق

خافت xFNum وطول
xRgArray = صفيف ("A4، E4"، "A5، E5"، "A6، E6"، "A7، E7"، "A8، E8"، "A9، E9"، "A10، E10"، "A11، E11 "،" A12 ، E12 "،" A13 ، E13 "،" A14 ، E14 "،" A15 ، E15 "،" A16 ، E16 "،" A17 ، E17 ")
على خطأ استئناف التالي
إذا كان Target.Cells.Count> 1 ثم اخرج من Sub
بالنسبة إلى xFNum = LBound (xRgArray) إلى UBound (xRgArray)
xStrR = xRgArray (xFNum)
xStrS = ""
xStrS = يسار (xStrR، 2)
xStrD = ""
xStrD = يمين (xStrR، 2)
تعيين xRgS = لا شيء
تعيين xRgS = النطاق (xStrS)
إذا كان TypeName (xRgS) <> "لا شيء" ثم
تعيين xRgD = لا شيء
تعيين xRgD = النطاق (xStrD)
إذا كان TypeName (xRgD) <> "لا شيء" ثم
إذا كان TypeName (Intersect (xRgS، Target)) <> "Nothing" ثم
xRgD.Value = xRgD.Value + 1
إنهاء حالة
إنهاء حالة
إنهاء حالة
التالى
نهاية الفرعية
رد
0
0
كريستال
كريستال     JT
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا JT ،
شكرا لك على ملاحظاتك. هناك شيء خاطئ في الكود الأصلي. يمكنك تجربة الكود الجديد التالي.
الرقم 4 في هذه الكذبة: Set xRight = Target.Offset (0 ، 4) يعني أن 4 أعمدة للإزاحة إلى يمين مرجع البداية (مرجع البداية هو A4: A17). بعد إزاحة 4 أعمدة إلى اليمين ، سيتم إخراج النتائج في E4: E17.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20221010
    Dim xRight As Range

    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("A4:A17")) Is Nothing Then Exit Sub
    Set xRight = Target.Offset(0, 4)
    If TypeName(xRight.Value) = "Double" Then
        xRight.Value = xRight.Value + 1
    ElseIf TypeName(xRight.Value) = "Empty" Then
        xRight.Value = 1
    End If

End Sub
رد
بلغ
0
0
ديمتريوس
ديمتريوس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل هناك طريقة لإعادة العد لأي رقم أريده؟ على سبيل المثال: لقد أجريت 5 نقرات ، لكنني أردت فقط 3. لذلك قمت بتغيير الرقم في الخلية إلى 3 ، وعندما أنقر مرة أخرى ، استمر من 3.
شكرا على الرمز!
رد
0
0
كريستال
كريستال     ديمتريوس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
عذرًا ، لا يمكنني مساعدتك في ذلك ، مرحبًا بك لنشر أي سؤال حول Excel في منتدانا: https://www.extendoffice.com/forum.html. ستحصل على المزيد من دعم Excel من المحترفين أو محبي Excel الآخرين.
رد
بلغ
0
0
أندرو
أندرو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حولا
Hay alguna manera de programar el conteo de clicks de acuerdo a la fecha، es decir programar varias celdas para que cuenten con la fecha del día؟
رد
0
0
باربرا
باربرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك توفير رمز يسمح بعد النقرات من خلايا A2 و B2 عبر خلايا A14 و B14. شكرا لك مقدما.
رد
0
0
كريستال
كريستال     باربرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا باربرا،
هل تقصد حساب إجمالي النقرات في النطاق A2: B14؟ أو نقرات لكل خلية في النطاق A2: B14؟
رد
بلغ
0
0
رينان فارياس
رينان فارياس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كومو زرار معدي؟ كيف تعيد النتيجة؟
رد
0
0
كريستال
كريستال     رينان فارياس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
إذا كنت ترغب في إعادة تعيين العداد ، يرجى إضافة رمز VBA أدناه في نهاية الكود الأصلي الذي تم توفيره أعلاه ، ثم قم بتشغيله.

Sub ClearCount ()
xRgD.Value = ""
xNum = 0
نهاية الفرعية
رد
بلغ
0
0
يوني فايس 324
يوني فايس 324
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحاول إيجاد طريقة لحساب عدد المرات التي يتم فيها النقر على 20 خلية مختلفة (يجب حساب كل خلية على حدة). صادفت اقتراح رمز VBA الخاص بك ، وحاولت تعديله وفقًا لاحتياجاتي الخاصة ولكنه لم ينجح. هل يمكنك توضيح كيفية كتابة الكود؟ الخلايا التي أود حسابها والخلايا التي يجب أن تظهر فيها القيم هي: F12> AU12، F13> AU13، G12> AV12، G13> AV13، H10> AW10، H11> AW11، H12> AW12، H13> AW13 ، H14> AW14، H15> AW15، I10> AX10، I11> AX11، I12> AX12، I13> AX13، I14> AX14، I15> AX15، J12> AY12، J13> AY13، K12> AZ12، K13> AZ13).
هذا هو رمز VBA الذي جربته دون نجاح:

تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
خافت xRgArray كمتغير
خافت xNum
خافت xStrR ، xStrS ، xStrD كسلسلة
خافت xRgS ، xRgD كنطاق

خافت xFNum وطول
xRgArray = Array ("F12، AU12"، "F13، AU13"، "G12، AV12"، "G13، AV13"، "H10، AW10"، "H11، AW11"، "H12، AW12"، "H13، AW13 "،" H14، AW14 "،" H15، AW15 "،" I10، AX10 "،" I11، AX11 "،" I12، AX12 "،" I13، AX13 "،" I14، AX14 "،" I15، AX15 "، "J12، AY12"، "J13، AY13"، "K12، AZ12"، "K13، AZ13")
على خطأ استئناف التالي
إذا كان Target.Cells.Count> 1 ثم اخرج من Sub
بالنسبة إلى xFNum = LBound (xRgArray) إلى UBound (xRgArray)
xStrR = xRgArray (xFNum)
xStrS = ""
xStrS = يسار (xStrR، 2)
xStrD = ""
xStrD = يمين (xStrR، 2)
تعيين xRgS = لا شيء
تعيين xRgS = النطاق (xStrS)
إذا كان TypeName (xRgS) <> "لا شيء" ثم
تعيين xRgD = لا شيء
تعيين xRgD = النطاق (xStrD)
إذا كان TypeName (xRgD) <> "لا شيء" ثم
إذا كان TypeName (Intersect (xRgS، Target)) <> "Nothing" ثم
xRgD.Value = xRgD.Value + 1
إنهاء حالة
إنهاء حالة
إنهاء حالة
التالى
نهاية الفرعية

شكرا لكم مقدما على مساعدتكم.
رد
بلغ
0
0
كريستال
كريستال     يوني فايس 324
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، يمكن أن يساعد الكود أدناه. يرجى المحاولة. شكرًا لك. تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
خافت xRgS ، xRgD كنطاق
خافت xStrRg كسلسلة
خافت xFNum كعدد صحيح
خافت xArr1 ، xArr2
إذا كان Target.Cells.Count> 1 ثم اخرج من Sub
xStrRg = "F12-AU12; F13-AU13; G12-AV12; G13-AV13; H10-AW10; H11-AW11; H12-AW12; H13-AW13; H14-AW14; H15-AW15; I10-AX10; I11-AX11; I12-AX12; I13-AX13; I14-AX14; I15-AX15; J12-AY12; J13-AY13; K12-AZ12; K13-AZ13"
على خطأ استئناف التالي
xArr1 = انقسام (xStrRg، "؛")
بالنسبة إلى xFNum = 0 إلى UBound (xArr1)
xArr2 = انقسام (xArr1 (xFNum) ، "-")
تعيين xRgS = النطاق (xArr2 (0))
تعيين xRgD = النطاق (xArr2 (1))
إذا لم يكن (تقاطع (xRgS ، الهدف) لا شيء) إذن
xRgD.Value = xRgD.Value + 1
إنهاء حالة
التالى
نهاية الفرعية
رد
بلغ
0
0
كين ح
كين ح     كريستال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعد الكود المصحح أعلاه رائعًا للورقة التي أعمل معها ، شكرًا لك. لكن لدي سؤال حول إضافة ماكرو الوقت بحيث ينتقل العدد كل يوم (باستثناء عطلات نهاية الأسبوع) إلى الصف التالي في الورقة على سبيل المثال:
الصف 3 - 7/1/2021 "B1-B3 ؛ C1-C3 ؛ D1-D3" الصف 4 - 7/2/2021 "B1-B4 ؛ C1-C4 ؛ D1-D4" الصف 5 - 7/3/2021 "B1-B5 ؛ C1-C5 ؛ D1-D5"
رد
0
0
KeHGC
KeHGC     كريستال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كريستال ، الكود أعلاه رائع للورقة التي أعمل بها ، شكرًا لك. لكن لدي سؤال حول إضافة ماكرو الوقت بحيث ينتقل العدد كل يوم (باستثناء عطلات نهاية الأسبوع) إلى الصف التالي في الورقة على سبيل المثال:

الصف 3 - 7/1/2021 "B1-B3 ؛ C1-C3 ؛ D1-D3"
الصف 4 - 7/2/2021 "B1-B4 ؛ C1-C4 ؛ D1-D4"
الصف 5 - 7/3/2021 "B1-B5 ؛ C1-C5 ؛ D1-D5"

إذا كان هذا ممكنا؟ تشك ، كين
رد
بلغ
0
0
أندي
أندي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا لك على رموز VBA هذه تقريبا العمل من أجل احتياجاتي. أخشى أن حقيقة أنني بحاجة إلى تجاوز رقمين تعني أنه لن ينجح. أحتاج إلى C8 حتى C110 وعداد العد المقابل من L8 إلى L110. هل يمكنك المساعدة؟ شكرا كثيرا مسبقا.
رد
0
0
كريستال
كريستال     أندي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Andy ، يمكن أن تقدم لك شفرة VBA التالية خدمة. يرجى المحاولة. تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
خافت xRgS ، xRgD كنطاق
خافت xStrRg كسلسلة
خافت xCStr ، xVStr كسلسلة
Dim xItem As Integer
xCStr = "C8: C110نطاق الخلايا الذي تريده لتسجيل نقرات كل خلية
xVStr = "L8: L110نطاق الخلايا المراد وضع السجلات فيه
تعيين xRgS = النطاق (xCStr)
تعيين xRgD = النطاق (xVStr)
إذا لم يكن (تقاطع (xRgS ، الهدف) لا شيء) إذن
xItem = Target.Row - xRgS.Item (1) .Row + 1
xRgD.Item (xItem) .Value = xRgD.Item (xItem) .Value + 1
إنهاء حالة
نهاية الفرعية
رد
بلغ
0
0
سيد
سيد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة للتراجع عن عدد العد؟ على سبيل المثال: لقد أجريت 5 نقرات ، لكنني أردت فقط 3. لذلك قمت بتغيير الرقم في الخلية إلى 3 ، وعندما أقوم بالنقر مرة أخرى ، يستمر من 3. أو لدي القدرة على الضغط على خلية أخرى وتقليل العدد بمقدار 1 إذا كان ذلك أسهل.
رد
0
0
من الفرن
من الفرن
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
تعليق من قبل j'aimerai je pourrais le nombre de clics sur les cellules D10 à M10 et le retranscrire à la ligne R10 et le faire pour toutes les lignes suivante donc compter les clics sur les cellules D11 à M11 et le transcrire à la ligne R11 etc إلخ ؟

تحياتي
رد
0
0
كريستال
كريستال     من الفرن
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا DUFOUR ،
لحساب عدد النقرات من D10 إلى M10 وإخراج العدد الإجمالي للنقرات في R10 ، يمكنك تطبيق رمز VBA التالي لإنجازه.
ملاحظة: في الكود ، النطاق "D10: M30"يعني أن الكود يعمل فقط من الصف 10 إلى الصف 30 ، لذا يرجى تحديد الصفوف التي تريد عدها.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220609
    Dim xNum As Long
    Dim xRgCount, xRg As Range
    
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub

    Set xRg = Range("D10:M30")
    If Intersect(xRg, Target) Is Nothing Then Exit Sub
    Set xRgCount = Range("R" & Target.Row)
    
    If IsNumeric(xRgCount.Value) Then
        xNum = xRgCount.Value + 1
    Else
        xNum = 1
    End If
    xRgCount.Value = xNum
End Sub
رد
بلغ
0
0
خوسيه ماريا
خوسيه ماريا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أولا. موكاس جراسياس بور لوس كوديجوس.
Me gustaría saber cómo contar las veces que se hace clic sobre un enlace en una celda.
شكرا جزيلا.
رد
0
0
كريستال
كريستال     خوسيه ماريا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا خوسيه ماريا ،
لحساب عدد النقرات على ارتباط تشعبي ، يمكنك تجربة التعليمات البرمجية لـ VBA التالية.
افترض أن الارتباطات التشعبية موجودة في العمود A وتريد ملء عدد النقرات في الخلية المقابلة للعمود B (كما هو موضح في لقطة الشاشة أدناه)
يرجى وضع الكود التالي في نافذة ورقة العمل (الكود).

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updated by Extendoffice 20220805
    Dim Hyperlink As Range
    Set Hyperlink = Target.Range

    Hyperlink.Offset(0, 1) = Hyperlink.Offset(0, 1) + 1
End Sub

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/clicks_on_a_hyperlink.png
رد
بلغ
0
0
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
ضيف
النشر كضيف
الدخول
×
قيم المنشور:
إعادة تعيين
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL