23-11-18, 09:16 AM
السلام عليكم اخواني
عندي بعض ارقام في ملف اكسل . من اخذ نسخ واروح في برنامج واشغل المشروع وافتح داتا كريد فيو واسوي لصق يجيب فقط رقم واحد شنو الحل لو سمحتو
23-11-18, 09:16 AM
23-11-18, 03:44 PM
(23-11-18, 09:16 AM)kaiser_noori كتب : [ -> ]
السلام عليكم اخواني
عندي بعض ارقام في ملف اكسل . من اخذ نسخ واروح في برنامج واشغل المشروع وافتح داتا كريد فيو واسوي لصق يجيب فقط رقم واحد شنو الحل لو سمحتو
العفو ماكو جواب لهذا سوال
23-11-18, 05:25 PM
جرب انقر على اعلا الداتاقريد في اليسار في المربع الصغير بجوار ICCID
ليتم تحديد كامل للداتاقريد ثم اعمل لصق .
ليتم تحديد كامل للداتاقريد ثم اعمل لصق .
23-11-18, 07:55 PM
(23-11-18, 05:25 PM)حريف برمجة كتب : [ -> ]جرب انقر على اعلا الداتاقريد في اليسار في المربع الصغير بجوار ICCID
ليتم تحديد كامل للداتاقريد ثم اعمل لصق .
مافي نتيجه أخي
26-11-18, 03:29 AM
السبب لانك تقوم بعمل تحرير للخلية لتتمكن من عمل الكلك اليمين
حتى تتمكن من عمل اللصق وبما خلية مستقلة فطبيعي سياخذ رقم واحد فقط
الحل الصح اما ان تقوم بعمل استدعاء ملف الاكسل وجلب منه العمود لادراجه فى الداتا جريد
أو ان تقوم بعمل لصق للعمود المنسوخ فى TextBox مفعل خصائص Multiline
من ثم عمل كود For لاخز قيمة كل سطر من TextBox ليقوم بعمل اضافة لها فى الداتا جريد
تحياتى لك
وتمنياتى لك التوفيق
26-11-18, 11:25 PM
PHP كود :
Private Sub PasteClipboard(ByVal lstx As DataGridView)
lstx.Rows.Clear()
lstx.Columns.Clear()
For im = lstx.Columns.Count - 1 To 0 Step -1
lstx.Columns.RemoveAt(im)
Next
Dim s As String
Dim i, ii As Integer
Dim arT() As String
Try
s = Clipboard.GetText()
Dim tArr() As String = s.Split(ControlChars.NewLine)
arT = tArr(0).Split(vbTab)
Dim word As String
For Each word In arT
lstx.Columns.Add(word, word)
Next
Dim cc, iRow, iCol As Integer
For i = 1 To tArr.Length - 2
lstx.Rows.Add("")
If tArr(i) <> "" Then
arT = tArr(i).Split(vbTab)
cc = iCol
For ii = 0 To arT.Length - 1
If cc > lstx.ColumnCount - 1 Then Exit For
If iRow > lstx.Rows.Count - 1 Then Exit Sub
With lstx.Item(cc, iRow)
.Value = arT(ii).TrimStart
End With
cc = cc + 1
Next
iRow = iRow + 1
End If
Next
Catch ex As Exception
MsgBox("Please redo Copy and Click on cell")
End Try
End Sub