程式中不能有空白 所以把名稱的空白改為底線 然後再命名
1.先把標題複製到第二列
2.把第一列的空白取代成底線
3.把一二列反白 > 公式 > 從選取範圍建立 > 頂端列
4.再把第一列刪掉 就完成有名稱的標題
2015年4月28日 星期二
2015年1月17日 星期六
2015年1月16日 星期五
2015年1月15日 星期四
2014年11月28日 星期五
2014年11月26日 星期三
Excel VBA 存檔後就不能用/活頁簿存檔後就找不到
最近剛開始練習excel VBA 遇到了一些問題
就是存檔之後就不能用了
是因為存檔後會產生副檔名
1.還沒有存檔之前 成功的新增了活頁簿
2.存成舊的副檔名 程式才會保留
3.然後同樣的程式就發生了錯誤了
4.因為存檔後會產生副檔名 所以加入副檔名之後就可以了
解決方法 : 先存檔後再指定檔名
Excel VBA 工作表編號 /活頁簿編號出錯/即時運算 讓他告訴你活頁簿名稱
最近剛開始練習excel VBA 遇到了一些問題
我刪掉了一些活頁簿,然後想在活頁簿4新增工作表的時候出錯了
想要知道活頁簿的名子 就在即時運算打 ? Workbooks (編號).Name 讓他告訴你
ex : ? Workbooks (2).Name
1.[檢視] > [即時運算視窗]
2.[Enter] 之後就會告訴你他叫做活頁簿4
2.[Enter] 之後就會告訴你他叫做活頁簿4
成功新增
2014年11月25日 星期二
Excel 2010 VBA 顯示開發人員選項
預設開發人員選項不會開啟,要寫excel VBA要先把開發人員選項開啟
1.按一下 [檔案] 索引標籤 > 按一下 [選項]
2.按一下 [自訂功能區] > 在 [自訂功能區] 下，選取 [主要索引標籤] 中的 [開發人員] 核取方塊
2014年11月21日 星期五
App Inventor 2 / 線上App 開發平台
我要介紹一個 線上App 開發平台 叫做 App Inventor 2
以直覺、圖像化的拼塊方式開發App
要登入google帳號
這裡有關於 App Inventor 2 的教學
2014年10月30日 星期四
103電腦硬體裝修術科_程式
繼上次的 103電腦硬體裝修術科_元件配置 http://jktt5230qq.blogspot.tw/2014/10/103.html
以下為程式部份
1.對Form1,Button1,Button2,Button3,Timer
點兩下就可以寫程式,上面部分就不用打,自己會產生
2.打入程式後 USBHID 下面會出現毛毛蟲代表尚未把 USBHID.dll加入參考
3.加入步驟= 專案 >加入參考 >com >USBHID
4.加入後就沒有毛毛蟲了
4.最後按下 開始偵錯 就可以插入板子開始測了
程式如下
Imports Microsoft.VisualBasic.PowerPacksImports USBHID
Public Class Form1
Dim usbHID As New HID
Dim send(8) As Byte
Dim A, B(99), c
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
B(0) = 1
B(1) = 2
B(2) = 4
B(3) = 8
B(4) = 16
B(5) = 32
B(6) = 64
B(7) = 128
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
A = 1
c = 0
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
A = 2
c = 0
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
A = 3
End Sub
Private Sub display(ByVal no)
For i = 0 To 7
If no Mod 2 = 1 And A = 1 Then GLED(i).FillColor = Color.LightGreen
If no Mod 2 = 1 And A = 2 Then RLED(i).FillColor = Color.Red
no = no \ 2
Next i
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = "Current Time:" & TimeOfDay()
For i = 0 To 7
GLED(i).FillColor = Color.White
RLED(i).FillColor = Color.White
Next
If usbHID.OpenHIDDevice(&H1234, &H6789) Then
For i = 0 To 7
GLED(i).FillColor = Color.DarkGreen
RLED(i).FillColor = Color.DarkRed
Next i
send(0) = 0
send(1) = 0
usbHID.HIDSetReport(send)
send(0) = 0
send(1) = 16
usbHID.HIDSetReport(send)
If A = 2 And c <= 7 Then
send(0) = 2 ^ c
send(1) = 32
usbHID.HIDSetReport(send)
send(0) = 2 ^ c
send(1) = 48
usbHID.HIDSetReport(send)
display(2 ^ c)
Else
display(0)
End If
If A = 1 Then
send(0) = B(c)
send(1) = 0
usbHID.HIDSetReport(send)
display(B(c))
End If
End If
If A = 3 Then usbHID.CloseHIDDevice() : End
If c > 15 Then c = 15 Else c = c + 1
End Sub
End Class
2014年10月24日 星期五
Visual Studio 2013 新增工具 Microsoft Visual Basic Power Packs 的ovalshape工具
Visual Studio 2013 預設沒有ovalshape工具所以要另外裝
1.下載完之後 右鍵 >內容 >以相容模式執行 >以系統管理員身分執行
2.在工具箱右鍵 >加入索引標籤 >在標籤222裡右鍵 >選擇項目
3.篩選裡打 oval > 打勾 > 確定
就有了
參考網址:http://ntcoder.com/bab/2013/12/20/visualbasic-powerpack-missing-from-visual-studio-2013/
參考網址:http://www.microsoft.com/en-us/download/details.aspx?id=25169
參考網址:http://www.microsoft.com/en-us/download/details.aspx?id=25169
103電腦硬體裝修術科_工具配置
上課時老師步驟講的有點快 所以很多同學來不及記上步驟
關於軟體除了老師給的也可以參考這篇
需要用到的元件跟要改的屬性
需要用到的元件: 1.TextBox 2.Button 3.Timer 4.OvalShape
需要改的屬性:
(一) From1的
Text :電腦硬體裝修乙級第N題
(二) OvalShap的
FillStyle: soid
(三)TextBox1
TextAlign: Center
(四)Timer
Enabled: Ture
Interval: 1000
(五) Button
Button1
Text: 綠燈
Button2
Text: 紅燈
Button3
Text: 離開
1.一開始要先cmd C槽下的 USBHID.dll檔
教室試放在C槽電腦硬體裝修資料夾內所以
開始 >搜尋打上 cmd >右鍵 以系統管理員身分執行
再打上
再打上
cd C:\電腦硬體裝修 (或打 cd c:\電 Tab) 打Tab會自動選字
regsvr32 USBHID.dll
regsvr32 USBHID.dll
2.開啟Microsoft Visual Studio 2010 >新增 >專案 >windows Form
3.加入模組 WindowsApplication1右鍵 > 加入 >新增項目 >模組
Imports Microsoft.VisualBasic.PowerPacks
Module Module1
Public Function GLED(ByVal i As Integer) As OvalShape
GLED = Form1.ShapeContainer1.Shapes(i + 8)
End Function
Public Function RLED(ByVal i As Integer) As OvalShape
RLED = Form1.ShapeContainer1.Shapes(i)
End Function
End Module
繼續程式部份請參考此篇 103電腦硬體裝修術科_程式 http://jktt5230qq.blogspot.tw/2014/10/103_29.html
2014年3月17日 星期一
ASP.NET 亂數 Random
亂數 Random
------------------------------------------------------------------------------------------------------------
protected void Button1_Click(object sender, EventArgs e)
{
Random a = new Random(); //產生新的隨機a
int x; //定義一個變數讓產生的亂數可以放進去
x = a.Next(1, 11); //亂數範圍是1~10
Label1.Text = Convert.ToString(x); //轉換型別為字串
//Label1.Text=x.ToString(); //或用這個方法傳換型別
}
------------------------------------------------------------------------------------------------------------
ASP.NET .Focus() 焦點
寫在 Page_Load 網頁一開始就會執行
------------------------------------------------------------------------------------------------------------
protected void Page_Load(object sender, EventArgs e)
{
TextBox1.Focus(); //網頁一執行鼠標就會在TextBox1
}
------------------------------------------------------------------------------------------------------------
2014年3月13日 星期四
ASP.NET 留言板 顯示多行
在練習課本上留言版的那篇例題 遇到了一些需要注意的地方
1.如果沒有改成 MultLine 就沒有辦法顯示多行
2.一開始覺得" ；"的逗號在括號裡面所以不加應該也無所謂,
所以就把逗號刪掉執行一次,然後一樣有空白,
可是當後來空白一多時就會出問題
雖然不加他還是會讓你執行,不過還是要加上去
protected void Button1_Click(object sender, EventArgs e)
{
string a;
a = TextBox1.Text; //先把a設成TextBox1.Text之後就可以直接用a
a = a.Replace(" ", " ");//如果 沒有加逗號其他空白他會無法識別
a = a.Replace("\n", "<br>");//剛剛有設成TextBox1.Text所以可以直接用a
a = "[" + DateTime.Now.ToString() + "]<br>" + a;
//Label1.Text = "<hr>" + a + Label1.Text; //這樣寫的話就是新的留言在上面
Label1.Text = Label1.Text+a+"<hr>";//新的留言在下面
TextBox1.Text = ""; //清空留言
}
------------------------------------------------------------------------------------------------------------
3.在第20行跟21行,更換順序就是新留言在上
或是新留言在下
訂閱：
文章 (Atom)