Snasui Excel Forum

ขอบคุณคะ ขอบคุณจริงๆ คะ ขอบคุณที่ช่วยเหลือคะ

แนบไฟล์มาให้ด้วยคะ ขอบคุณสำหรับคำแนะนำและช่วยเหลือหนูตลอดคะ

Option Explicit
Public Function MAE(list As Range) As Single
Dim item As Range
Dim ab() As Variant
Dim i As Integer
For Each item In list
i = i + 1
ReDim Preserve ab(i)
ab(i) = Abs(list(i))
Next item
MAE = Application.Average(ab)
Application.ScreenUpdating = False
With item
If .i > 1 ...

แล้วถ้าหนูต้องการ ใส่ฟังก์ชันใน cell ไหนก็ได้ แต่ผลลัพธ์ไปอยู่ที่ E1ล่ะคะ หนูไปดู http://snasui.blogspot.com/2011/07/blog-post_01.html

บทความนี้มา แต่หนูเขียนแล้วมันไม่ออกอย่างที่คิดเลยคะ

ขอบคุณคะอาจารย์

Option Explicit
Public Function MAE(list As Variant) As Single
Dim item As Variant
Dim ndata As Integer
Dim mynum
Dim mean As Single
ndata = 0
For Each item In list
ndata = ndata + 1
Next item

mean = Application.WorksheetFunction.Average(list)
MAE = mean
End Function


หนูแก้โค้ดแล้วเหลือหาค ...

ต้องการเขียน คำสั่งนั้น ใน VBA คะ คือทำทุกค่าในตารางให้เป็นค่าสัมบูรณ์ทั้งหมด ก่อนที่จะมาทำการหาค่าเฉลี่ยคะ

ตรงช่อง E1 ใช้เรียกฟังชัน MAE ซึ่งจะแสดงผล ค่าเฉลี่ยอย่างเดียวคะ

หนูอาจจะอธิบายไม่เข้า แต่ช่วยเข้าใจหนูหน่อยเถอะคะ

หนูต้องการ หาค่าสัมบูรณ์โดยการเรียกฟังก์ชัน MAE ลากเม้าส์เพื่อหา nData คะ หนูต้องการลากข้อมูลแล้วให้เป็นค่าสัมบูรณ์ก่อน

แล้วจึงทำค่านั้นไปหาค่าเฉลี่ยคะ

ขอบคุณคะ

ไฟล์นี้คะ ขอบคุณคะ

นี่คือค่าทั้งหมด ที่ต้องการให้แสดงคะ

มีเพียงค่า encode กับ decode เท่านั้นคะ ที่ต้องแสดงใน worksheets ก่อนแล้วจึงมาแสดงใน msgbox
ส่วนค่าเหลือมีตัวแปรเก็บไว้ดูได้นะคะ

คือในโค้ด ต้องไปเขียนค่าใน worksheets ก่อนนะคะ แล้วถึงเรียกตัวแปรนั้นมาแสดงบน msgBox นะคะ

หนูไม่ต้องการให้ แสดงค่าใน worksheets นะคะ แต่หนูไม่รู้ว่าต้องเขียนอย่างไร

Option Explicit
Public Sub Crypto()

Dim Key As String, Message As String, PlainText As String, Longkey As String, encode As String, _
Decode As String, EnCol As String, EnRow As String
Dim i As Integer, p As Integer, r As Integer, c As Integer

Key = InputBox("Enter the key of encryption")
Key ...

1. หนูต้องการค่า decode กลับมาให้ได้ เหมือนค่า message ที่เราป้อนเข้าไปนะคะ

longkey = POPPOPP
Encode = IVTQSHI

ในที่นี้ จับคู่เทียบได้ PI | OV | PT | PQ| OS | PH | PI

จะได้ค่า decode = thebest
แล้วถ้าหนู ต้องการให้ ค่า decode = the best (เพิ่มช่องว่างเข้าไป) ต้องการให้ ค่า decode แสดงออกมาเหม ...

ตอนที่ decode มันต้องใช้ความยาวของ message ซึ่งมันมีช่องว่าง

คือหนูต้องการค่า decode กลับมาให้ได้ เหมือนค่า message ที่เราป้อนเข้าไปนะคะ

อาจารย์คะ ถ้าหนูจะแปลงค่า โดยเทียบ encode กับ longkey มาเทียบกันทีละตัว โดยใช้ความยาวของตัวแปร message ที่ยังไม่ได้ตัดช่องว่าง
ซึ่งมันจะไปเก็บค่าไว้ในตัวแปร decode

จากตัวอย่าง
message = the best
Longkey = POPPOPP
encode = IVTQSHI

จะได้ decode ออกมาเป็น the best

ซึ่งความยาว Longkey = 7
แต ...

ขอบคุณสำหรับคำแนะนำคะ หนูขอเรียกว่าอาจารย์แล้วกันนะคะ ขอบคุณจริงๆ คะ อาจารย์ช่วยหนูได้มากเลยคะ

สมมุติ key = pop
message = the best

จะได้ Plaintext = thebest
Longkey = POPPOPP

หนูต้องการเอา Longkey P

เทียบกับ Plaintext t

ในที่นี้ จับคู่เทียบได้ Pt | Oh | Pe | Pb | Oe | Ps | Pt

จากตารางจะได้ IVTQSHI

แล้วก็นำตัวอักษรที่เทียบจากตาราง มาเรียงเป็นคำใหม่ใช้ชื่อตัวแปรว่า encode แล้วแสดงผลคะ ...

ดึงค่าจากตัวแปร long_key ทีละตัวมาตรวจว่าตรงกับใน column A แถวไหน แล้วให้ส่งค่าแถวกลับมาเก็บไว้

หลังจากนั้นทำการดึงค่าจากตัวแปร plaintext ทีละตัวมาตรวจว่าตรงกับ column ใด ใน R1

นำค่าตัวอักษรที่ได้ในแต่ละรอบมาเรียงต่อกัน ซึ่งจะได้คำใหม่ขึ้นมา

หนูต้องการทำแบบนี้นะคะ แต่หนูเขียนต่อไม่ได้แล้ว ...

หนูจะดึงค่า key มาทีละตัว เเล้วไปหาใน Column A เเล้วให้มันส่งค่าเเถวกลับมาเก็บไว้ใช้ หนูต้องเขียนยังไงคะ