اريد وضع معادلة جمع بين اعمدة الاكسيل لحساب القيم من داخل الفيجول بيسك يعني عندي عمود 1 2 3 اريد جمع كل خلية من 1 مع 2 والناتج في 3 ويحفظ المعادلة داخل الاكسيل
حتي بعد غلق برنامجي بالفيجول بيسك وتجميد اعمدة المعادلات
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
هذا كود سريع سوف يقوم بوضع قيمة 7 في الخلية A1
وبعدها يضع القيمة 8 في الخلية B1
والآن نضع معادلة الجمع في الخلية C1 والتي ستكون =A1+B1
كود :
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim App_exl As Excel.Application = CreateObject("Excel.Application")
Dim App_Wrk As Excel.Workbook = App_exl.Workbooks.Add
Dim App_wst As Excel.Worksheet = App_Wrk.Worksheets.Item(1)
App_wst.Range("A1").Value = 7
App_wst.Range("B1").Value = 8
App_wst.Range("C1").Value = "=A1+B1"
App_exl.Visible = True
End Sub
End Class
بالتوفيق
اخي انا اريد جمع اعمدة مع بعض وهي نسخ المعادلة للعمود ككل
MAZEN كتب :اخي انا اريد جمع اعمدة مع بعض وهي نسخ المعادلة للعمود ككل
السلام عليكم ورحمة الله وبركاته
أخي الكريم تفضل هذا الكود سيقوم بفتح ملف الإكسل ويقوم بإدخال المعادلة لجمع العمودين في العمود C
كود :
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FileName As String = Application.StartupPath & "\Book.xlsx" 'ضع اسم ملف الإكسل
Dim App_exl As Excel.Application = CreateObject("Excel.Application")
Dim App_Wrk As Excel.Workbook = App_exl.Workbooks.Open(FileName)
Dim App_wst As Excel.Worksheet = App_Wrk.Worksheets.Item(1)
For I = 1 To App_wst.UsedRange.Rows.Count
App_wst.Range("C" & I).Value = "=A" & I & "+B" & I
Next
App_Wrk.Save()
App_Wrk.Close()
App_exl.Quit()
End Sub
End Class
بالتوفيق
الكود شغال وتمام بس في مشكلة بسيطة اني المتغير i =2 وليس واحد عشان اسم column ميتغيرش
2- مشكلة الكود بس بيعمل اصفار يعني المعادلة ياريت يكون الكود لاخر صف
1 2 3
2 4 6
0
0
الكود شغال وتمام بس في مشكلة بسيطة اني المتغير i =2 وليس واحد عشان اسم column ميتغيرش
MAZEN كتب :الكود شغال وتمام بس في مشكلة بسيطة اني المتغير i =2 وليس واحد عشان اسم column ميتغيرش
2- مشكلة الكود بس بيعمل اصفار يعني المعادلة ياريت يكون الكود لاخر صف
1 2 3
2 4 6
0
0
السلام عليكم ورحمة الله وبركاته
أخي هل إذا أمكن أن ترفع لي ملف الإكسل أو مثال عليه لأنني بصراحة لم أفهم ما هو المطلوب في المشكلة رقم 2
بالتوفيق
هذا الكود بعد التعديل بحسب فهمي أرجو أن يكون صحيحا
كود :
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FileName As String = Application.StartupPath & "\Book.xlsx" 'ضع اسم ملف الإكسل
Dim App_exl As Excel.Application = CreateObject("Excel.Application")
Dim App_Wrk As Excel.Workbook = App_exl.Workbooks.Open(FileName)
Dim App_wst As Excel.Worksheet = App_Wrk.Worksheets.Item(1)
For I = 2 To App_wst.UsedRange.Rows.Count
If String.IsNullOrEmpty(App_wst.Range("A" & I).Value) = False AndAlso String.IsNullOrEmpty(App_wst.Range("B" & I).Value) = False Then
App_wst.Range("C" & I).Value = "=A" & I & "+B" & I
End If
Next
App_Wrk.Save()
App_Wrk.Close()
App_exl.Quit()
End Sub
End Class
بالتوفيق
شكرا اخي جزير الشكر علي المتابعة الملف دة الرابط لنتيجة الملف والمطلوب ليس تغير الخلية الفارغة ولكن عدم اجراء المعادلة الا علي صفوف الجدول وبانتهاء اخر صف تنتهي المعادلة ويتم الغاء الاصفار
يعني المعادلة تتم حتي اخر صف فقط مختار وليس حتي نهاية الجدول
واية سبب ان المعادلة تقف عند 39
باسورد abc
http://www.4shared.com/rar/N8J-HjgL/mazen.html