تبدیل ماتریس n درn به یک ماتریس ستونی

[میثم66]

برنامه ای بنویسید که ماتریس اعداد دلخواهی را از محیط اکسل خوانده و سطر به سطر آن را در یک ستون به دنبال هم چاپ کند.مثل ماتریس زیر.

ورودی

3 2 1

6 5 4

9 8 7
خروجی
1
2
3
4
5
6
7
8
9

[Amir Ghasemiyan]

برنامه ای بنویسید که ماتریس اعداد دلخواهی را از محیط اکسل خوانده و سطر به سطر آن را در یک ستون به دنبال هم چاپ کند.مثل ماتریس زیر.

ورودی

3 2 1

6 5 4

9 8 7
خروجی
1
2
3
4
5
6
7
8
9

اينم براي اين سوالتون:

Sub meisam()
i = 1
For Each cel In Range("A1:C3")
  Range("D" & i).Value = cel.Value
  i = i + 1
Next cel
End Sub

[میثم66]

اينم براي اين سوالتون:

Sub meisam()
i = 1
For Each cel In Range("A1:C3")
  Range("D" & i).Value = cel.Value
  i = i + 1
Next cel
End Sub

با تشکر.اینو شما فقط برای همین ماتریس نوشتید برای ماتریس های دیگه چی؟ اگه بخوام از دو حلقه for استفاده کنیم چجوری میشه؟مثلا i و j.جور دیگه چجوری میشه.

[Amir Ghasemiyan]

با تشکر.اینو شما فقط برای همین ماتریس نوشتید برای ماتریس های دیگه چی؟ اگه بخوام از دو حلقه for استفاده کنیم چجوری میشه؟مثلا i و j.جور دیگه چجوری میشه.

براي ماتريس هاي ديگه بايد محدوده رو تغيير بدين ديگه. اين كه واضحه.
اگر بخواين با حلقه هاي تو در تو بنويسين به اينصورت در مياد:

Sub meisam()
For i = 1 To 3
    For j = 1 To 3
        k = k + 1
        Range("D" & k).Value = Cells(i, j).Value
    Next j
Next i
End Sub

[میثم66]

 k = k + 1
        Range("D" & k).Value = Cells(i, j).Value 

این خط تو ضیح فارسیش چی میشه؟
بجای عدد3 . n گزاشتم جواب نداد

[Amir Ghasemiyan]

 k = k + 1
        Range("D" & k).Value = Cells(i, j).Value 

این خط تو ضیح فارسیش چی میشه؟
بجای عدد3 . n گزاشتم جواب نداد

اول از همه بايد بدونين كه آدرس دادن در اكسل دو روش داره. يك آدرس به اين صورت هست: A1 و يك آدرس به اين صورت : 1,1
هر دو به سلول A1 اشاره دارن.
اينجا هم بر اساس نياز از هر دو روش آدرس دهي استفاده كردم
range("D"&k) يعني سلول D1 يا D2 يا D3 يا ... كه بستگي به مقدار k داره
cells(i,j) هم بستگي به مقدار i و j به سلول هاي مختلفي اشاره ميكنه. مثلا 1,1 يا 1,2 يا 1,4 يا 3,4 يا ...

در اينجا هم گفتيم كه هر چي مقدار در سلول مثلا 1,1 هست بريز تو سلول D1 و به همين ترتيب

[میثم66]

اول از همه بايد بدونين كه آدرس دادن در اكسل دو روش داره. يك آدرس به اين صورت هست: A1 و يك آدرس به اين صورت : 1,1
هر دو به سلول A1 اشاره دارن.
اينجا هم بر اساس نياز از هر دو روش آدرس دهي استفاده كردم
range("D"&k) يعني سلول D1 يا D2 يا D3 يا ... كه بستگي به مقدار k داره
cells(i,j) هم بستگي به مقدار i و j به سلول هاي مختلفي اشاره ميكنه. مثلا 1,1 يا 1,2 يا 1,4 يا 3,4 يا ...

در اينجا هم گفتيم كه هر چي مقدار در سلول مثلا 1,1 هست بريز تو سلول D1 و به همين ترتيب

خب اینجا k چه نقشی داره ؟

[Amir Ghasemiyan]

خب اینجا k چه نقشی داره ؟

يكم كد رو نگاه كنيد. حرف هايي كه زدم روش فكر كنيد متوجه ميشيد k چه نقشي داره

[میثم66]

يكم كد رو نگاه كنيد. حرف هايي كه زدم روش فكر كنيد متوجه ميشيد k چه نقشي داره

مقدار k با j یکی هست .وقتی تو ستون دوم سطر اول هستیم k میشه 2.این یعنی دومین عدد هست؟

[Amir Ghasemiyan]

مقدار k با j یکی هست .وقتی تو ستون دوم سطر اول هستیم k میشه 2.این یعنی دومین عدد هست؟

نه دوست عزيز اين دو مقدار هيچ ربطي به هم ندارن. ممكنه در بعضي مواقع با هم برابر بشن ولي اين دليل نميشه كه بگين اين دو تا يكي هست
در مورد قسمت دوم سوالتون هم بايد بگم بله. يعني دومين عدد

[میثم66]

چاپ سطری

چاپ یک ماتریس در یک سطر ؟

[Amir Ghasemiyan]

چاپ یک ماتریس در یک سطر ؟

يني چي الان؟ چكارش كنم؟
شما حتي حاضر نيستي براي سوالت وقت بذاري و كامل توضيح بدي. بعد انتظار داري جواب هم بگيري؟

[میثم66]

يني چي الان؟ چكارش كنم؟
شما حتي حاضر نيستي براي سوالت وقت بذاري و كامل توضيح بدي. بعد انتظار داري جواب هم بگيري؟

توضیح چی ؟گفتم چاپ یک ماتریس در یک سطر.مثلا
3 2 1
6 5 4
9 8 7
به این صورت چاپ کنه؟
9 8 7 6 5 4 3 2 1
همین.

[Amir Ghasemiyan]

توضیح چی ؟گفتم چاپ یک ماتریس در یک سطر.مثلا
3 2 1
6 5 4
9 8 7
به این صورت چاپ کنه؟
9 8 7 6 5 4 3 2 1
همین.

سوالتون در ادامه سوال قبليتون بود. با تاپيك قبلي ادغام شد.

[Amir Ghasemiyan]

چاپ یک ماتریس در یک سطر ؟

و اما جواب سوالتون:

Sub meisam()
For i = 1 To 3
    For j = 1 To 3
        k = k + 1
        Cells(3,k).Value = Cells(i, j).Value
    Next j
Next i
End Sub

يعني در سطر 3ام و ستون هاي 1 و 2 و 3 و ...
Cells(3,k).Value