{"id":4909,"date":"2023-07-06T14:04:29","date_gmt":"2023-07-06T14:04:29","guid":{"rendered":"https:\/\/statorials.org\/tr\/vba-dize-numaralarini-kaldir\/"},"modified":"2023-07-06T14:04:29","modified_gmt":"2023-07-06T14:04:29","slug":"vba-dize-numaralarini-kaldir","status":"publish","type":"post","link":"https:\/\/statorials.org\/tr\/vba-dize-numaralarini-kaldir\/","title":{"rendered":"Vba: bir dizeden say\u0131lar nas\u0131l kald\u0131r\u0131l\u0131r"},"content":{"rendered":"

<\/p>\n

\n

Excel’deki bir h\u00fccredeki bir dizedeki say\u0131lar\u0131 kald\u0131rmak i\u00e7in VBA’da a\u015fa\u011f\u0131daki i\u015flevi olu\u015fturabilirsiniz:<\/span><\/p>\n

 Function<\/span> RemoveNumbers(CellText As<\/span> String) As<\/span> String\n\nWith<\/span> CreateObject(\" VBScript.RegExp<\/span> \")\n    .Global = True\n    .Pattern = \" [0-9]<\/span> \"\n    RemoveNumbers = .Replace(CellText, \"\")\nEnd With<\/span>\n\nEnd Function\n<\/span><\/strong><\/span><\/pre>\n
 Daha sonra Excel’de istedi\u011finiz herhangi bir h\u00fccredeki say\u0131lar\u0131 kald\u0131rmak i\u00e7in bu i\u015flevi kullanabilirsiniz.<\/span><\/span><\/p>\n
 A\u015fa\u011f\u0131daki \u00f6rnekte bu fonksiyonun pratikte nas\u0131l kullan\u0131laca\u011f\u0131 g\u00f6sterilmektedir.<\/span><\/p>\n
 \u00d6rnek: VBA Kullanarak Bir Dizeden Say\u0131lar\u0131 Kald\u0131rma<\/strong><\/span><\/h2>\n
 Excel’de a\u015fa\u011f\u0131daki \u00e7al\u0131\u015fan kimlikleri listesine sahip oldu\u011fumuzu varsayal\u0131m:<\/span> <\/p>\n
\"\"<\/p>\n
 Diyelim ki \u00c7al\u0131\u015fan Kimli\u011fi<\/strong> s\u00fctunundaki her dizedeki rakamlar\u0131 kald\u0131rmak istiyoruz.<\/span><\/p>\n
 Bunu yapmak i\u00e7in VBA’da a\u015fa\u011f\u0131daki fonksiyonu olu\u015fturabiliriz:<\/span><\/p>\n
 Function<\/span> RemoveNumbers(CellText As<\/span> String) As<\/span> String\n\nWith<\/span> CreateObject(\" VBScript.RegExp<\/span> \")\n    .Global = True\n    .Pattern = \" [0-9]<\/span> \"\n    RemoveNumbers = .Replace(CellText, \"\")\nEnd With<\/span>\n\nEnd Function<\/span><\/strong><\/span><\/pre>\n
 Bu i\u015flevi olu\u015fturduktan sonra, \u00e7al\u0131\u015fan numaras\u0131n\u0131 t\u00fcm rakamlar kald\u0131r\u0131lm\u0131\u015f olarak A2<\/strong> h\u00fccresine d\u00f6nd\u00fcrmek i\u00e7in B2<\/strong> h\u00fccresine a\u015fa\u011f\u0131daki form\u00fcl\u00fc yazabiliriz:<\/span><\/p>\n
 =RemoveNumbers( A2<\/span> )<\/strong><\/span><\/pre>\n
 Daha sonra bu form\u00fcl\u00fc t\u0131klay\u0131p B s\u00fctununda kalan her h\u00fccreye s\u00fcr\u00fckleyebiliriz:<\/span> <\/p>\n
\"VBA<\/p>\n
 B s\u00fctunu, A s\u00fctunundaki dizelerin her birini, rakamlar\u0131 kald\u0131r\u0131lm\u0131\u015f \u015fekilde g\u00f6r\u00fcnt\u00fcler.<\/span><\/p>\n
 \u00d6rne\u011fin:<\/span><\/p>\n