思考
喜歡攝影的我,喜歡到處拍拍照,吃點當地的特色食物。 跟朋友聊天之餘,推薦我寫成網誌跟大家分享。 沒外出的日子,喜歡在家當隱性宅,寫程式看看書,追劇。 希望我的手札文,不會讓你翻桌 XD
2024年4月30日 星期二
大船入港之供需思考
2024年4月28日 星期日
2024年4月21日 星期日
MYSQL 查詢多欄位最大值/最小值,取唯一最大/最小 怎做? GREATEST、LEAST、MAX、MIN
想要在 MySQL 中同時搜索多個欄位,並找到它們的最大值,可以用用 GREATEST() 函數。
這個函數接受多個參數,並返回這些參數中的最大值。
SELECT GREATEST(column1, column2, column3) AS max_value
FROM your_table;
在這個示例中,column1、column2、column3 是你要搜索的多個欄位,your_table 是你的表名。這個查詢將返回這些欄位中的最大值作為 max_value 列的結果。
你可以根據需要將欄位和表名替換為你實際使用的值。
SELECT MAX(GREATEST(column1, column2, column3)) AS max_value
FROM your_table;
SELECT MIN(LEAST(column1, column2, column3)) AS max_value
FROM your_table;
大中取小也可以
SELECT MIN(GREATEST(column1, column2, column3)) AS max_value
FROM your_table;
小中取大:
SELECT MAX(LEAST(column1, column2, column3)) AS max_value
FROM your_table;
MYSQL IN 雙查詢條件(A,B) IN ((A1, B1), (A2, B2), ...)與多條件(A, B, C) IN ((A1, B1, C1), (A2, B2, C2), ...);
如果有兩個條件要查詢,但是這條件是多組成對的條件,例如A1與B1一組, A2與B2一組以此類推這樣做查詢,且這兩個條件是超過100組的,我該怎做?
假設你有一個表 your_table,包含欄位 A 和 B,你想要查詢符合多組成對條件的記錄,可以像這樣組合你的查詢:
SELECT *
FROM your_table
WHERE (A, B) IN ((A1, B1), (A2, B2), ...);
這樣的查詢將同時匹配所有組合 (A1, B1)、(A2, B2) 等。請確保將實際的值替換為你的組合數據。
在這個範例中,A 和 B 是你表中的欄位名稱,而 (A1, B1)、(A2, B2) 等則是你要查詢的具體值。這個查詢將返回表中符合給定條件的記錄。請確保將 your_table 替換為你實際的表名,A1、B1、A2、B2 等則替換為你要查詢的實際值。
2024年4月20日 星期六
指數變化(2024.04.19)
指數變化(2024.04.19)
上周焦點:
台股跳水
2330 法說會
本周愛看:
美國耐久財訂單月增率
美國首次申請失業救濟人數
美國GDP成長年率
美國連續申請失業救濟人數
美國個人所得月增率
美國個人支出月增率
本周指數變化:
MYSQL VARCHART MAX MIN 要點
自學MYSQL的缺點,就是書本通常沒翻完就開始寫了,所以要透過網路學習更多基礎知識
VARCHAR是最近學到的新用法,自己也做一下學習紀錄。
出處:https://blog.csdn.net/sanqima/article/details/123092463
2024年4月19日 星期五
我的雷達紀錄,台股大跳水(2024/4/19)
2024年4月14日 星期日
2024年4月10日 星期三
2024年4月8日 星期一
vba:如何透過vba產生資料夾
如何透過vba產生資料夾??
Scripting.FileSystemObject作法:
Sub TEST1()
Dim fs As Object
Dim newFolder As Object
Dim folderPath As String
' 建立 FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
' 設定新資料夾的路徑
folderPath = "C:\MyNewFolder"
' 建立新資料夾
Set newFolder = fs.CreateFolder(folderPath)
' 顯示訊息
MsgBox "已成功建立資料夾:" & folderPath
End Sub
更簡單的方式,使用MkDir:
Sub TEST12() Dim folderPath As String Dim newFolder As String Dim i As Integer Dim NumFolders_I As Integer ' 設定父資料夾路徑 folderPath = "C:\Users\YourUsername\Documents\Projects\" ' 設定要建立的資料夾數量 NumFolders_I = 10 ' 建立資料夾 For i = 1 To NumFolders FolderName = "Project_" & i MkDir folderPath & FolderName Next i End Sub
2024年4月7日 星期日
vba:vba 列印設定中,如何自訂頁首與頁尾文字內容 怎做?
vba 列印設定中,如何自訂頁首與頁尾文字內容 怎做?
頁首
ActiveSheet.PageSetup.CenterHeader = "&D &B&ITime:&I&B&T"
頁尾
ActiveSheet.PageSetup.CenterFooter = "&D &B&ITime:&I&B&T" ActiveSheet.PageSetup.CenterFooter = "&P"
頁首左、中、右
With ActiveSheet.PageSetup.LeftHeader = "aaa"
.CenterHeader = "&""-,粗斜體""bbb"
.RightHeader = "ccc"
End With
頁尾左、中、右
With ActiveSheet.PageSetup
.LeftFooter = "aaa"
.CenterFooter = "&""細明體,標準""頁數&""Times New Roman,標準"":&P/&N" & Chr(10) & "PAGE:&P/&N" & Chr(10) & "ddd"
.RightFooter = "ccc"
End With
其他頁尾格式設定:您可以使用以下特殊格式代碼來自訂頁尾: &L:將下一筆字元靠左對齊。 &C:將下一筆字元置中。 &R:將下一筆字元靠右對齊。 &D:列印目前日期。 &T:列印目前時間。 &F:列印文件名稱。 &A:列印活頁簿標籤名稱。 &P:列印頁碼。 &P+number:列印頁碼加上指定數字。 &P-number:列印頁碼減去指定數字。
vba:vba 列印設定中,如果要設定不同儲存格來列印 怎做?
列印設定中,如果要設定不同儲存格來列印 怎做?
設定列印範圍是用 PageSetup列印的PrintArea做設定,
不同儲存格間要透過union方式來神助力
Set ws = Sheets("Sheet1") '用Sheet1當作設定對像工作表名稱
'Union 設定列印儲存格範圍
Set bigRange = Application.Union(ws.Range("a1"), ws.Range("c2"))
ws.PageSetup.PrintArea = bigRange.address
2024年4月6日 星期六
vba:vba 列印設定中,如果要設定列印邊界 怎做?
列印設定中,如果要設定列印邊界 怎做
是用 PageSetup列印的屬性設定,有四個邊界可以設定
Set ws = Sheets("Sheet1") '用Sheet1當作設定對像工作表名稱
' 設定列印儲存格範圍
ws.PageSetup.PrintArea = "$A$1:$F$10
' 設定邊界
With ws.PageSetup
.LeftMargin = Application.InchesToPoints(0.5) ' 設定0.5 英寸左邊界
.RightMargin = Application.InchesToPoints(0.5) ' 設定0.5 英寸右邊界
.TopMargin = Application.InchesToPoints(0.75) ' 設定0.75 英寸上邊界
.BottomMargin = Application.InchesToPoints(0.75) ' 設定0.75 英寸下邊界
End With
'公分版
With ws.PageSetup
.LeftMargin = Application.CentimetersToPoints(2.54) ' 設定左邊界 (2.54 公分 = 1 英寸)
.RightMargin = Application.CentimetersToPoints(2.54) ' 設定右邊界 (2.54 公分 = 1 英寸)
.TopMargin = Application.CentimetersToPoints(1.905) ' 設定上邊界 (1.905 公分 = 0.75 英寸)
.BottomMargin = Application.CentimetersToPoints(1.905) ' 設定下邊界 (1.905 公分 = 0.75 英寸)
End With
2024年4月5日 星期五
指數變化(2024.04.04)
指數變化(2024.04.04)
上周焦點:
美國3月非農業就業人數增30.3萬遠超預期 失業率意外降至3.8%
fed 紐約分行預測衰退機率 持平,維持在58.31%
本周指數變化:
2024年4月3日 星期三
vba:vba 列印設定中,如果列印要水平置中 怎做?
列印設定中,如果列印要水平置中 怎做?
ActiveSheet.PageSetup 列印設定的屬性是用 CenterHorizontally
水平置中:
ActiveSheet.PageSetup.CenterHorizontally = True
水平與垂直置中:
With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = True
End With
指數變化(2024.12.06)
指數變化(2024.12.06) 上周焦點: 密西根消費者信心指數 74,又破70了 本周愛看: 美國蠆售銷售月增率 12/09 美國核心CPI年增率 12/11 美國連續申請失業救濟人數 12/12 本周指數變化: 指數...
-
寫給自己速查 垂直屬性:HorizontalAlignment 水平屬性:VerticalAlignment 置中:xlCenter 靠左靠右:XLLEFT、XLRIGHT Sheets("工作表1").Range("m2").Ve...
-
美國實質可支配所得 利率與黃金 消費者信心 利率PK DW PK FED紐約分行 上海貨櫃指數 BDI CRB 美國m 1 m2 s&p 美國 非農 美國 非農就業職務空缺率 美國股市 行事曆 全球股市行事曆 全球股市 巴菲特指數 外銷訂單年增率 每月20號 外...
-
整理資料時,不免要判斷資料數量,在判斷資料時,資料有時會有不連續與連續資料,這時候判斷方式不盡相同 連續資料時: a行於65000儲存格以前的最後列,有點饒舌;應該是這樣看,從a65000往上找(xlup),找到的第一個儲存格,也相對於是a行在65000列之前最後一列。 END...