Excel có khả năng tạo hình 3 chiều được không! (2 người xem)

[phuyen89]

Kính chào anh chị GPE
Có thể em đặt tiêu đề như vậy là chưa sát với điều em mô tả.
Nó như thế này.Cho em hỏi Excel có khả năng vẻ hình lập phương được không ah.
Ví dụ: em có 3 thông số là Chiều cao, chiều dài và chiêu rộng thì làm thế nào để mô phòng ra hình dạng của nó.
Nếu Excel không làm được điều này thì giải pháp nào cho trường hợp này ah. Mong các anh/ chị thành viên giúp đỡ.!

 

[huuthang_bd]

Kính chào anh chị GPE
Có thể em đặt tiêu đề như vậy là chưa sát với điều em mô tả.
Nó như thế này.Cho em hỏi Excel có khả năng vẻ hình lập phương được không ah.
Ví dụ: em có 3 thông số là Chiều cao, chiều dài và chiêu rộng thì làm thế nào để mô phòng ra hình dạng của nó.
Nếu Excel không làm được điều này thì giải pháp nào cho trường hợp này ah. Mong các anh/ chị thành viên giúp đỡ.!

Vẽ thì vẽ được nhưng vì là hình 3D nên kích thước chỉ tương đối thôi chứ đâu có chính xác được, tùy vào góc nhìn nữa.

Nhưng hình lập phương thì cao, rộng, dài đều bằng nhau chứ đâu có đến 3 thông số đâu bạn.

 

[phuyen89]

dạ anh. Đây là ảnh vẻ bằng cách định dạng bảng, vậy ngoài cách thủ công này,có cách nào mang tính linh động hơn không.Chẳn hạn khi thay đôi thông số độ dài, cao, rộng thì nó sẽ chạy lại chẳn hạn. Anh có giải pháp nào nữa không!

 

[nghiaphuc]

dạ anh. Đây là ảnh vẻ bằng cách định dạng bảng, vậy ngoài cách thủ công này,có cách nào mang tính linh động hơn không.Chẳn hạn khi thay đôi thông số độ dài, cao, rộng thì nó sẽ chạy lại chẳn hạn. Anh có giải pháp nào nữa không!

Vụ này có lẽ có thể vẽ được bằng biểu đồ, nhưng chắc phải nhờ đến sư phụ ptm0412 thôi.

 

[ndu96081631]

dạ anh. Đây là ảnh vẻ bằng cách định dạng bảng, vậy ngoài cách thủ công này,có cách nào mang tính linh động hơn không.Chẳn hạn khi thay đôi thông số độ dài, cao, rộng thì nó sẽ chạy lại chẳn hạn. Anh có giải pháp nào nữa không!

Thử code này xem:

Sub DrawCube(ByVal dSize As Double)
  On Error Resume Next
  With ActiveSheet
    .Shapes("tmpCube").Delete
    .Shapes.AddShape(msoShapeCube, 10, 10, dSize, dSize).Name = "tmpCube"
  End With
End Sub

Giờ muốn vẽ hình khối lập phương có kích thước = 50, ta viết thêm code khác:

Sub Main()
  DrawCube 50
End Sub

Xong!
Chạy Sub Main sẽ có kết quả
-----------------
Muốn vẽ hình khối chữ nhật, ta viết:

Sub DrawCube(ByVal dWidth As Double, ByVal dHeight As Double)
  On Error Resume Next
  With ActiveSheet
    .Shapes("tmpCube").Delete
    .Shapes.AddShape(msoShapeCube, 10, 10, dWidth, dHeight).Name = "tmpCube"
  End With
End Sub

Sub Main()
  DrawCube 200, 100
End Sub

Trên Excel, chiều sâu chỉ mang tính tham khảo (để nhìn cho có vẻ 3D) nên ta không quan tâm, chỉ cần đưa 2 kích thước dài, rộng vào code là được rồi

 

[hoangminhtien]

Bạn xem cách vẽ bằng biểu đồ xem sao

 

[Good-Luck]

Kính chào anh chị GPE
Có thể em đặt tiêu đề như vậy là chưa sát với điều em mô tả.
Nó như thế này.Cho em hỏi Excel có khả năng vẻ hình lập phương được không ah.
Ví dụ: em có 3 thông số là Chiều cao, chiều dài và chiêu rộng thì làm thế nào để mô phòng ra hình dạng của nó.
Nếu Excel không làm được điều này thì giải pháp nào cho trường hợp này ah. Mong các anh/ chị thành viên giúp đỡ.!

nếu bạn biết về CAD thì bạn có thể kết hợp cad với excel mà

 

[phuyen89]

Bạn xem cách vẽ bằng biểu đồ xem sao

Làm bằng Excel rất tuyệt vời, để em nghiên cứu cách làm. Có gì chưa hiểu xin nhờ anh giúp thêm!

 

[ptm0412]

Bạn xem cách vẽ bằng biểu đồ xem sao

Theo hiệu ứng 3D, để cho chiều sâu có vẻ như bị giảm kích thước, thì chiều sâu cần làm giảm nhỏ lại theo 1 tỷ lệ "thử". Nếu không ta sẽ có cảm giác 25 gần bằng 30
Chẳng hạn như thay J11 =C3/SQRT(2) thành J11 =C3/2
Sẽ thấy sự khac biệt.