Jump to content
أوفيسنا

سليم حاصبيا

Officena Team
  • Content Count

    8,393
  • Joined

  • Days Won

    237

سليم حاصبيا last won the day on January 13

سليم حاصبيا had the most liked content!

Community Reputation

7,927 Excellent

About سليم حاصبيا

  • Rank
    فريق الموقع
  • Birthday 03/08/1985

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    استاذ ثانوي
  • Location
    beiruth
  • Interests
    eXCEL

Recent Profile Visitors

12,124 profile views
  1. الكود الصحيح Sub button1_click() Dim last_E As Integer Dim last_L As Integer Dim col% last_E = Sheets("entry").Cells(Rows.Count, "K").End(3).Row last_L = Sheets("list").Cells(Rows.Count, 1).End(3).Row + 1 col = 15 Sheets("list").Cells(last_E, 1).Resize(last_E - 2, col).Value = _ Sheets("entry").Cells(3, "K").Resize(last_E - 2, col).Value End Sub hamdy.xlsm
  2. أولاً - الخطأ في هذه العبارة Range("A10:A12").Select لأنك أخفيت العامود A فكبف تريد ان تحدد خلايا منه؟؟؟؟ ثانباً - لا داعي لهذه الكمية من الأوامر Select التي لا حاجة لها ضع النطاق الدي تريده في المريع الأحمر فقط ونفذ الكود (الصورة) ولك الحيار في Protect و Unprotect
  3. حرب هذا الملف (تم اعادة نسمية الأوراق باللغة الأجنبية لحسن عمل المعادلات) CONARS_1.xlsx
  4. ألوان فاقعة وخلايا مدمجة (لأ استطيع العمل على هكذا ملف) أعتذر
  5. عندي عادة في الأكواد لا استعمل اللغة العربية لذلك استبدل المربع الأحمر بالمربع الأزرق (الصورة) الملف مرفق happy_New.xlsm
  6. ممناز استاذ ابراهيم لكن كي لا تكون النتيجة بشكل تاريخ بوجود علامة "/" مثلاً jun 02 يجب ادراح السطر في المربع الأحمر من الصورة
  7. تم التعديل Option Explicit Dim lr% Dim How_many Dim Sh As Worksheet Dim i%, k%, x '+++++++++++++++++++++++++++++++ Sub Begining() Set Sh = Sheets("Media") lr = Sh.Cells(Rows.Count, 2).End(3).Row If Val(Sh.Cells(1, "k")) < 1 _ Or Sh.Cells(1, "k") > lr - 1 Then How_many = 10 Else How_many = Int(Sh.Cells(1, "k")) End If Sh.Cells(1, "k") = How_many End Sub '+++++++++++++++++++++++++++++++ Private Sub cmd_reset_Click() Me.ListBox1.Clear UserForm_Initialize End Sub '++++++++++++++++++++++++++++++++++++ Private Sub Cmd_Show_Click() Begining Dim t: t = 1 If lr < How_many + 1
  8. الصفحة يحب ان يبدو هكذا (الصورة) ( الصفحة test من هذا الملف) (ثم لماذا لا نستطيع التحرك في الصفحة M1 لرؤية الخلية A100 مثلاً) ABC.xlsx
  9. معذرة لا أعمل على الخلابا المدمجة
  10. Dim Reponse% If m <> 0 Then Reponse = MsgBox("الرقم مكرر هل تريد المتابعة: " & Chr(10) & _ Join(arr, " ; "), 524292) If Reponse <> 6 Then Exit Sub End If
  11. جرب هذا الكود Option Explicit Sub colorize() Dim lr%, i% Const n = 35 Const Mot = "Saturday" With Sheets("My_sheet") lr = .Cells(Rows.Count, 1).End(3).Row .Range("A1:A" & lr).Interior.ColorIndex = xlNone For i = 1 To lr If .Cells(i, 1) = Mot Then .Cells(i, 1).Interior.ColorIndex = n End If Next End With End Sub الملف مرفق Sayaed.xlsm
×
×
  • Create New...