excel取得檔案所在目錄

由isvincent大大教學  Excel-取得工作表名稱

在 Excel 中如果要取得某個儲存格所在的工作表之名稱，要藉助 CELL 函數。

儲存格A1：=RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))

CELL("filename")：取得活頁簿的完整路徑。例如：磁碟名稱:\資料夾名稱\[活頁簿名稱]工作表名稱FIND("]",CELL("filename"))：搜尋「]」的位置。LEN(CELL("filename"))：計算檔案完整路徑的總字元數。利用 RIGHT 函數取得「]」右邊的全部字元，即為工作表名稱。

答案：

=LEFT(CELL("filename"),FIND("[",CELL("filename"))-1)
=======================================================

@取得活頁簿內所有工作表名稱：
公式>>定義名稱>>參照到：打=get.workbook(1)，名字自訂aaa
然後框取一列打=aaa(剛剛的名字)>>按tab再按Ctrl+Shift+Enter
要變直列的話，按複製勾選轉置，只有複製內容值

孫老師的

@取得活頁簿內所有工作表名稱：
公式>>定義名稱>>參照到：打=get.workbook(1)，名字自訂aaa
然後框取一列打=aaa(剛剛的名字)>>按tab再按Ctrl+Shift+Enter
要變直列的話，按複製勾選轉置，只有複製內容值

excelVBA巨集語法

@用鍵盤取代滑鼠選取整片範圍：先點選左上角
        Ctrl+ Shift+ 箭頭右； Ctrl+ Shift+ 箭頭下
    VBA寫法
    Range(Selection, Selection.End(xlDown)).Select
     Range(Selection, Selection.End(xlToRight)).Select@跳出整片範圍至範圍下一列：Ctrl+ 下 (按下二次)
@excel新增一列資料於最後一筆資料後面
    Range("A1").Select
    Selection.End(xldown).Select
    工作表3.Range("A" & ActiveCell.Row + 1).Value= "aaaaaa"
    或者{  Sheets("工作表3").Range("A" & ActiveCell.Row + 1).Value= "aaaaaa"  }
@直接跑到表格最右下角(最後)的資料：Ctrl +End
    Range("A1").Select
       ActiveCell.SpecialCells(xlLastCell).Select
@取得選擇欄位該cell位在第幾列數  i=ActiveCell.Row
@使用第一欄的內容去跑廻圈，(要先知道第一欄最後一列）
        aaaEnd= ranges("A2").End(xlDown).row
             For i = 2 to aaaEnd Step 1  ....

如何找尋趨勢向上的股票標的

主要為突破季線20ma，季線翻揚來選股。
關鍵字：糾結均線、突破季線
可利用玩股網wantgoo來設定條件篩選，篩選教學網址

步驟一： 從「飆股」→「飆股搜尋」→「技術面」→「均線」→「20MA」下拉選單選擇3個選股條件 1.今日股價高於20周線(20MA) 0 %以上

2.上周20周線大於上上周

3.本周20周線大於上周

步驟二：接著找股價位於季線上5%內，表該檔股票可能股價剛往上突破季線或股價往下回測到季線附近。從「技術面」→「均線」→「60MA」下拉選單選擇2個選股條件

1.今日股價高於季線(60MA)0%以上

2.今日股價高於季線(60MA)5%以下

步驟三：接著用成交量來判斷該股是否有續漲力道，因此加入「價漲量增」的選股條件。

從「技術面」→「價量」→「成交量」下拉選單選擇「價漲量增」當選股條件

2再挑選「價跌量縮」的股票當例子 從「技術面」→「價量」→「成交量」下拉選單選擇「價跌量縮」當選股條件。====================================================

另外一個好網站 https://goodinfo.tw/StockInfo/ 選法網址 使用條件：均線位置, 智慧選股, 所有均線多頭排列

可增加進階條件：例如股本大於10億、本益比小於... ========================================= 搜尋關鍵字：突破糾結均線，也可以找到相關文章

手機推薦玻璃貼保護貼

手機推薦玻璃貼保護貼

貴：HODA、
中等：GOR、BENKS、貝占UV膠水
便宜：ACEICE、閃魔、倍思baseus、GOR, xmart
           品程科技, 鐵布衫

手機推薦保護殼防摔殼

貴：犀牛盾、spigen、UAG、case-mate

中等：imak、likgus、nillkin、HAO

便宜：空壓殼、四角加強、空氣墊, xmart

Excel快捷鍵

@顯示儲存格裡面的公式：Ctrl + (`~)
@搜尋取代，變更字彙：F8
@用鍵盤取代滑鼠選取整片範圍：先點選左上角
        Ctrl+ Shift+ 箭頭右； Ctrl+ Shift+ 箭頭下
@直接跑到表格最右下角(最後)的資料：Ctrl +End
    (法二)End，再按箭頭下

學習excel VBA 作業1-1隨機產生五十筆分數，並分類A~F

隨機產生五十筆分數，並分類A~E

Public Sub 標題加分數()
    Range("A1").Value = "編號"
    Range("B1").Value = "分數"
    Range("C1").Value = "等第"
    Range("D1").Value = "及格確認"
    Dim randomScore As Integer
    For i = 1 To 50 Step 1
        Range("A" & i + 1).Value = i
        randomScore = Rnd * 90 + 10
        Range("B" & i + 1).Value = randomScore
        Select Case Range("B" & i + 1).Value
            Case 90 To 100
                Range("C" & i + 1).Value = "S"
                Range("C" & i + 1).Font.Color = RGB(0, 255, 255)
            Case 80 To 89
                Range("C" & i + 1).Value = "A"
            Case 70 To 79
                Range("C" & i + 1).Value = "B"
            Case 60 To 69
                Range("C" & i + 1).Value = "C"
            Case 0 To 59
                Range("C" & i + 1).Value = "D"
                Range("C" & i + 1).Font.Color = RGB(255, 0, 0)
        End Select
        If Range("b" & i + 1).Value >= 60 Then
            Range("d" & i + 1).Value = "及格"
            Range("d" & i + 1).Font.Color = RGB(0, 0, 0)
        Else
            Range("d" & i + 1).Value = "不合格"
            Range("d" & i + 1).Font.Color = RGB(255, 0, 0)
        End If
    Next
End Sub