혹시 이코딩을 배열을 이용해서 간단히 만들수 잇을까요?
이퓨리한은지
Text3.Text = X
If A = 0.001 And B = 0.001 Then
MSFlexGrid1.TextMatrix(1, 1) = Round(X, 5)
ElseIf A = 0.001 And B = 0.5 Then
MSFlexGrid1.TextMatrix(1, 2) = Round(X, 5)
ElseIf A = 0.001 And B = 1# Then
MSFlexGrid1.TextMatrix(1, 3) = Round(X, 5)
ElseIf A = 0.001 And B = 2# Then
MSFlexGrid1.TextMatrix(1, 4) = Round(X, 5)
ElseIf A = 0.001 And B = 5# Then
MSFlexGrid1.TextMatrix(1, 5) = Round(X, 5)
ElseIf A = 0.001 And B = 7# Then
MSFlexGrid1.TextMatrix(1, 6) = Round(X, 5)
ElseIf A = 0.001 And B = 10 Then
MSFlexGrid1.TextMatrix(1, 7) = Round(X, 5)
ElseIf A = 0.001 And B = 20 Then
MSFlexGrid1.TextMatrix(1, 8) = Round(X, 5)
ElseIf A = 0.001 And B = 50 Then
MSFlexGrid1.TextMatrix(1, 9) = Round(X, 5)ElseIf A = 0.5 And B = 0.001 Then
MSFlexGrid1.TextMatrix(2, 1) = Round(X, 5)
ElseIf A = 0.5 And B = 0.5 Then
MSFlexGrid1.TextMatrix(2, 2) = Round(X, 5)
ElseIf A = 0.5 And B = 1# Then
MSFlexGrid1.TextMatrix(2, 3) = Round(X, 5)
ElseIf A = 0.5 And B = 2# Then
MSFlexGrid1.TextMatrix(2, 4) = Round(X, 5)
ElseIf A = 0.5 And B = 5# Then
MSFlexGrid1.TextMatrix(2, 5) = Round(X, 5)
ElseIf A = 0.5 And B = 7# Then
MSFlexGrid1.TextMatrix(2, 6) = Round(X, 5)
ElseIf A = 0.5 And B = 10 Then
MSFlexGrid1.TextMatrix(2, 7) = Round(X, 5)
ElseIf A = 0.5 And B = 20 Then
MSFlexGrid1.TextMatrix(2, 8) = Round(X, 5)
ElseIf A = 0.5 And B = 50 Then
MSFlexGrid1.TextMatrix(2, 9) = Round(X, 5)ElseIf A = 1# And B = 0.001 Then
MSFlexGrid1.TextMatrix(3, 1) = Round(X, 5)
ElseIf A = 1# And B = 0.5 Then
MSFlexGrid1.TextMatrix(3, 2) = Round(X, 5)
ElseIf A = 1# And B = 1# Then
MSFlexGrid1.TextMatrix(3, 3) = Round(X, 5)
ElseIf A = 1# And B = 2# Then
MSFlexGrid1.TextMatrix(3, 4) = Round(X, 5)
ElseIf A = 1# And B = 5# Then
MSFlexGrid1.TextMatrix(3, 5) = Round(X, 5)
ElseIf A = 1# And B = 7# Then
MSFlexGrid1.TextMatrix(3, 6) = Round(X, 5)
ElseIf A = 1# And B = 10 Then
MSFlexGrid1.TextMatrix(3, 7) = Round(X, 5)
ElseIf A = 1# And B = 20 Then
MSFlexGrid1.TextMatrix(3, 8) = Round(X, 5)
ElseIf A = 1# And B = 50 Then
MSFlexGrid1.TextMatrix(3, 9) = Round(X, 5)ElseIf A = 2# And B = 0.001 Then
MSFlexGrid1.TextMatrix(4, 1) = Round(X, 5)
ElseIf A = 2# And B = 0.5 Then
MSFlexGrid1.TextMatrix(4, 2) = Round(X, 5)
ElseIf A = 2# And B = 1# Then
MSFlexGrid1.TextMatrix(4, 3) = Round(X, 5)
ElseIf A = 2# And B = 2# Then
MSFlexGrid1.TextMatrix(4, 4) = Round(X, 5)
ElseIf A = 2# And B = 5# Then
MSFlexGrid1.TextMatrix(4, 5) = Round(X, 5)
ElseIf A = 2# And B = 7# Then
MSFlexGrid1.TextMatrix(4, 6) = Round(X, 5)
ElseIf A = 2# And B = 10 Then
MSFlexGrid1.TextMatrix(4, 7) = Round(X, 5)
ElseIf A = 2# And B = 20 Then
MSFlexGrid1.TextMatrix(4, 8) = Round(X, 5)
ElseIf A = 2# And B = 50 Then
MSFlexGrid1.TextMatrix(4, 9) = Round(X, 5)ElseIf A = 5# And B = 0.001 Then
MSFlexGrid1.TextMatrix(5, 1) = Round(X, 5)
ElseIf A = 5# And B = 0.5 Then
MSFlexGrid1.TextMatrix(5, 2) = Round(X, 5)
ElseIf A = 5# And B = 1# Then
MSFlexGrid1.TextMatrix(5, 3) = Round(X, 5)
ElseIf A = 5# And B = 2# Then
MSFlexGrid1.TextMatrix(5, 4) = Round(X, 5)
ElseIf A = 5# And B = 5# Then
MSFlexGrid1.TextMatrix(5, 5) = Round(X, 5)
ElseIf A = 5# And B = 7# Then
MSFlexGrid1.TextMatrix(5, 6) = Round(X, 5)
ElseIf A = 5# And B = 10 Then
MSFlexGrid1.TextMatrix(5, 7) = Round(X, 5)
ElseIf A = 5# And B = 20 Then
MSFlexGrid1.TextMatrix(5, 8) = Round(X, 5)
ElseIf A = 5# And B = 50 Then
MSFlexGrid1.TextMatrix(5, 9) = Round(X, 5)ElseIf A = 7# And B = 0.001 Then
MSFlexGrid1.TextMatrix(6, 1) = Round(X, 5)
ElseIf A = 7# And B = 0.5 Then
MSFlexGrid1.TextMatrix(6, 2) = Round(X, 5)
ElseIf A = 7# And B = 1# Then
MSFlexGrid1.TextMatrix(6, 3) = Round(X, 5)
ElseIf A = 7# And B = 2# Then
MSFlexGrid1.TextMatrix(6, 4) = Round(X, 5)
ElseIf A = 7# And B = 5# Then
MSFlexGrid1.TextMatrix(6, 5) = Round(X, 5)
ElseIf A = 7# And B = 7# Then
MSFlexGrid1.TextMatrix(6, 6) = Round(X, 5)
ElseIf A = 7# And B = 10 Then
MSFlexGrid1.TextMatrix(6, 7) = Round(X, 5)
ElseIf A = 7# And B = 20 Then
MSFlexGrid1.TextMatrix(6, 8) = Round(X, 5)
ElseIf A = 7# And B = 50 Then
MSFlexGrid1.TextMatrix(6, 9) = Round(X, 5)ElseIf A = 10 And B = 0.001 Then
MSFlexGrid1.TextMatrix(7, 1) = Round(X, 5)
ElseIf A = 10 And B = 0.5 Then
MSFlexGrid1.TextMatrix(7, 2) = Round(X, 5)
ElseIf A = 10 And B = 1# Then
MSFlexGrid1.TextMatrix(7, 3) = Round(X, 5)
ElseIf A = 10 And B = 2# Then
MSFlexGrid1.TextMatrix(7, 4) = Round(X, 5)
ElseIf A = 10 And B = 5# Then
MSFlexGrid1.TextMatrix(7, 5) = Round(X, 5)
ElseIf A = 10 And B = 7# Then
MSFlexGrid1.TextMatrix(7, 6) = Round(X, 5)
ElseIf A = 10 And B = 10 Then
MSFlexGrid1.TextMatrix(7, 7) = Round(X, 5)
ElseIf A = 10 And B = 20 Then
MSFlexGrid1.TextMatrix(7, 8) = Round(X, 5)
ElseIf A = 10 And B = 50 Then
MSFlexGrid1.TextMatrix(7, 9) = Round(X, 5)ElseIf A = 20 And B = 0.001 Then
MSFlexGrid1.TextMatrix(8, 1) = Round(X, 5)
ElseIf A = 20 And B = 0.5 Then
MSFlexGrid1.TextMatrix(8, 2) = Round(X, 5)
ElseIf A = 20 And B = 1# Then
MSFlexGrid1.TextMatrix(8, 3) = Round(X, 5)
ElseIf A = 20 And B = 2# Then
MSFlexGrid1.TextMatrix(8, 4) = Round(X, 5)
ElseIf A = 20 And B = 5# Then
MSFlexGrid1.TextMatrix(8, 5) = Round(X, 5)
ElseIf A = 20 And B = 7# Then
MSFlexGrid1.TextMatrix(8, 6) = Round(X, 5)
ElseIf A = 20 And B = 10 Then
MSFlexGrid1.TextMatrix(8, 7) = Round(X, 5)
ElseIf A = 20 And B = 20 Then
MSFlexGrid1.TextMatrix(8, 8) = Round(X, 5)
ElseIf A = 20 And B = 50 Then
MSFlexGrid1.TextMatrix(8, 9) = Round(X, 5)ElseIf A = 50 And B = 0.001 Then
MSFlexGrid1.TextMatrix(9, 1) = Round(X, 5)
ElseIf A = 50 And B = 0.5 Then
MSFlexGrid1.TextMatrix(9, 2) = Round(X, 5)
ElseIf A = 50 And B = 1# Then
MSFlexGrid1.TextMatrix(9, 3) = Round(X, 5)
ElseIf A = 50 And B = 2# Then
MSFlexGrid1.TextMatrix(9, 4) = Round(X, 5)
ElseIf A = 50 And B = 5# Then
MSFlexGrid1.TextMatrix(9, trix(9, 5) = Round(X, 5)
ElseIf A = 50 And B = 7# Then
MSFlexGrid1.TextMatrix(9, 6) = Round(X, 5)
ElseIf A = 50 And B = 10 Then
MSFlexGrid1.TextMatrix(9, 7) = Round(X, 5)
ElseIf A = 50 And B = 20 Then
MSFlexGrid1.TextMatrix(9, 8) = Round(X, 5)
ElseIf A = 50 And B = 50 Then
MSFlexGrid1.TextMatrix(9, 9) = Round(X, 5)
End If
-
좋아해
이번주에 꽃축제 한다는데ㅎㅎu
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2701781 | 파일 실행하면 컴퓨터종료하는 프로그램인데 | 퍼리 | 2025-07-17 |
| 2701725 | Shell 문 질문이요 ! 고수님들 부탁드려요 | 유미 | 2025-07-16 |
| 2701671 | txt내용 변경하기좀 질문합니다.. (2) | 봄여우 | 2025-07-16 |
| 2701620 | 비베 폼크기 단위 (1) | UniQue | 2025-07-15 |
| 2701591 | 비베로 웹에있는 파일을 FTP로 다운받지 않고... (1) | 미즈 | 2025-07-15 |
| 2701512 | 딜어떻게 만들어요 ? (1) | 도손 | 2025-07-14 |
| 2701484 | 체크박스(아이콘) 관련.. | 새콤이 | 2025-07-14 |
| 2701454 | 계산기 수식 질문이요 (2) | 슬기 | 2025-07-14 |
| 2701430 | 저희 집 컴퓨터... 셧 다운이... 안 되요... (Windows XP SP3) | 바름 | 2025-07-14 |
| 2701404 | 최소화 닫기 확대 이거 모양어케바꿔요 디자인할수잇는데. | 또야 | 2025-07-13 |
| 2701378 | 아무나 비베.iso 토렌트파일로 올려주심 안대나요? | 중독적 | 2025-07-13 |
| 2701349 | 커맨드박스클릭후 체크 사용? (1) | 지율 | 2025-07-13 |
| 2701319 | 빠른답변좀 해주세용 ㅠㅠ | 마루나 | 2025-07-13 |
| 2701292 | 궁금한게있습니다 . | 아잉 | 2025-07-12 |
| 2701263 | 버튼이나 폼크기 수정할떄 그 드래그 같이 끌리는게 안보여오 (1) | 진솔 | 2025-07-12 |
| 2701237 | 커맨드박스질문 (1) | 연분홍 | 2025-07-12 |
| 2701184 | 자동업데이트 다른질문 (1) | 꽃햇님 | 2025-07-11 |
| 2701160 | 관리프로그렘을 제작하고있는대요 (2) | 똘끼 | 2025-07-11 |
| 2701131 | 현재 폼이 비활성화인지 활성화인지 확인하는방법 | 동생몬 | 2025-07-11 |
| 2701099 | 배포한 파일 업데이트 (2) | 블레이 | 2025-07-11 |