smail_d

بسم الله الرحمن الرحيم عدد الرسالات الممكنة " هنا خمس رسالات " Sub LeForToNext() Dim Banane For Banane = 1 To 5 MsgBox " خيالي " Next End Sub

كلمة المرور Sub TestLoop5() Dim Reponse As String Reponse = InputBox("ادخل كلمة المرور") Do While Reponse <> "اسماعيل" Reponse = InputBox("الكلمة غير صحيحة: حاول مرة ثانية") Loop End Sub

بسم الله الرحمن الرحيم تكرار الجملة في العمود Sub Test() Dim Ctr As Integer For Ctr = 1 To 10 Cells(Ctr, 1) = "بسم الله الرحمن الرحيم" Next End Sub

بسم الله الرحمن الرحيم Sub ComptageDesFeuilles() MsgBox Worksheets.Count End Sub

مشكور يأخي الكريم أي وورد تقصد

مشكور اخي الكريم

تلوين الخلية عند تحديدها بأحد الألوان Option Explicit Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Static OldCell As Range If Not OldCell Is Nothing Then OldCell.Interior.ColorIndex = xlColorIndexNone End If Target.Interior.ColorIndex = 5 Set OldCell = Target End Sub

الكتابة في أحدى الخلايا عن طريق الرسالة Sub EingabeUeberInputbox() Dim wert01 As String wert01 = InputBox("ماذا تريد أن تكتب فيى الخلية ", "لا تريد الكتابة ") Range("a1").Value = wert01 End Sub

نقل محتوى الخلايا بما فيها الى خلايا اخري Sub PLzTrennen() Range("d2").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(0, -3).Value = Left(ActiveCell.Value, 5) ActiveCell.Value = Mid(ActiveCell.Value, 7, 100) ActiveCell.Offset(1, 0).Select Loop End Sub

خروج من الاكسيل Sub Excel_beenden() Application.Quit End Sub

حذف الاطار الخارجير للاكسيل أي تكبير Sub AnsichtGanzerBildschirm() Application.DisplayFullScreen = True End Sub

يتبع هذا الكود يعطي لك كل حرف على حدى في الجملة Sub CompteVoyelle() Dim Phrase As String Phrase = "بسم الله الرحمن الرحيم" For Compteur = 1 To Len(Phrase) MsgBox Mid(Phrase, Compteur, 1) Next End Sub

فتح الملفات مع جميع اللاواحق Sub OuvreFichier3() Dim QuelFichier QuelFichier = Application.GetOpenFilename("Fichiers Visual Basic,*.bas;*.txt, Trucs Excel, *.xls;*.xlt;*.xla") MsgBox QuelFichier End Sub

صندوق فتح الملفات مع حوار Sub OuvreFichier2() Dim QuelFichier QuelFichier = Application.GetOpenFilename() If QuelFichier <> False Then MsgBox QuelFichier Else MsgBox "انت لم تختار اي ملف" End If End Sub

فتح الملفات Sub ChoixFichier() Application.GetOpenFilename ("Textes purs, *.txt,Fichiers office, *.xls;*.doc;*.ppt") End Sub

صندق التنسيق الشرطي Sub FormatConditionnel() SendKeys ("{TAB}{TAB}2{TAB}7") Application.Dialogs(xlDialogConditionalFormatting).Show End Sub

صندوق تكبير و تصغير Sub MacroQuelconque() Application.Dialogs(xlDialogZoom).Show End Sub

ترقيم المجال بالتسلسل Sub test() For Ctr = 1 To 5 Range("A5:A10")(Ctr) = Ctr Next End Sub

كتابة كلمة او جملة في المجال و رقم الصف Sub Test() Dim Ctr As Integer Range("A5:A10")(1) = "Trois" End Sub

تكرار الجملة في المجال Sub Test() Dim Ctr As Integer Range("A5:A10") = "بسم الله الرحمن الرحيم" End Sub

تكرار الكلمة في الاعمدة Sub Test() Dim Ctr As Integer For Ctr = 1 To 10 Cells(Ctr, 1) = "ca marche" Next End Sub

الكتابة في الخلية Sub Test() Cells(4, 2) = "بسم الله الرحمن الرحيم" End Sub

الكتابة في الخلايا Sub Test() Cells(4, 2) = "بسم الله الرحمن الرحيم" End Sub [/php]

بسم الله الرحمن الرحيم الكود التالي "عمليات حسابية " Sub CalculMentalV9() Dim N1 As Integer Dim N2 As Integer Dim Reponse Randomize MsgBox "عمليات حسابية" ' حساب : N1 = Int((100 * Rnd) + 1) N2 = Int((100 * Rnd) + 1) Reponse = InputBox("احسب القيمة التالية " & N1 & " + " & N2 & " ?") If Reponse = N1 + N2 Then MsgBox "اجابة صحيحة !" Else MsgBox "اجابة خاطئة ... الاجابة الصحيحة هي " & N1 + N2 End If ' المثال الثاني : N1 = Int((100 * Rnd) + 1) N2 = Int((100 * Rnd) + 1) Reponse = InputBox("كم تساوي " & N1 & " + " & N2 & " ?") If Reponse = N1 + N2 Then MsgBox "اجابة صحيحة خيالي !" Else MsgBox "اجابة خاطئة ... الاجابة الصحيحة هي " & N1 + N2 End If ' ثالث مثال : N1 = Int((100 * Rnd) + 1) N2 = Int((100 * Rnd) + 1) Reponse = InputBox("احسب التالي " & N1 & " + " & N2 & " ?") If Reponse = N1 + N2 Then MsgBox "اجابة صحيحة انت لك مستقبل زاهر في الاكسل !" Else MsgBox "اجابة خاطئة ... الاجابة الصحيحة هي " & N1 + N2 End If 'رابع مثال : N1 = Int((100 * Rnd) + 1) N2 = Int((100 * Rnd) + 1) Reponse = InputBox("احسب مايلي " & N1 & " + " & N2 & " ?") If Reponse = N1 + N2 Then MsgBox "اجابة صحيحة بارع !" Else MsgBox "اجابة خاطئة ... الاجابة الصحيحة هي " & N1 + N2 End If MsgBox "شكرا لك تحياتنا في منتدى أوفسينا" End Sub

الكود المالي عملية الجمع تستطيع استعمال زر للعملية Sub CalculMentalV7() Dim N1, N2 Dim Reponse ' Stockage de la réponse de l'utilisateur Randomize MsgBox "اهلا بك في برنامج الحساب عملية الجمع" N1 = Int((100 * Rnd) + 1) N2 = Int((100 * Rnd) + 1) Reponse = InputBox("كم تساوي لو جمعنا " & N1 & " + " & N2 & " ?") If Reponse = N1 + N2 Then MsgBox "اجابة صحيحة هائل !" Else MsgBox "اجابة خاطئة ... الاجابة الصحيحة هي " & N1 + N2 End If MsgBox "شكرا في المرة اللاحقة" End Sub