River's Footmar And Note: 2月 2025

2025年2月28日星期五

檢查網域內所有ip的存文字檔的bat寫法

如題，以下內容用純文字檔案編輯貼上後，存檔作執行即可。

192.168.1.1開始：

@echo off

for /L %i in (1,1,255) do ping 192.168.1.%%i -n 1

pause

192.168.0.0 開始：

@echo off

for /L %i in (1,1,255) do ping 192.168.1.%%i -n 1

pause

2025年2月27日星期四

visual help android3 project

VBA：ChartObjects 群組設定(ChartObject Shapes) 多物件版本 (續)

群組物件，一個一個選太慢了。

加碼作一篇用FOR迴圈的方式。

VBA：

	Sub Group_SHAPE_By_ARRAY()

	Dim ws As Worksheet

	Dim shape As shape

	Dim shapeNames() As String

	Dim i As Integer

	' 設定工作表
	Set ws = ThisWorkbook.Sheets("工作表1")

	ReDim shapeNames(1 To Shapes.Count)

	' 將每個形狀的名稱儲存到陣列中
	For i = 1 To Shapes.Count

	shapeNames(i) = Shapes(i).Name

	Next i

	' 群組所有物件
	ws.Shapes.Range(shapeNames).Group
	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

GIF：

2025年2月26日星期三

VBA：ChartObjects 群組設定(ChartObject Shapes)

如何把圖表與圖形物件做群組?

小編透過VBA演練如下：

基本上不外乎先宣告物件，然後取得物件，再把物件變成群組化的過程。

VBA：

	Sub Group_ChartObjects()

	Dim ws As Worksheet
	Dim chart1 As ChartObject
	Dim chart2 As Shapes
	Dim groupShape As shape

	' 設定工作表
	Set ws = ThisWorkbook.Sheets("sheet1")

	' 取得兩個要群組的物件
	Set chart1 = ws.ChartObjects("圖表 4")
	Set chart2 = ws.Shapes("矩形 8")

	' 群組
	ws.Shapes.Range(Array(chart1.Name, chart2.Name)).Group

	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

gif參考：

定存自己的想法美國財政部長洩題篇

先說說新聞：

1.美國財政部長，對於美元的政策：強勢美元更多文章

圖1.新聞關鍵字搜尋截圖

2.美國財政部長，對於10年期美債利率的政策：新聞 2025.2.6 更多更多

圖2.新聞關鍵字搜尋截圖

3.再來看看年初到今天美元與日圓走勢：

圖3.自己整理的走勢

4.去年與學弟妹間的談話：

圖4.LINE紀錄

重點：去年這時間點，美金才32.5上下。

5.與台幣定存試算比一比：

我用美金月定存2.5%與台幣3個月定存1.275%來比。

每一千美金，每月2.08美金，一萬等於每月20.8美金，差不多650~660台幣。

同等金額美金1萬存台幣，等於350上下。

一來一往差了快1倍。

整理：

這些都是自己的想法，且付諸執行中，寫寫文章做作紀錄。

最後為何寫本篇，因為FED會議紀要，沒有要急降息拉，

所以存存美金當然是有便宜的，就撿來存定存。

第一個重點：

財政部長，這位掌握遊戲規則的人，都洩題了，當然答案要照抄一次，

然後持續溫習，呵呵。

第二、美元日圓走勢圖：

日本開始走升息之路，未來到底日圓跟美元之間，美元走強是否等於給日圓有空間也走強，這實在太曖味了，我也不懂。但亞幣誰敢走比美元強?

第三、10年期美債殖利率走低：

這是川Ｘ總統＋美國財政部的某男人，等等綜合體，以及MAX的新工作

為何？？？利率高債便宜，利率低債貴，並且利率低對於美債付出去的利息，也是個緩解，配合政府效率委員會等等最近的動作，不外乎就是一個目標，降低美國財政壓力；

不就在在明示+暗示美元有底氣可以走強；當然若有客官在去年同時買了美國國債，現在應該也不錯歐。

但小編不免還是要提一下，若前面都沒跟到，現在存台幣定存，也至少每個月利息，等於可以免費看NETFLIX，引用我堂哥說的話，你不理財財不理你。

有理自然有梳理到財的機會，讚拉。

最後希望每一個看到這篇紀錄文的人，都可以作小抄，然後發大財。

2025年2月25日星期二

VBA：ChartObjects X軸文字設定(ActiveChart.Axes(xlCategory))

設置圖表1的X軸標籤的文字大小

ActiveSheet.ChartObjects("圖表 1").Activate

With ActiveChart.Axes(xlCategory).TickLabels.Font

.Size = 12 ' 設置字體大小為 12

End With

修改標籤的標題文字大小、字體、顏色

With ActiveChart.ChartTitle.Font

.Name = "Arial" ' 字體名稱

.FontStyle = "Bold" ' 字體樣式

.Size = 14 ' 字體大小

.Color = RGB(255, 0, 0) ' 字體顏色

End With

其他常見的修改與方式：

'修改字體種類

ActiveChart.Axes(xlCategory).TickLabels.Font.Name = "Arial"

'粗體

ActiveChart.Axes(xlCategory).TickLabels.Font.Bold = True

'斜體

ActiveChart.Axes(xlCategory).TickLabels.Font.Italic = True

'底線

ActiveChart.Axes(xlCategory).TickLabels.Font.Underline = xlUnderlineStyleSingle

2025年2月24日星期一

VBA：圖表 X軸增加背景的變通作法(CHATOBJECT,SHAPE)

這個功能，預設的物件沒有這個設定。

透過物件組合的技巧完成。

VBA：

	Sub Add_Background_Shape_To_AxisLabels()

	Dim ws As Worksheet

	Dim chartObj As ChartObject

	Dim shape As shape

	Dim xOffset As Double

	Dim yOffset As Double

	Dim labelWidth As Double

	Dim labelHeight As Double

	' 設置要操作的工作表和圖表

	Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改為你的工作表名稱

	Set chartObj = ws.ChartObjects("圖表 4") ' 修改為你的圖表名稱

	' 設置SHAPE位置和尺寸

	xOffset = 50 ' 調整為合適的 X 起點

	yOffset = 320 ' 調整為合適的 Y 起點

	labelWidth = 600 ' 調整寬度

	labelHeight = 60 ' 調整高度

	' 添加矩形形狀作為背景

	Set shape = ws.Shapes.AddShape(msoShapeRectangle, _
	chartObj.LEFT + xOffset, _
	chartObj.TOP + yOffset, _
	labelWidth, labelHeight)

	' 設置SHAPE填滿的顏色

	shape.Fill.ForeColor.RGB = RGB(200, 200, 255) ' 藍色背景

	shape.Fill.Transparency = 0.67 '透明程度

	shape.Line.Visible = msoFalse ' 隱藏SHAPE邊框

	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

主要概念就是生成一個SHAPE物件，去疊在CHATOBJECT上面一層，透過位置來控制。

效果：

2025年2月23日星期日

兩間坐飛機的比一比：波音與空中巴士

美金+日圓觀察 2025.02.24

當作紀錄：

美金

日圓

2025年2月22日星期六

vba 加浮水印 ChartObjects AddTextbox應用(STEP BY STEP 影片)

使用方法：

複製SUB

打開excel

進入開發人員設計模式中

使用專案管理員

新增模組

貼上SUB

開始測試

重點在於

做一個ACTIVEX按鈕

然後知道物件名稱後例如：圖表 1

就可以透過CALL執行SUB了

完成

VBA LINK

影片：

指數變化(2025.02.21)

上周焦點：

新聞寫"最快下周對台灣端出關稅"，但台積電問題比台灣問題更大：LINK

烏科蘭終於結束迎來結束了：LINK

美國紐約州製造業指數上升5.7來到18.3

美國首次申請失業救濟人數高於預期

本周愛看：

美國消費者信心指數 2/25

nvda 財報 2/26

本周指數變化：

台股獨強ㄝ，酷
補充：發現台股 2/12一路上漲到2/21 XD
趨勢：

計算cp、cpk、mean、std的vba工具 (影片使用 step by step)

使用方法：

先複製function link
打開excel
進入開發人員設計模式中
使用專案管理員
新增模組
貼上function
開始測試
完成

影片操作：

2025年2月21日星期五

計算cp、cpk、mean、std的vba工具

寫了一個計算cp、cpk、mean、std的vba工具

提供資料所在位置的range物件、規格上下界線後，即可自動計算。

透過一般函數使用方式即可滿足。

CalculateCpkAndCp_OUT = Calculate_Cpk_And_Cp(MYRANGE, FIND_OUTUP, FIND_OUTDOWN)

vba：

	Function Calculate_Cpk_And_Cp(rng As Range, USL As Double, LSL As Double) As Variant

	Dim mean As Double

	Dim stdDev As Variant

	Dim Cpk As Variant

	Dim Cp As Variant

	Dim values() As Double

	Dim n As Long

	Dim i As Long



	' 取得範圍內的數值

	n = rng.Cells.Count

	ReDim values(1 To n)

	For i = 1 To n

	values(i) = rng.Cells(i).Value

	Next i

	' 計算平均值

	mean = Application.WorksheetFunction.Average(values)

	' 計算標準差

	stdDev = Application.WorksheetFunction.StDev(values)

	' 計算 Cp

	If stdDev > 0 Then

	Cp = (USL - LSL) / (6 * stdDev)

	Cpk = Application.WorksheetFunction.Min((USL - mean) / (3 * stdDev), (mean - LSL) / (3 * stdDev))

	Else

	Cp = "stdDev=0"

	Cpk = "stdDev=0"

	End If

	' 計算 Cpk
	' 返回結果

	Calculate_Cpk_And_Cp = Array(Cpk, Cp, mean, stdDev)

	End Function

view raw gistfile1.txt hosted with ❤ by GitHub

go for run

VBA：你還有一堆舊的Word 格式要轉換馬? 自動轉成 Office365的格式

自動把Word 舊格式轉成 Office365的格式

vba：

	Sub ConvertToOffice(oldTemplatePath)

	' Dim oldTemplatePath As String

	Dim newTemplatePath As String

	Dim wordApp As Object

	Dim wordDoc As Object

	' 新版樣板保存路徑 oldTemplatePath

	' 新版樣板保存路徑

	newTemplatePath = Replace(oldTemplatePath, ".doc", ".docm") ' 請更改為你的新樣板保存路徑

	' 建立 Word 應用程序物件

	Set wordApp = CreateObject("Word.Application")

	' 打開舊版樣板

	Set wordDoc = wordApp.Documents.Open(oldTemplatePath)

	' 保存為新版樣板格式
	'wdFormatXMLTemplateMacroEnabled 這裡可設定成不同格式
	wordDoc.SaveAs2 newTemplatePath, FileFormat:=wdFormatXMLTemplateMacroEnabled

	' 關閉文件和 Word 應用程序

	wordDoc.Close False

	wordApp.Quit

	' 釋放物件

	Set wordDoc = Nothing

	Set wordApp = Nothing

	temp = Split(oldTemplatePath, "\")

	MsgBox temp(UBound(temp)) & "樣板已成功轉換！", vbInformation

	End Sub