shamsololama
2016/01/13, 12:32
با درود فراوان
زمانی که برنامه ای در اکسل می نویسیم که از برنامه نیاز به گرفتم خروجی یا گزارش داریم معمولا این صفحه نمایش و یا نتیجه گزارش را در یک شیت از اکسل بر گزیده و جهت درج و نمایش نتیجه گزارش انتخاب میکنیم . که می توان هم زمان در پرینت پریویو نمایش داد تا آماده پرینت باشد .
اما همچنان که بار ها دیده اید خیلی از نرم افزار ها و برنامه ها وقتی برای نمایش خروجی از برنامه یا که ممکن است یک گزارش باشد یا یک صفحه هلپ برای توضیحات در مورد برنامه یا هر مطلبی دیگری که میخواهند به کاربر نمایش دهند یک صفحه وب باز شده و مطالب را در آن به کاربر نمایش میدهند که در این تاپیک این برنامه را آموزش داده و نمونه برنامه ای را در اختیار دوستان قرار میدهم که امیدوارم مورد استفاده دوستان باشد .
در این برنامه وقتی گزارشی را یا جستجویی را انجام می دهیم نتیجه کار را میخوایم در یک صفحه وب نمایش دهیم که با کدی که در ادامه خدمت شما ارئه میدم می توانید این کار را انجام دهید .
جهت جدول بندی و صفحه آرایی نیاز به آشنایی به کدهای اچ تی ام ال HTML دارید که بسیار ساده بوده در صورتی که آشنایی ندارید در مدت کوتاهی در حد جدول بندی و ساخت تیبل می توانید فرا بگیرید.
در این کد و فایل نمونه به صورتی کد نویسی شده که در صفحه اکسل به هر صورتی که اطلاعات را فیلتر کنیم همان مقدار از اطلاعات فیلتر شده را در خورجی صفحه وب نمایش خواهد داد .
کد:
Sub macro1()
Dim objIE As Object
Dim HTML As String
Dim i, j, color
Dim ax As String
ax = "http://www.exceliran.com/wp-content/themes/excel/images/head.gif"
'----------ساخت کد اچ تی ام ال با حلقه---------
HTML1 = "<HTML><TITLE>HTML Report Page</TITLE>" & _
"<BODY><FONT COLOR = BLUE><FONT SIZE = 5>" & _
"<CENTER><B>ÈÑÇí ÈÇÒ ˜ÑÏä í˜ ÕÝÍå æÈ </B>" & _
"</FONT SIZE><P>" & _
"<img src=" & ax & ">" & _
"<Table border=1 ><tr><td>ÇíÌÇÏ ÕÝÍå æÈ ÈÇ ãǘÑæ </td><tr></table>" & "<p>" & _
"Shamsololama@yahoo.com<p>" & "<Table border=1 width=80%>" & _
" "
'----------ساخت کد اچ تی ام ال با حلقه ----------
For i = 0 To 100
If Sheet1.Cells(i + 1, 1) <> "" And Sheet1.Cells(i + 1, 1).Height > 0 Then
rr = rr + 1
For j = 1 To 11
If rr Mod 2 = 0 Then
color = "#c2f5bd"
Else
color = "#7dca76"
End If
HTML2 = HTML2 & "<td bgcolor=" & color & "><Center> " & Sheet1.Cells(i + 1, j) & "</center></td>"
Next
HTML2 = "<tr>" & HTML2 & "</tr> "
End If
Next
HTML = HTML1 & HTML2 & "</table><p><a href=http://takoo.presianblog.ir/>ÓÇíÊ ÔÚÑ åÇí ãÍáí ÔãÓ ÇáÚáãÇÁ</a> </p></CENTER>" & "<p></BODY></HTML>"
On Error GoTo error_handler
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate "about:blank"
Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
.Visible = True
.Document.Write HTML
End With
Set objIE = Nothing
Exit Sub
error_handler:
MsgBox ("Unexpected Error, I'm quitting.")
objIE.Quit
Set objIE = Nothing
End Sub
فایل نمونه ضمیمه می باشد .
زمانی که برنامه ای در اکسل می نویسیم که از برنامه نیاز به گرفتم خروجی یا گزارش داریم معمولا این صفحه نمایش و یا نتیجه گزارش را در یک شیت از اکسل بر گزیده و جهت درج و نمایش نتیجه گزارش انتخاب میکنیم . که می توان هم زمان در پرینت پریویو نمایش داد تا آماده پرینت باشد .
اما همچنان که بار ها دیده اید خیلی از نرم افزار ها و برنامه ها وقتی برای نمایش خروجی از برنامه یا که ممکن است یک گزارش باشد یا یک صفحه هلپ برای توضیحات در مورد برنامه یا هر مطلبی دیگری که میخواهند به کاربر نمایش دهند یک صفحه وب باز شده و مطالب را در آن به کاربر نمایش میدهند که در این تاپیک این برنامه را آموزش داده و نمونه برنامه ای را در اختیار دوستان قرار میدهم که امیدوارم مورد استفاده دوستان باشد .
در این برنامه وقتی گزارشی را یا جستجویی را انجام می دهیم نتیجه کار را میخوایم در یک صفحه وب نمایش دهیم که با کدی که در ادامه خدمت شما ارئه میدم می توانید این کار را انجام دهید .
جهت جدول بندی و صفحه آرایی نیاز به آشنایی به کدهای اچ تی ام ال HTML دارید که بسیار ساده بوده در صورتی که آشنایی ندارید در مدت کوتاهی در حد جدول بندی و ساخت تیبل می توانید فرا بگیرید.
در این کد و فایل نمونه به صورتی کد نویسی شده که در صفحه اکسل به هر صورتی که اطلاعات را فیلتر کنیم همان مقدار از اطلاعات فیلتر شده را در خورجی صفحه وب نمایش خواهد داد .
کد:
Sub macro1()
Dim objIE As Object
Dim HTML As String
Dim i, j, color
Dim ax As String
ax = "http://www.exceliran.com/wp-content/themes/excel/images/head.gif"
'----------ساخت کد اچ تی ام ال با حلقه---------
HTML1 = "<HTML><TITLE>HTML Report Page</TITLE>" & _
"<BODY><FONT COLOR = BLUE><FONT SIZE = 5>" & _
"<CENTER><B>ÈÑÇí ÈÇÒ ˜ÑÏä í˜ ÕÝÍå æÈ </B>" & _
"</FONT SIZE><P>" & _
"<img src=" & ax & ">" & _
"<Table border=1 ><tr><td>ÇíÌÇÏ ÕÝÍå æÈ ÈÇ ãǘÑæ </td><tr></table>" & "<p>" & _
"Shamsololama@yahoo.com<p>" & "<Table border=1 width=80%>" & _
" "
'----------ساخت کد اچ تی ام ال با حلقه ----------
For i = 0 To 100
If Sheet1.Cells(i + 1, 1) <> "" And Sheet1.Cells(i + 1, 1).Height > 0 Then
rr = rr + 1
For j = 1 To 11
If rr Mod 2 = 0 Then
color = "#c2f5bd"
Else
color = "#7dca76"
End If
HTML2 = HTML2 & "<td bgcolor=" & color & "><Center> " & Sheet1.Cells(i + 1, j) & "</center></td>"
Next
HTML2 = "<tr>" & HTML2 & "</tr> "
End If
Next
HTML = HTML1 & HTML2 & "</table><p><a href=http://takoo.presianblog.ir/>ÓÇíÊ ÔÚÑ åÇí ãÍáí ÔãÓ ÇáÚáãÇÁ</a> </p></CENTER>" & "<p></BODY></HTML>"
On Error GoTo error_handler
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate "about:blank"
Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
.Visible = True
.Document.Write HTML
End With
Set objIE = Nothing
Exit Sub
error_handler:
MsgBox ("Unexpected Error, I'm quitting.")
objIE.Quit
Set objIE = Nothing
End Sub
فایل نمونه ضمیمه می باشد .